Bonsoir.
Pouvez vous me donner un coup de main sur mon code suivant pour afficher les donnees dans un listbox sur formulaire
je fvous rappelle que je suis nouveau.
Private Sub Get_article_Click()
On Error Resume Next
Dim maFeuille As String
maFeuille = cb_voir_article.Value
If Me.cb_voir_article.Value = "" Then
MsgBox "Veuillez selectionner un diwaane", vbOKOnly + vbInformation, "VALIDATION"
Exit Sub
End If
Sheets("Article").Range("N13") = "*" & Me.txt_getArticle
'Appliquer le filtre avance
Sheets("Article").Range("Table1[#all]").AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheets("Article").Range("N12:N13"), copytorange _
:=Sheets("Article").Range("P12:Z12"), Unique:=False
Me.ListBox1.RowSource = Sheets("Article").Range("P12:Z12")
End Sub¸