Filter feuille Excel et afficher résultat sur listbox

Bonsoir,

Je suis nouveau sur le Forum et j'ai besoin d'aide en VBA

Merci au personne qui puisse me venir en aide car je bloque sur le code qui permet d'afficher les données filtrées d'une feuille sur la listbox.

Dans le fichier joint vous trouverez sous l'onglet Menu un bouton bilan qui ouvre l'UserForm ou se trouve la listbox.

Je souhaite faire une recherche par 2 textbox " date " dans la feuille "Saisie journalière" et afficher le résultat sur la listbox de l'UserForm

Merci d'avance pour l'aide que vous pourrez m'apporter.

je vous joint le fichier de travail

Cordialement

JPH

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Merci gmd pour votre réponse rapide c'est parfaite.

Mais juste quand je modifie la date, la listbox ne s'efface pas et cumule les données.

Comment faire pour que la listbox se réinitialise a chaque changement de date.

Encore merci

JPH

Désoler erreur de frappe et encore merci gmb

Bonjour

Nouvelle version.

Bye !

Bonjour

Merci Parfait

Résolu

A bientôt

Bonne journée

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¸

Rechercher des sujets similaires à "filter feuille afficher resultat listbox"