Saut de page automatique
noxfsy
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
noxfsy -
noxfsy -
Bonjour a tous,
J'ai fais de nombreuse recherche sur le net et je ne trouve pas clairement comment réaliser des sauts de page automatique en fonction d'un tableau avec visual basic.
J'ai trouvé des breves pour supprimer les sauts de pages et les ajouter:
Sub sdpauto()
With ActiveSheet
'supprime tous les sauts de pages
On Error Resume Next
Forx=.HPageBreaks.Count step-1
.HPageBreaks(X).Delete
Next
.HPageBreaks(X).Delete
Next
On Error GoTo o
'ajoute un saut de page quand la valeur de la 1ere colonne change.
c = 3
Do While Not IsEmpty(Cells(c, 1).Value)
If Cells(c - 1, 1).Value <> _
Cells(c, 1).Value Then
.HPageBreaks.Add
before = Cells(c, 3)
End If
c = c + 1
Loop
End With
End Sub
CETTE SI NE FONCTIONNE PAS
Moi je cherche pour mettre des sauts de page automatique des le changement de valeur texte dans une colonne C a partir de la ligne numéro 2.
Pouvez-vous m'aider a réaliser cette macro, mais surtout comprendre comment a la réaliser pour changer la colonne et le depart?
Merci d'avance pour tout
J'ai fais de nombreuse recherche sur le net et je ne trouve pas clairement comment réaliser des sauts de page automatique en fonction d'un tableau avec visual basic.
J'ai trouvé des breves pour supprimer les sauts de pages et les ajouter:
Sub sdpauto()
With ActiveSheet
'supprime tous les sauts de pages
On Error Resume Next
Forx=.HPageBreaks.Count step-1
.HPageBreaks(X).Delete
Next
.HPageBreaks(X).Delete
Next
On Error GoTo o
'ajoute un saut de page quand la valeur de la 1ere colonne change.
c = 3
Do While Not IsEmpty(Cells(c, 1).Value)
If Cells(c - 1, 1).Value <> _
Cells(c, 1).Value Then
.HPageBreaks.Add
before = Cells(c, 3)
End If
c = c + 1
Loop
End With
End Sub
CETTE SI NE FONCTIONNE PAS
Moi je cherche pour mettre des sauts de page automatique des le changement de valeur texte dans une colonne C a partir de la ligne numéro 2.
Pouvez-vous m'aider a réaliser cette macro, mais surtout comprendre comment a la réaliser pour changer la colonne et le depart?
Merci d'avance pour tout
A voir également:
- Saut de page automatique word
- Supprimer une page word - Guide
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Réponse automatique thunderbird - Guide
- Sommaire automatique word - Guide
5 réponses
Bonjour,
Sub sdpauto()
On Error Resume Next
With ActiveSheet
'supprime tous les sauts de pages
For x = .HPageBreaks.Count To 0 Step -1
.HPageBreaks(x).Delete
Next
On Error GoTo 0
'ajoute un saut de page quand la valeur de la 1ere colonne change.
c = 3
Do While Not IsEmpty(Cells(c, 1).Value)
If Cells(c - 1, 1).Value <> Cells(c, 1).Value Then
.HPageBreaks.Add <gras>Before:=Cells(c, 3)</gras>
End If
c = c + 1
Loop
End With
End Sub
