Bonsoir chers tous
Sur mon Fichier Je voudrais afficher uniquement les enregistrements du mois indiqué en cellule L1 et des mois antérieurs .
Pour ce faire j'ai créé une feuille intermédiaire "Filtre" qui sera masquée.
Dans un module j"ai une macro nommée "Filtre :
Sub Filtre()
With Sheets("Filtre")
.Cells.Delete
Sheets("VA").Range("A1:J1").Copy .[A1]
.Range("L1").FormulaR1C1 = "MOIS"
.Range("L2").FormulaR1C1 = "=""<="" & VA!R1C12"
Sheets("VA").Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("L1:L2"), _
CopyToRange:=.Range("A1:J1"), Unique:=False
.Rows(1).Delete
.Range("L1").Delete
End With
End Sub
et Dans mon userform je Procède comme suit pour afficher le résultat
Private Sub UserForm_Initialize()
Dim dl As Long
Call Filtre
With Sheets("Filtre").Range("A4").CurrentRegion.Resize(, 10)
ListBox2.ColumnCount = .Columns.Count
If .[A1] <> "" Then ListBox2.RowSource = .[A1].CurrentRegion.Resize(.Range("A" & Rows.Count).End(xlUp).Row, 10).Address
End With
Le soucis est que le lancement du Userform pose problème
Pouvez vous m'aider Voire me proposer mieux ? merci