Bonjour,
J'ai un fichier qui est sur 2 pages, mais je n'ai pas toujours besoin de ces 2 pages, donc j'ai rajouté une macro de masquer les lignes que je n'ai pas besoin avant impression pour que ça tienne sur 1 page. J'ai rajouté la macro ci-dessous, mais lorsque j'ai une partie de la page 1 et 1 partie de page 2, l'imprimante me l'imprime sur 2 pages au lieu de l'imprimer sur une.
Exemple: Sur feuille "Hiver 1" en colonne A j'ai des numéro de 1 à 4 , sans rien faire j'ai le n°1 et 2 sur une page puis le n°3 et 4 sur une autre.
Si ma macro MASQUER_LIGNE masque le n°1 et N°4, je souhaite avoir sur une page le n°2 et 3 qui sont à la base sur une autre page.
Peut on aussi rajouter pour que l'imprimante reste en RECTO/VERSO ?
J'espère que je suis clair, mais ce n'est pas évident.
Merci pour votre aide.
Sub Ajuster()
ActiveSheet.Select
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AA$78"
.PaperSize = xlPaperA4
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.3)
.BottomMargin = Application.InchesToPoints(0)
.Zoom = 60
.Orientation = xlLandscape
End With
End Sub
Sub MASQUER_LIGNE()
'********************************************************
' Procédure pour Masquer ou Dermasquer les lignes 9 à 22
'********************************************************
'Masquer Hiver 1
If [Test1] = 0 Then
Sheets("Hiver 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test2] = 0 Then
Sheets("Hiver 1").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test3] = 0 Then
Sheets("Hiver 1").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test4] = 0 Then
Sheets("Hiver 1").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
'Masquer Été 1
If [Test5] = 0 Then
Sheets("Été 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test6] = 0 Then
Sheets("Été 1").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test7] = 0 Then
Sheets("Été 1").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test8] = 0 Then
Sheets("Été 1").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
'Masquer Été 2
If [Test9] = 0 Then
Sheets("Été 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test10] = 0 Then
Sheets("Été 2").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test11] = 0 Then
Sheets("Été 2").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test12] = 0 Then
Sheets("Été 2").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
'Masquer Hiver 2
If [Test13] = 0 Then
Sheets("Hiver 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test14] = 0 Then
Sheets("Hiver 2").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test15] = 0 Then
Sheets("Hiver 2").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test16] = 0 Then
Sheets("Hiver 2").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Sub AFFICHER_LIGNE()
'***************************************************************************
' Procédure pour Démasquer les lignes 9 à 22 quelque soit la valeur du TEST
'***************************************************************************
'Afficher Hiver 1
Sheets("Hiver 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
'Afficher Été 1
Sheets("Été 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
'Afficher Été 2
Sheets("Été 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
'Afficher Hiver 2
Sheets("Hiver 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End Sub
J'ai un fichier qui est sur 2 pages, mais je n'ai pas toujours besoin de ces 2 pages, donc j'ai rajouté une macro de masquer les lignes que je n'ai pas besoin avant impression pour que ça tienne sur 1 page. J'ai rajouté la macro ci-dessous, mais lorsque j'ai une partie de la page 1 et 1 partie de page 2, l'imprimante me l'imprime sur 2 pages au lieu de l'imprimer sur une.
Exemple: Sur feuille "Hiver 1" en colonne A j'ai des numéro de 1 à 4 , sans rien faire j'ai le n°1 et 2 sur une page puis le n°3 et 4 sur une autre.
Si ma macro MASQUER_LIGNE masque le n°1 et N°4, je souhaite avoir sur une page le n°2 et 3 qui sont à la base sur une autre page.
Peut on aussi rajouter pour que l'imprimante reste en RECTO/VERSO ?
J'espère que je suis clair, mais ce n'est pas évident.
Merci pour votre aide.
Sub Ajuster()
ActiveSheet.Select
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AA$78"
.PaperSize = xlPaperA4
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.3)
.BottomMargin = Application.InchesToPoints(0)
.Zoom = 60
.Orientation = xlLandscape
End With
End Sub
Sub MASQUER_LIGNE()
'********************************************************
' Procédure pour Masquer ou Dermasquer les lignes 9 à 22
'********************************************************
'Masquer Hiver 1
If [Test1] = 0 Then
Sheets("Hiver 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test2] = 0 Then
Sheets("Hiver 1").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test3] = 0 Then
Sheets("Hiver 1").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test4] = 0 Then
Sheets("Hiver 1").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
'Masquer Été 1
If [Test5] = 0 Then
Sheets("Été 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test6] = 0 Then
Sheets("Été 1").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test7] = 0 Then
Sheets("Été 1").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test8] = 0 Then
Sheets("Été 1").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
'Masquer Été 2
If [Test9] = 0 Then
Sheets("Été 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test10] = 0 Then
Sheets("Été 2").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test11] = 0 Then
Sheets("Été 2").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test12] = 0 Then
Sheets("Été 2").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
'Masquer Hiver 2
If [Test13] = 0 Then
Sheets("Hiver 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = True
Else
Rows("10:23").Select
Selection.EntireRow.Hidden = False
End If
If [Test14] = 0 Then
Sheets("Hiver 2").Select
Rows("27:42").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:42").Select
Selection.EntireRow.Hidden = False
End If
If [Test15] = 0 Then
Sheets("Hiver 2").Select
Rows("46:60").Select
Selection.EntireRow.Hidden = True
Else
Rows("46:60").Select
Selection.EntireRow.Hidden = False
End If
If [Test16] = 0 Then
Sheets("Hiver 2").Select
Rows("64:78").Select
Selection.EntireRow.Hidden = True
Else
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Sub AFFICHER_LIGNE()
'***************************************************************************
' Procédure pour Démasquer les lignes 9 à 22 quelque soit la valeur du TEST
'***************************************************************************
'Afficher Hiver 1
Sheets("Hiver 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
'Afficher Été 1
Sheets("Été 1").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
'Afficher Été 2
Sheets("Été 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
'Afficher Hiver 2
Sheets("Hiver 2").Select
Rows("10:23").Select
Selection.EntireRow.Hidden = False
Rows("27:42").Select
Selection.EntireRow.Hidden = False
Rows("46:60").Select
Selection.EntireRow.Hidden = False
Rows("64:78").Select
Selection.EntireRow.Hidden = False
End Sub