Bonjour,
Merci pour vos réponses la solution de galopin01 marche impeccable ! Mais celle de sabV ne résout pas mon problème.
Cependant, pensez que si je modifies mon code par la même occasion à chaque fois que scanne un produit celui-ci m'affiche nom et prénom mais que le textbox_Scan s'efface et le curseur reste dans ce textbox ?
Private Sub txtScan_Exit(ByVal cancel As MSForms.ReturnBoolean)
If Len(txtScan) < 11 Then Exit Sub
Dim Valeur_Cherchee As String
Dim trouve As Range, PlageDeRecherche As Range
Dim k As Variant
Set k = ActiveSheet
Sheets("Liste des données").Select
If Not txtScan.Value = "" Then
Dim no_ligne As Integer
Valeur_Cherchee = txtScan.Value
Set PlageDeRecherche = Sheets("Liste des données").Columns(13)
Set trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
If trouve Is Nothing Then
k.Select
MsgBox "Aucune donnée trouvée"
Else
no_ligne = trouve.Row
txtNom.Value = Cells(no_ligne, 3).Value
txtPrénom.Value = Cells(no_ligne, 4).Value
txtNuméro.Value = Cells(no_ligne, 2).Value
End If
End If
k.Select
Dim r As Range, c As Range
With Sheets("Liste des données").Range("A1:M1500")
For Each r In .Rows
For Each c In r.Cells
If c = txtScan.Value Then
r.Interior.Color = vbGreen
Exit For
End If
Next c
Next r
End With
cancel = True
With txtScan
.Text = ""
End With
End Sub
Avec ce code les textbox Nom, Prénom et Numéro ne se remplissent pas...
Bonne journée à vous !!!