bonjour
j'utilise cette macro pour imprimer une feuille avec 2 conditions
cette macro est ulilisée pour imprimer chaques mois ( janv à dec )
j'aimerais une modification pour imprimer les 12 feuilles correspondant aux 12 mois avec les mêmes conditions en un click
voici la macro:
Sub MacroImpRMEDec()
ActiveWorkbook.RefreshAll
Sheets("SynthRDec").Activate
If Range("D11") = "0" Then
MsgBox "AUCUNE DONNEE A IMPRIMER!"
Else
'imprimer cellules pleine
Application.ScreenUpdating = False
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, "B")) Then Rows(r).Hidden = True
Next r
ActiveSheet.PrintOut
Rows().Hidden = False
End If
Sheets("MenuIMPSynth").Activate
End Sub
merci pour votre aide
@+
j'utilise cette macro pour imprimer une feuille avec 2 conditions
cette macro est ulilisée pour imprimer chaques mois ( janv à dec )
j'aimerais une modification pour imprimer les 12 feuilles correspondant aux 12 mois avec les mêmes conditions en un click
voici la macro:
Sub MacroImpRMEDec()
ActiveWorkbook.RefreshAll
Sheets("SynthRDec").Activate
If Range("D11") = "0" Then
MsgBox "AUCUNE DONNEE A IMPRIMER!"
Else
'imprimer cellules pleine
Application.ScreenUpdating = False
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, "B")) Then Rows(r).Hidden = True
Next r
ActiveSheet.PrintOut
Rows().Hidden = False
End If
Sheets("MenuIMPSynth").Activate
End Sub
merci pour votre aide
@+