Bonjour à tous et bonne journée,
Petite question en passant : j'ai une boite de dialogue dans laquelle j'ai 3 textbox. La première me sert a scanner un code barre, la deuxième m'affiche alors le nom de la personne correspondant au code barre et la troisième m'affiche son prénom (cela après recherche du code barre dans une base de données de mon classeur)
Pb : lorsque j'ai scanné un code barre, les 2 autres textbox se mettent bien à jour, mais le focus se met sur la textbox2 alors que je voudrais qu'il reste sur ma textbox1 afin de saisir éventuellemnt un autre code barre...
J'ai essayé avec Setfocus mais ça ne donne pas de résultat.. comment faire ?
Ci-dessous, ma procédure permettant d'entrer le code barre, que changer dedans ?
Private Sub CodeBarre_Change()
With Sheets("Base").Range("A2:A25")
Set cel = .Columns(1).Find(CodeBarre.Value, LookIn:=xlValues)
If Not cel Is Nothing Then
Me.NomAd = cel.Offset(0, 3)
Me.PrenAd = cel.Offset(0, 2)
End If
End With
CodeBarre.SetFocus
End Sub
Merci d'avance de votre aide...
Petite question en passant : j'ai une boite de dialogue dans laquelle j'ai 3 textbox. La première me sert a scanner un code barre, la deuxième m'affiche alors le nom de la personne correspondant au code barre et la troisième m'affiche son prénom (cela après recherche du code barre dans une base de données de mon classeur)
Pb : lorsque j'ai scanné un code barre, les 2 autres textbox se mettent bien à jour, mais le focus se met sur la textbox2 alors que je voudrais qu'il reste sur ma textbox1 afin de saisir éventuellemnt un autre code barre...
J'ai essayé avec Setfocus mais ça ne donne pas de résultat.. comment faire ?
Ci-dessous, ma procédure permettant d'entrer le code barre, que changer dedans ?
Private Sub CodeBarre_Change()
With Sheets("Base").Range("A2:A25")
Set cel = .Columns(1).Find(CodeBarre.Value, LookIn:=xlValues)
If Not cel Is Nothing Then
Me.NomAd = cel.Offset(0, 3)
Me.PrenAd = cel.Offset(0, 2)
End If
End With
CodeBarre.SetFocus
End Sub
Merci d'avance de votre aide...