InputBox et 2 conditions pour une valeur entrée

L'inconvénient de l'évènement Change est qu'il prend en compte si tu choisis une valeur dans la ComboBox.

J'ai fait un test sur un autre évènement : celui-ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CmbListe1_AfterUpdate() Dim valeur As String valeur = USFListe.CmbListe1.Value For i = 1 To Range("A60000").End(xlUp).Row If InStr(1, Cells(i, 1).Value, valeur, vbTextCompare) > 0 Then LineDepart = i Exit For End If Next i For i = LineDepart + 1 To 212 USFListe.CmbListe2.AddItem Cells(i, 1).Value 'USFListe.CmbListe2.AddItem Cells(i, 1).Value Next i End Sub

---

A priori, la deuxième liste se met alors à jour correctement, que tu saisisse manuellement, ou par la liste déroulante :)

:ccool::ccool::ccool: Re,

Citation:

---

A priori, la deuxième liste se met alors à jour correctement, que tu saisisse manuellement, ou par la liste déroulante

---

eh bien, a posteriori .....aussi; "ça marche trop bien" !!!!!

Je vous dis donc encore BRAVO et MERCI pour tout.

Très cordialement.

Nonno 94.