Discussion :

[Guy_L]

Bonjour,
J'ai mis cette macro dans mon fichier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub saut()
'
' Macro saut de page
'
For Each Cell In Range("A:A")
    If Cell.Value = "Go" Then
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    End If
Next
End Sub

mais les sauts de page se mettent n'importe où et pas au-dessus des valeurs "Go" comme souhaité
Avez-vous une idée du problème ?

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub saut()
'
' Macro saut de page
'
For Each Cell In Range("A:A")
    If Cell.Value = "Go" Then
    cell.select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    End If
Next
End Sub

[Guy_L]

et c'est quoi le problème ? (en passant, si je remplace "ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell" par msgbox = "tartempion", ça marche, alors si le problème vient de là où tu as annoté en rouge, je ne comprends pas). Merci d'apporter explication STP.

PS: le fait d'ajouter "cell.select" n'a rien changé, le plantage se fait toujours sur ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub saut()
'
' Macro saut de page
'
For Each cell In ActiveSheet.Range("A:A")
    If cell.Value = "Go" Then
    cell.Select
    ActiveSheet.HPageBreaks.Add Before:=ActiveCell
    End If
Next
End Sub

Preuve en image.

[Guy_L]

dans mon post #3 j'ai indiqué que le fait de rajouter cell.select n'a rien changé, ni non plus le fait de changer
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
en
ActiveSheet.HPageBreaks.Add Before:=ActiveCell

J'ai intégralement copié le code dans ma macro, il se passe la même chose qu'avec le mien: plantage sur la ligne
ActiveSheet.HPageBreaks.Add Before:=ActiveCell

[EngueEngue]

J'ai essayé 36000000 possibilités et je n'arrive pas à le faire planter.. Tu dois avoir un truc louche dans tes données... Essaie de la sorte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub saut()
'
' Macro saut de page
'
For Each cell In ActiveSheet.Range("A1:A" & ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row)
    If cell.Value = "Go" Then
    cell.Select
    ActiveSheet.HPageBreaks.Add Before:=ActiveCell
    End If
Next
End Sub