métode find avec conditions

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:

---

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

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:

---

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

---

ou

Code:

---

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

---

ou

Code:

---

TextBox2.Value = .Cells(i, 4)

---

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

Code:

---

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

---

peut-être changer l'évènement

Code:

---

Private Sub ComboBox2_Change()

---

pour

Code:

---

Private Sub ComboBox1_Click()

---

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:

---

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

---