Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Saut de page

Saut de page

17 réponses
Avatar
Érico
Comment empêcher de faire un saut de page à la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des projets et je
ne veux pas qu'il insère des saut de page à l'intérieur de ces 4 lignes.

Merci

Érico
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Érico
Voici ma macro....

Sub masquesi()
______________________________
'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select


'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
______________________________

C'est une macro pour masquer des lignes par groupe de 4.
Est-ce que je peux mettre ta macro dans ça?

Merci



"isabelle" a écrit dans le message de
news:
Érico, est ce que tu veux exécuter la macro sur une plage sélectionnée au
préalable ?


isabelle


Non, je le veux en vusual basic et il y a plusieurs groupe de 4 lignes.
Sur une page, il peut y avoir 5 groupes de 4 lignes.

La macro, je l'ai mis dans "This Workbook" et ça pas fonctionné.
Je l'ai mis dans l'onglet de VBA Project.et ça pas fonctionné non plus.

Érico

"isabelle" a écrit dans le message de
news:
bonjour rico,

Un gros merci, mais je met a o?


dans une macro sur un module standart,

si tu ne veut pas utiliser le visual basic, il faut le faire
manuellement.



s lectionne la premire ligne du groupe de quatre, qui a un saut de
page



l'intrieur de ces 4 lignes,
et slectionne au menu Insertion, Saut de page

isabelle


"isabelle" a crit dans le message de
news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A"
& i)





Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets






et
je
ne veux pas qu'il insre des saut de page l'intrieur de ces 4
lignes.





Merci

rico












Avatar
isabelle
Érico, si c'est suite au masquage des lignes, que les sauts de page doivent ils être mit à chaque 4 lignes restant
visible,

ajoute ce bout de code à la fin de ta macro.

For i = 14 To 62
If Rows(i).Hidden = False Then x = x + 1
If x = 5 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i)
x = 0
End If
Next

isabelle


Voici ma macro....

Sub masquesi()
______________________________
'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select

'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
______________________________

C'est une macro pour masquer des lignes par groupe de 4.
Est-ce que je peux mettre ta macro dans ça?

Merci

"isabelle" a écrit dans le message de
news:
Érico, est ce que tu veux exécuter la macro sur une plage sélectionnée au
préalable ?


isabelle


Non, je le veux en vusual basic et il y a plusieurs groupe de 4 lignes.
Sur une page, il peut y avoir 5 groupes de 4 lignes.

La macro, je l'ai mis dans "This Workbook" et ça pas fonctionné.
Je l'ai mis dans l'onglet de VBA Project.et ça pas fonctionné non plus.

Érico

"isabelle" a écrit dans le message de
news:
bonjour rico,

Un gros merci, mais je met a o?


dans une macro sur un module standart,

si tu ne veut pas utiliser le visual basic, il faut le faire
manuellement.



s lectionne la premire ligne du groupe de quatre, qui a un saut de
page



l'intrieur de ces 4 lignes,
et slectionne au menu Insertion, Saut de page

isabelle


"isabelle" a crit dans le message de
news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A"
& i)





Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets






et
je
ne veux pas qu'il insre des saut de page l'intrieur de ces 4
lignes.





Merci

rico














Avatar
isabelle
est ce que ça c'est amélioré depuis ?
isabelle


Ouais, ton bazar de Mozilla t'as vraiment coupé É(E)rico ;-)

"isabelle" a écrit dans le message de
news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" &
i)

Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets et je


ne veux pas qu'il insre des saut de page l'intrieur de ces 4
lignes.



Merci

rico






Avatar
Érico
Tu es de où Isabelle? Montréal? Avec videotron!

ça n'a pas fontionné.

Voici la macro:



Private Sub Worksheet_Activate()
masquesi
End Sub



Sub masquesi()
'Éric Dufour le 24/01/2005

'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select


'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i

'Rajout
For i = 14 To 62
If Rows(i).Hidden = False Then x = x + 1
If x = 5 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i)
x = 0
End If
Next
End sub

"isabelle" a écrit dans le message de
news:

Érico, si c'est suite au masquage des lignes, que les sauts de page
doivent ils être mit à chaque 4 lignes restant

visible,

ajoute ce bout de code à la fin de ta macro.

For i = 14 To 62
If Rows(i).Hidden = False Then x = x + 1
If x = 5 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i)
x = 0
End If
Next

isabelle


Voici ma macro....

Sub masquesi()
______________________________
'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select

'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R"
Then


Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
______________________________

C'est une macro pour masquer des lignes par groupe de 4.
Est-ce que je peux mettre ta macro dans ça?

Merci

"isabelle" a écrit dans le message de
news:
Érico, est ce que tu veux exécuter la macro sur une plage sélectionnée
au



préalable ?

isabelle


Non, je le veux en vusual basic et il y a plusieurs groupe de 4
lignes.




Sur une page, il peut y avoir 5 groupes de 4 lignes.

