KTM
XLDnaute Impliqué
Bonjour chers tous
Dans mon fichier joint mon userform affiche tous les enregistrements de ma base.
Mais je voudrais afficher uniquement les enregistrements du mois indiqué en cellule L1 et des mois antérieurs .
Pour l'Heure j'ai fait le code pour afficher tous.
Merci et soyons en sécurité.
Dans mon fichier joint mon userform affiche tous les enregistrements de ma base.
Mais je voudrais afficher uniquement les enregistrements du mois indiqué en cellule L1 et des mois antérieurs .
Pour l'Heure j'ai fait le code pour afficher tous.
VB:
Private Sub UserForm_Initialize()
Dim dl As Long
dl = Sheets("VA").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("VA").[A1].CurrentRegion.Resize(dl, 10)
ListBox2.ColumnCount = .Columns.Count
If .Rows.Count > 1 Then ListBox2.RowSource = .Rows(2).Resize(.Rows.Count - 1).Address
End With
End Sub
Merci et soyons en sécurité.