Bonjour à tous , je me présente avant tout je m'apelle Loic , j'ai 33 ans et je débute en VBA , je vais essayer de m'exprimer le plus simplement possible :
Voici mon problème : J'ai creé un formulaire de recherche en userform avec plusieurs listbox et une Combobox ( liste déroulante )
A partir de cette liste déroulante je voudrais quand je sélectionne mon article que tout s'affiche dans les listbox .
je vous représente un peu autrement mon userform
Listbox ID ARTICLE
Combobox Désignation ( c'est à partir d'ici qu'une fois l'article sélectionner , tout doit s'afficher automatiquement dans les listbox )
Listbox PRIX U.HT
Listbox % TVA
Listbox MONTANT TVA
Listbox PRIX U.TTC
Listbox CONDITION ( c'est si prix Kg,pièce etc etc )
Voici la formule que je tente de rentrer dans le visual basic de ma combobox désignation :
( il me met erreur de débogage )
Private Sub ComboBox1_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("Liste Articles").Range("D:D"), Me.ComboBox1.Value) = 0 Then
MsgBox "Cette désignation d'article n'existe pas . Veuillez saisir de nouveau une désignation valide .", vbInformation + vbOKOnly, "Article non trouvé"
End If
With Me
.TextBox1 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("Liste Articles").Range("sourcearticle"), 1, 0)
End With
End Sub