Bonjour à tous,
j'ai une macro qui me place des sauts de page automatique avant toutes les ligne (que la colonne A remplie) qui sont égale à la ligne 9.
Pouvez-vous m'aider à simplifier le code et à mettre un saut de page après à chaque fois que le contenu de la cellule contient le mot : fax ?
voici mon code :
Sub SautsPage()
ActiveSheet.ResetAllPageBreaks
Ligne = 9
Classe = Cells(Ligne, 1).Value
ZR = Classe
Do
If ZR = Classe Then
Cells(Ligne, 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
ZR = Classe
End If
Ligne = Ligne + 1
Classe = Cells(Ligne, 1).Value
Loop Until Classe = ""
End Sub
Merci bcp pour votre aide !!!
j'ai une macro qui me place des sauts de page automatique avant toutes les ligne (que la colonne A remplie) qui sont égale à la ligne 9.
Pouvez-vous m'aider à simplifier le code et à mettre un saut de page après à chaque fois que le contenu de la cellule contient le mot : fax ?
voici mon code :
Sub SautsPage()
ActiveSheet.ResetAllPageBreaks
Ligne = 9
Classe = Cells(Ligne, 1).Value
ZR = Classe
Do
If ZR = Classe Then
Cells(Ligne, 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
ZR = Classe
End If
Ligne = Ligne + 1
Classe = Cells(Ligne, 1).Value
Loop Until Classe = ""
End Sub
Merci bcp pour votre aide !!!