Private Sub CommandButton1_Click()
[COLOR=Blue][B]Dim Mot As Range[/B][/COLOR]
If ComboBox1 = "" Then
MsgBox "Vous devez saisir un mot à traduire"
Exit Sub
Else
[COLOR=Blue][B]Set Mot = Range([B2], [B2].End(xlDown)).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlPart)
If Not Mot Is Nothing Then
TextBox2.Value = Mot.Offset(0, -1).Value
Else: MsgBox "Aucune correspondance disponible"
End If[/B][/COLOR]
'Dim i%, j%, k&
'i = Len(ComboBox1.Value)
'
'For j = 1 To 500
'For k = 2 To 100 'Range("A2").End(xlDown).Row
'
'If Mid(Range("B" & k), j, i) = ComboBox1.Value Then
'TextBox2 = Range("A" & k)
'End If
'
'Next k
'Next j
'
'If TextBox2 = "" Then
'MsgBox "Aucune correspondance disponible"
'End If
End If
End Sub