Discussion :

[phal2ip]

Bonjour à tous,
Voilà j'ai un petit souci sur une macro dans laquelle je voudrais ajouter à un certain moment un saut de page horizontal.
Le saut de page s'ajoute mais lorsque je fais un aperçu avant impression il ne le prend pas en compte et donc les lignes suivantes ne changent pas de pages.
J'ai essayé et pris en compte ce que l'enregistreur de macro me donner mais sans résultat non plus...
VBA ne me fait aucune erreur pourtant, j'ai même essayé avec la sélection d'une cellule et/ou de la ligne mais rien n'y fait…
Voici la macro peut être que l'un d'entre vous pourra me trouver la solution où mon erreur…
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub copy()
 
    Cells(i, 7).Select
    If cases = "" Then
        Sheets(1).Range("A7") = Cells(i, 7).Value
        cases = Sheets(1).Range("A7").Value
    End If
    If cases <> Cells(i, 7).Value Then
        Sheets(1).Select
        Sheets(1).ResetAllPageBreaks
        Rows("7:7").copy
        Range("A" & ligne1 + 8).Select
        ligne5 = Selection.Row
        Rows(ligne5).Insert Shift:=xlDown
        Range("A" & ligne5).Select
'Ajout saut de Page sur cellule sélectionnée
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        Rows(ligne5).Select
'Ajout saut de Page sur ligne sélectionée
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        Range("A" & ligne5) = Sheets("OUTILLAGE UP").Cells(i, 7).Value
        cases = Sheets(1).Range("A" & ligne5).Value
        Sheets(1).Range("J6") = Sheets(1).Range("J6").Value + 1
        Sheets("OUTILLAGE UP").Select
        ligne2 = ligne2 + 1
    End If
    Sheets(1).Cells(ligne2, 1) = Cells(i, 1).Value
    Sheets(1).Cells(ligne2, 2) = Cells(i, 9).Value
    Sheets(1).Cells(ligne2, 3) = Cells(i, 2).Value
    Sheets(1).Cells(ligne2, 4) = Cells(i, 3).Value
    Sheets(1).Cells(ligne2, 5) = Cells(i, 4).Value
    Sheets(1).Cells(ligne2, 6) = Cells(i, 5).Value
    Sheets(1).Range("J6") = Sheets(1).Range("J6").Value + 1
    ligne1 = Sheets(1).Range("J6").Value
    ligne2 = ligne2 + 1
 
End Sub

[Gorfael]

Salut phal2ip et le forum
Bien ton code... mais sans une idée de la valeur des variables globales...
Alors que quelques idées :
- utiliser les .selected/selection est une aberration à mon sens.
- Tu travaillles sur Sheets(1) et tu mets

Code :

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

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Pourquoi ? Pourquoi pas simplement

Code :

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

Sheets(1).HPageBreaks.Add Before:=ActiveCell

Ça me semble plus simple (sauf pour le ActiveCell).

Code :

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

1
2
3
4
5
6
        Range("A" & ligne5).Select
'Ajout saut de Page sur cellule sélectionnée
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        Rows(ligne5).Select
'Ajout saut de Page sur ligne sélectionée
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

??? tu sélectionnes A ligne5 et tu mets un saut de page => admettons. Tu sélectionnes la ligne (Ligne5) => ce qui active la cellule déjàsélectionnée et tu ajoutes un saut de page . ???? Tu ne peux avoir qu'un seul saut de page par ligne !
Un petit tour de magie :

Code :

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

1
2
3
4
5
6
7
8
9
        Range("A" & ligne1 + 8).Select
        ligne5 = Selection.Row
        Rows(ligne5).Insert Shift:=xlDown
        Range("A" & ligne5).Select
'Ajout saut de Page sur cellule sélectionnée
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        Rows(ligne5).Select
'Ajout saut de Page sur ligne sélectionée
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Abracadabra

Code :

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

1
2
3
4
        ligne5 = ligne1 + 8
        Rows(ligne5).Insert Shift:=xlDown
'Ajout saut de Page sur cellule sélectionnée
        ActiveSheet.HPageBreaks.Add Before:=Rows(ligne5)

C'est une cure d'amaigrissement rapide, non ?
J'ai pas pu tester, un tas de variables, données son manquantes...
A+

[phal2ip]

Merci pour cette petite info, je vais tester et te dire cela marche ou pas.
Pour le cas du 2ème saut de page c'était juste un test car j'avais essayé en sélectionnant uniquement la cellule de la ligne pour y intégrer le saut d epage ou en sélectionnant la ligne.
J'ai laissé les 2 dans le code pour vous montrer que j'ai tout essayer mais rien n'y faisais...
Je vais essayé et vous tient au courant...

Merci encore

[phal2ip]

J'ai tester et le résultat et le même qu'avant...
En fait je pars d'un tableau avec des périodicités mensuelle, bi-mensuelle, trimestrielle, semestrielle ou annuelle et en choisissant un mois d'impression, je veux faire apparaître sur l'onglet du mois en question la première équipe avec tous ces outils à vérifié, puis lorsqu'il y a une 2ème équipe mettre le saut de page avant afin qu'elle apparaisse sur une autre page et remplir tout…
Le fichier marche très bien sauf cette histoire de saut de page…
Faites le test en cliquant sur Macro puis sur Impression par mois et sélectionner Février.

[phal2ip]

Bonjour après maintes tentatives je ne trouve tjs pas la solution pourquoi il ne me prend pas les sauts de page en compte alors qu'ils existent...
S'il vous plait quelqu'un pourrait-il m'aider???

[babaothe]

Bonjour,

que sont les variables cases et i dans :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub copy()
 
 Cells(i, 7).Select
    If cases = "" Then
        Sheets(1).Range("A7") = Cells(i, 7).Value
        cases = Sheets(1).Range("A7").Value
    End If
    If cases <> Cells(i, 7).Value Then
...
...

et que valent-elles ?