La macro, je l'ai mis dans "This Workbook" et ça pas fonctionné.
Je l'ai mis dans l'onglet de VBA Project.et ça pas fonctionné non
plus.





Érico

"isabelle" a écrit dans le message de
news:
bonjour rico,

Un gros merci, mais je met a o?


dans une macro sur un module standart,

si tu ne veut pas utiliser le visual basic, il faut le faire
manuellement.



s lectionne la premire ligne du groupe de quatre, qui a un saut de
page



l'intrieur de ces 4 lignes,
et slectionne au menu Insertion, Saut de page

isabelle


"isabelle" a crit dans le message
de






news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=Range("A"







& i)
Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets






et
je
ne veux pas qu'il insre des saut de page l'intrieur de ces
4








lignes.

Merci

rico
















Avatar
Érico
C'est vraiment les lignes;
14,15.16 et 17
18,19,20 et 21
22,23,24,et 25
26,27,28 et 29
30,31,32 et 33
34,35,36 et 37
38,39,40 et 41
42,43,44,et 45
46,47,48,et 49
50,51,52,et 53
etc...jusqu'à
210,211,212, et 213.
Les lignes
214,215,216 et 217 sont des totaux



"isabelle" a écrit dans le message de
news:
est ce que ça c'est amélioré depuis ?
isabelle


Ouais, ton bazar de Mozilla t'as vraiment coupé �(E)rico ;-)

"isabelle" a écrit dans le message de
news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" &
i)

Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets et je


ne veux pas qu'il insre des saut de page l'intrieur de ces 4
lignes.



Merci

rico








Avatar
isabelle
note que j'avais fait un test de i = 14 to 62 il faudrait corriger pour ta plage de cellule (213)
mais dit moi ce qui n'a pas fonctionné, y a t'il un message d'erreur ?

si je fais le test suivant tout va bien.

sur le module de classe de la feuille du classeur X

Private Sub Worksheet_Activate()
hello
End Sub

sur le module1 (standard) du classeur X

Sub hello()
MsgBox "hello"
End Sub

isabelle


Tu es de où Isabelle? Montréal? Avec videotron!

ça n'a pas fontionné.

Voici la macro:

Private Sub Worksheet_Activate()
masquesi
End Sub

Sub masquesi()
'Éric Dufour le 24/01/2005

'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select

'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i

'Rajout
For i = 14 To 62
If Rows(i).Hidden = False Then x = x + 1
If x = 5 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i)
x = 0
End If
Next
End sub

"isabelle" a écrit dans le message de
news:

Érico, si c'est suite au masquage des lignes, que les sauts de page
doivent ils être mit à chaque 4 lignes restant

visible,

ajoute ce bout de code à la fin de ta macro.

For i = 14 To 62
If Rows(i).Hidden = False Then x = x + 1
If x = 5 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i)
x = 0
End If
Next

isabelle


Voici ma macro....

Sub masquesi()
______________________________
'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select

'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R"
Then


Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
______________________________

C'est une macro pour masquer des lignes par groupe de 4.
Est-ce que je peux mettre ta macro dans ça?

Merci

"isabelle" a écrit dans le message de
news:
Érico, est ce que tu veux exécuter la macro sur une plage sélectionnée
au



préalable ?

isabelle


Non, je le veux en vusual basic et il y a plusieurs groupe de 4
lignes.




Sur une page, il peut y avoir 5 groupes de 4 lignes.

La macro, je l'ai mis dans "This Workbook" et ça pas fonctionné.
Je l'ai mis dans l'onglet de VBA Project.et ça pas fonctionné non
plus.





Érico

"isabelle" a écrit dans le message de
news:
bonjour rico,

Un gros merci, mais je met a o?


dans une macro sur un module standart,

si tu ne veut pas utiliser le visual basic, il faut le faire
manuellement.



s lectionne la premire ligne du groupe de quatre, qui a un saut de
page



l'intrieur de ces 4 lignes,
et slectionne au menu Insertion, Saut de page

isabelle


"isabelle" a crit dans le message
de






news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=Range("A"







& i)
Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets






et
je
ne veux pas qu'il insre des saut de page l'intrieur de ces
4








lignes.

Merci

rico


















Avatar
Clément Marcotte
Oui ;-)


"isabelle" a écrit dans le message de
news:
est ce que ça c'est amélioré depuis ?
isabelle


Ouais, ton bazar de Mozilla t'as vraiment coupé �(E)rico ;-)

"isabelle" a écrit dans le message
de


news:
bonjour rico,

voici un exemple,

For i = 5 To 20 Step 4
ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=Range("A" &



i)
Next

isabelle


Comment empcher de faire un saut de page la mauvaise place?

J'ai une liste de projets qui prend 4 lignes pour chacun des
projets et je


ne veux pas qu'il insre des saut de page l'intrieur de ces 4
lignes.



Merci

rico








1 2