bonjour,

j'ai fait cela:

Private Sub finding_s_Change()
TextBox1.Value = Range("légende!finding_l").Item(Application.Match(finding_s.Value, Range("légende!finding_s"), 0))
TextBox2.Value = Range("légende!finding_r").Item(Application.Match(finding_s.Value, Range("légende!finding_s"), 0))

End Sub

Private Sub finding_s_Enter()
finding_s.RowSource = "légende!finding_s"
End Sub

ceci me permet de remplir mon combobox en cherchant des valeurs sur une feuille excel puis en fonction de la valeur remplir 2 textbox.

Le problème est que si la valeur n'existe pas ou si je veux saisir une nouvelle valeur dans mon combobox cela plante

Pouvez-vous m'aider.

Merci à tous

bonjour,

(non testé) Utilise un gestionnaire d'erreur.

Private sub blabla...
On Error GoTo GESTERR
... La suite sans changement.
Exit Sub
GESTERR:
End Sub

bonjour et merci.

Une fois de plus ta solution est géniale.

A+