Insérer saut de page avant valeur

Version imprimable

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

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é :koi:
Avez-vous une idée du problème ?

Code:

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

02/12/2013, 16h23
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

1 pièce(s) jointe(s)

Code:

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.

03/12/2013, 10h01
Guy_L

1 pièce(s) jointe(s)

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

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:

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

Citation:

Envoyé par 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...

J'ai joint un fichier à mon précédent post ...

Citation:

Tu dois avoir un truc louche dans tes données

Il n'y a pas que dans mes données :lol: :cfou:

Voici ce que ça me "sort" quand je lance n'importe laquelle de toutes ces macros (la mienne ou l'une des propositions)
http://img4.hostingpics.net/thumbs/m...Excelessai.jpg
Peut-être que ma macro initiale fonctionnerait aussi, mais que quelque chose est mal configuré dans Excel empêchant son fonctionnement ?

La macro ci-dessous bloque sur la fameuse cde
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub saut() ' ' Macro saut de page ' ActiveSheet.ResetAllPageBreaks 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
celle-ci ne bloque pas mais n'exécute qu'un seul saut de page (au dessus de la dernière cellule qui a été sélectionnée avant de quitter la feuille)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub sdp() ' ' Macro saut de page ' ActiveSheet.ResetAllPageBreaks For i = 1 To 8350 If Cells(i, 1).Value = "Go" Then ActiveSheet.HPageBreaks.Add Before:=ActiveCell End If Next End Sub

03/12/2013, 11h05
EngueEngue

Ouais, à mon avis tu devrais taper sur ton ordi. File un classeur où ça plante.

Ton programme initial ne marcherait pas puisque l'activecell ne bouge pas de toute la procédure donc va te mettre au même endroit tous les pages breaks.

Les suivantes procédures marchent toutes. Sur ma machine et je n'arrive pas à les faire beuguer, donc ou tu files tes datas ou j'en reste là.
03/12/2013, 11h09
Guy_L

Citation:

Envoyé par EngueEngue

File un classeur où ça plante

Citation:

donc ou tu files tes datas

voir post #7, le fichier est dedans (je l'ai précisé dans mon post précédent)

Citation:

Envoyé par EngueEngue

Ton programme initial ne marcherait pas puisque l'activecell ne bouge pas de toute la procédure donc va te mettre au même endroit tous les pages breaks.

J'avais aussi indiqué dès mon deuxième post

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

Tout d'abord met un saut te page à la première ligne. Ce qui n'est bien sûr pas possible. En enlevant le Go de "A1" tu auras l'erreur suivante:
Maximum de 1026 sauts de pages sauts de page horizontaux.

Thème reglé.
03/12/2013, 11h25
Guy_L

Ça y est, j'ai trouvé le bug : c'est la première ligne qui ne "tolère" pas le saut de page avant elle-même.

Merci