Discussion :

[BENNASR]

bonjour la forum
j'ai essayer depuis le matin de trouver solution sans charger ce forum par discussion peut etre banale mais sans résultat
mon problème c'est de chercher la dernière numéro de chèque et la mettre dans un textbox pour chaque banque
donc :
j'ai essayer ça mais ca rien donner

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox2_Change()
With Sheets("Mouvement")
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
BK = UserForm9.ComboBox1.Value
If Cells(i, 1).Value = BK And Cells(i, 3).Value = "Règlt par chèque" Then
TextBox2.Value = Cells(i, 4)
End If
End With
End Sub

Colonne A = nom banque
Colonne C = type
Colone D = la valeur recherchée

merci d'avance

[casefayere]

Bonjour,
Sans aller plus loin, je ne vois pas de Find dans ton code
D'autre part, ton "With" ne sert à rien car tu ne mets pas les ".", exemple

Code :

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

i = .Range("A" & .Rows.Count).End(xlUp).Row

ou

Code :

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

If .Cells(i, 1).Value = BK And .Cells(i, 3).Value =

ou

Code :

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

TextBox2.Value = .Cells(i, 4)

[BENNASR]

merci pour les remarque
j'ai modifié comme ça sans résultat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox2_Change()
With Sheets("Mouvement")
Dim i As Long
Dim Ch As String
i = .Range("A" & .Rows.Count).End(xlUp).Row
BK = ComboBox1.Value
Ch = "Règlt par chèque"
If .Cells(i, 1).Value = BK And .Cells(i, 3).Value = Ch Then
TextBox2.Value = .Cells(i, 4).Value
End If
MsgBox TextBox2.Value
End With
End Sub

[casefayere]

peut-être changer l'évènement

Code :

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

Private Sub ComboBox2_Change()

pour

Code :

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

Private Sub ComboBox1_Click()

[BENNASR]

bonjour et merci à tous
j'ai changé à ComboBox1_Click() mais sans résultat
j'ai trvaillé avec un tableau et MouseDown et ça avance j'arrive à voir la numéro du dernier chèque mais meme si la valeur de combobox 2 est différent de "reglt par chèque !!!

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 TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim BK As String
Dim Ch As String
Dim Tablotype
Dim i As Long
BK = ComboBox1.Value
Ch = "Règlt par chèque"
Tablotype = Sheets("Mouvement").Range("A3", "I" & Sheets("Mouvement").Range("I" & Rows.Count).End(xlUp).Row)
For i = LBound(Tablotype, 1) To UBound(Tablotype, 1)
    If Tablotype(i, 1) = BK And Tablotype(i, 3) = Ch Then
        TextBox2.Value = Tablotype(i, 4)
 
    End If
Next
End Sub