E
Edouard
Guest
Bonsoir le forum
Je ne connais pas encore le fonctionnement des macros un « gentil-xld » du forum m’a écrit celle ci dessous qui a toujours bien fonctionnée jusque au jour ou j’ai voulue protéger des cellules de ma feuille »Zone O »
Est-il possible de la modifier pour que ce soit indépendant ?
merci d’avance
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Valeur As String
Dim Nom As Variant
' recopie le titre Coupe formation Niv 4 et sa date de la feuille date et apercu avant impression
' pour une autre feuille ajouter ;zone so ..etc
Valeur = " Coupe formation Niv 4 " & ThisWorkbook.Sheets("Date").Range("H12")
For Each Nom In Array("Zone O")
With ThisWorkbook.Sheets(Nom)
.PageSetup.CenterHeader = Valeur
.PageSetup.PrintArea = .Range("A5").Address & ":" & .Range("AZ" & .Range("A5:A154").SpecialCells(xlCellTypeConstants, 23).Rows.Count + 4).Address
End With
Next Nom
End Sub
Je ne connais pas encore le fonctionnement des macros un « gentil-xld » du forum m’a écrit celle ci dessous qui a toujours bien fonctionnée jusque au jour ou j’ai voulue protéger des cellules de ma feuille »Zone O »
Est-il possible de la modifier pour que ce soit indépendant ?
merci d’avance
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Valeur As String
Dim Nom As Variant
' recopie le titre Coupe formation Niv 4 et sa date de la feuille date et apercu avant impression
' pour une autre feuille ajouter ;zone so ..etc
Valeur = " Coupe formation Niv 4 " & ThisWorkbook.Sheets("Date").Range("H12")
For Each Nom In Array("Zone O")
With ThisWorkbook.Sheets(Nom)
.PageSetup.CenterHeader = Valeur
.PageSetup.PrintArea = .Range("A5").Address & ":" & .Range("AZ" & .Range("A5:A154").SpecialCells(xlCellTypeConstants, 23).Rows.Count + 4).Address
End With
Next Nom
End Sub