Discussion :

[KBrownie]

Bonjour,

j'ai sur une feuille excel des données en fonction d'une banque et d'une date

et dans mon userform j'ai :
- un combobox1 qui m'appelle une banque
- un combobox2 qui m'appelle une date

et un label qui doit m'afficher un solde en fonction de la banque et de la date.

j'arrive à afficher correctement le solde seulement pour une date si dans offset(0, 3) ça reste figer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ComboBox1_Change()
Label1.Caption = Range("A1:A20").Find(What:=ComboBox1, lookat:=xlPart).Offset(0, 3)
' j'ai essayer de modifier le offset(0, e) afin que lorsque ma combobox2 affiche la même date que celle de la cellule C1 pour que e = 3 mais ça ne fonctionne pas j'ai toujours e = vide
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub UserForm_Initialize()
Dim j As Integer
Dim i As Integer
    For j = 2 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
 
    For i = 3 To 10
        ComboBox2 = Cells(1, i)
        If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Cells(1, i)
    Next i
 
End Sub

Merci d'avance