Bonjour à tous,
Ci-dessous la solution que j'ai trouvé si besoin :
Merci pour votre aide.
Crdt.
Private Sub TextBox4_enter()
'On fait une boucle pour rechercher la valeur de la textbox1 au niveau de la colonne "A" ou "B" et ramener la valeur en face au niveau de la colonne "E"
Dim i As Integer
i = 0
If CheckBox1.Value = True Then
While Range("C_TEP").Offset(i, 0).Value <> ""
If Range("C_TEP").Offset(i, 0).Value = TextBox1 Then
TextBox4 = "TLR" & Range("C_TEP").Offset(i, 4).Value & CheckBox1.Caption
End If
i = i + 1
Wend
i = 0
If TextBox4 = "" Then
While Range("C_CODE_FR").Offset(i, 0).Value <> ""
If Range("C_CODE_FR").Offset(i, 0).Value = TextBox1 Then
TextBox4 = "TLR" & Range("C_CODE_FR").Offset(i, 3).Value & CheckBox1.Caption
End If
i = i + 1
Wend
End If
End If