Ausecour,
J'ai modifier le code pour le mettre sur mon fichier réel. Mais le problème c'est qu'il me dit que la variable i n'est pas définit, c'est normal?
je me dit que c'est peut-être paracerque le tableau est sur une autre feuille (6).
Voici la modification que j'ai fais :
Private Sub txt_PeauComposants_Change()
Dim tabRecherche As Variant
Dim ligTrouve As Integer
'exécuté quoi qu'il arrive
Me.txt_PeauComposants2 = ""
If Me.txt_PeauComposants = "" Then Exit Sub
'exécuté uniquement si Textbox1 n'est pas vide
tabRecherche = Feuil6.Range("J1").CurrentRegion.Value
'recherche de la lettre sans respecter la case
For i = 2 To UBound(tabRecherche, 1)
If LCase(tabRecherche(i, 1)) = LCase(Me.txt_PeauComposants) Then
ligTrouve = i
Exit For
End If
Next i
If ligTrouve > 0 Then
Me.txt_PeauComposants2 = tabRecherche(ligTrouve, 2)
Else
MsgBox "Cette lettre n'existe pas dans la bdd", vbCritical + vbOKOnly, "Erreur"
End If
End Sub
Merci encore.
édit: j'avais mis le Option explicit