Discussion :

[dodo28]

Bonjour,
Je desirerai inserer un saut de page quand dans la colonne A la cellule est differente de la precedente.
J'ai fait ce code mais il insere une ligne qu'au premier changement.
Pouvez vous m'aider merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub InsereSautPage()
 
For i = 2 To 2100
 
 If Range("A" & i) <> Range("A" & i - 1) Then
 
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
 
End If
Next i
End Sub

[casefayere]

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub InsereSautPage()
Dim derlg As Long
With ActiveSheet
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To derlg
        If Range("A" & i) <> Range("A" & i - 1) Then
            .HPageBreaks.Add Before:=Range("A" & i)
        End If
    Next i
End With
End Sub

[dodo28]

Merci beaucoup ca marche trés bien

[casefayere]

Une dernière chose,
e e conseille de tout rétablir avant (en cas de changement dans les cellules)
et lancer la macro ensuite, avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ResetAllPageBreaks

soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub InsereSautPage()
Dim derlg As Long
With ActiveSheet
    .ResetAllPageBreaks
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To derlg
        If Range("A" & i) <> Range("A" & i - 1) Then
            .HPageBreaks.Add Before:=Range("A" & i)
        End If
    Next i
End With
End Sub

[dodo28]

Ok merci beaucoup pour ce conseil