Copie et Impression de lignes d'une autre feuille avec le choix d'une date

[bobjazz]

Bonjour le Forum,

Je voudrais copier des lignes en fonction du mois que je choisi d'une feuille sur une trame qui se situe dans la deuxième feuille.
Et dans la foulée, lancer l'impression de la trame
Sur mon fichier joins, j'ai choisi MAI pour mon exemple.

Merci d'avance

Bobjazz

 

[STephane]

Re : Copie et Impression de lignes d'une autre feuille avec le choix d'une date

une solution tirée par les cheveux ;-)
où j'ai supposé que "Mai" était une donnée littéralement saisie dans C2.

Sub xld_Choix_du_Mois()
'
' Macro3 Macro
'
Application.ScreenUpdating = False
Dim v_Mois As Variant
Dim l_Mois As Long

' Effacer tableau "Print Entrées"
With Range("A4").CurrentRegion
    If .Rows.Count > 1 Then .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).ClearContents
End With

' Quatrième liste personnalisée contenant les mois sous forme "mmmm"
v_Mois = Application.GetCustomListContents(4)

' Index du mois choisi
l_Mois = Application.Match(Worksheets("Print Entrées").Range("C2").Text, v_Mois, 0)

Worksheets("Entrées").Range("A1").CurrentRegion.AutoFilter Field:=5, Criteria1:= _
        20 + l_Mois, Operator:=xlFilterDynamic

With Worksheets("Entrées").Range("_filterdatabase").SpecialCells(xlCellTypeVisible)
   .Copy Worksheets("Print Entrées").Range("A4")
End With
Application.Goto Range("A1"), scroll:=True
End Sub

Autre code pouvant servir

'Dim d_Debut As Date
'Dim d_Fin As Date
'd_Debut = DateSerial(Year(Now), l_Mois, 1)
'd_Fin = DateSerial(Year(Now), l_Mois + 1, 1) - 1