Bonjour à toutes et tous,
J'ai testé ce code :
En fait ce qu'il produit est étonnant :
Sur le premier onglet tout s'applique correctement
Sur les autres onglets pas du tout...
Les sauts de pages verticaux se positionne après la colonne T et après la colonne AO
Un peu d'aide serait bienvenue pour m'aider à corriger
J'ai testé ce code :
Code:
Sub SautsDePage(ByVal NBTests As Integer, ByVal ate As Boolean, ByVal Feuille As Worksheet)
Dim intSautPage As Integer
Dim intNbSauts As Integer
With Feuille
intNbSauts = .HPageBreaks.Count
'Supprimer tous les sauts de page horizontaux
For intSautPage = intNbSauts To 1 Step -1
If .HPageBreaks.Item(intSautPage).Type = xlPageBreakManual Then
.HPageBreaks.Item(intSautPage).Delete '''
.VPageBreaks.Add Before:=Range("X1") '''
.VPageBreaks.Add Before:=Range("Au1")
.HPageBreaks.Add Before:=Range("A" & J * 69)
End If
Next
End With
End Sub
En fait ce qu'il produit est étonnant :
Sur le premier onglet tout s'applique correctement
Sur les autres onglets pas du tout...
Les sauts de pages verticaux se positionne après la colonne T et après la colonne AO
Un peu d'aide serait bienvenue pour m'aider à corriger