Bonjour,
Merci beaucoup
@Phil69970 d'avoir pris le temps en cette période de "fêtes" de répondre à ma question.
J'ai bien noté pour le mot de passe.
J'ai collé le bout de code que vous avez ajouté et cela fonctionne très bien (j'ai juste modifié la zone supplémentaire à imprimer) :
Public Sub Imprimerzonespleines()
Dim n As Long
n = 9
With Feuil16
.Unprotect Password:="toto"
Do
If .Cells(n + 1, 1).Value = "" Then .Rows(n + 1).Hidden = True
n = n + 1
Loop While .Cells(n + 1, 1).Formula <> ""
With .PageSetup
.BlackAndWhite = True
.PrintArea = "$A$1:G" & n & ",$A$31:$G$36"
End With
.PrintOut Preview:=True
.Rows.Hidden = False
.Protect Password:="toto", UserInterFaceOnly:=True
End With
End SubPublic Sub Imprimerzonespleines()
Dim n As Long
n = 9
With Feuil16
.Unprotect Password:="transall"
Do
If .Cells(n + 1, 1).Value = "" Then .Rows(n + 1).Hidden = True
n = n + 1
Loop While .Cells(n + 1, 1).Formula <> ""
With .PageSetup
.BlackAndWhite = True
.PrintArea = "$A$1:G" & n & ",
$A$31:$G$36"
End With
.PrintOut Preview:=True
.Rows.Hidden = False
.Protect Password:="transall", UserInterFaceOnly:=True
End With
End Sub
Le seul problème c'est que cela m'imprime systématiquement sur 2 pages alors que j'ai très peu d'infos et cela devrait tenir sur une seule....
Y a t il une solution?
Je joins mon fichier que j'ai anonymisé.
Merci par avance