Bonjour le forum,
J'ai repris le fichier de Bernard, mais je n'arrive pas a rajouter un code.
Je souhaiterai que quand je tape un N° de prod dans la textbox3 et me remplit automatiquement les textbox 4,5 et 1 suivant les données de l'onglet listprod. De plus le message erreur ne fonctionne pas
Quand je veux l'enregistré il me note une erreur
Pouvez-vous m'aider
Ci-joint le code et le fichier
Cdt
Ludovic
Private Sub TextBox3_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("listprod").Range("A:A"), Me.TextBox3.Value) = 0 Then
MsgBox "ce numèro de producteur n'existe pas", "Veuillez ressaisir un numèrode producteur", vbInformation + vbOKOnly, "Numèro producteur non trouvé"
End If
With Me
.TextBox1 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox3), Sheets("listprod").Range("source"), 4, 0)
.TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox3), Sheets("listprod").Range("source"), 2, 0)
.TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox3), Sheets("listprod").Range("source"), 3, 0)
End With
End Sub
Merci