Passer au contenu principal

Comment insérer des sauts de page lorsque la valeur change dans Excel?

Supposons que j'ai une plage de cellules et que je souhaite maintenant insérer des sauts de page dans la feuille de calcul lorsque les valeurs de la colonne A changent comme illustré à gauche. Bien sûr, vous pouvez les insérer un par un, mais existe-t-il des moyens rapides d'insérer les sauts de page à la fois en fonction des valeurs modifiées d'une colonne?

Insérer des sauts de page lorsque la valeur change avec le code VBA

Insérez des sauts de page lorsque la valeur change avec une fonctionnalité puissante


Insérer des sauts de page lorsque la valeur change avec le code VBA

Le code VBA suivant peut vous aider à insérer des sauts de page ci-dessous en fonction des modifications apportées aux données de colonne, procédez comme suit:

1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: insérer des sauts de page lorsque la valeur change:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, tous les sauts de page ont été insérés dans la feuille lorsque les données changent dans la colonne A. Voir capture d'écran:

Remarque:Dans le code ci-dessus, A est l'en-tête de colonne sur lequel vous souhaitez insérer un saut de page, vous pouvez le modifier selon vos besoins.

Insérez des sauts de page lorsque la valeur change avec une fonctionnalité puissante

Si vous avez Kutools for Excel, Avec son Distinguer les différences fonctionnalité, vous pouvez insérer rapidement des sauts de page, des lignes vides, des lignes de bordure inférieure ou une couleur d'arrière-plan en fonction des changements de valeur. Cliquez pour télécharger Kutools for Excel!

Conseils:Appliquer cette Distinguer les différences fonctionnalité, tout d'abord, vous devez télécharger le Kutools for Excel, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1Cliquez sur Kutools > Format > Distinguer les différences, voir capture d'écran:

2. Dans le sauté Distinguer les différences par colonne clé boîte de dialogue, effectuez les opérations suivantes:

  • Sélectionnez la plage de données et la colonne clé que vous souhaitez utiliser;
  • Selectionnez Saut de page du Options boîte.

3. Puis clique Ok bouton, les sauts de page ont été insérés dans la plage en fonction des changements de valeur voir capture d'écran:

Téléchargez et essayez gratuitement Kutools pour Excel maintenant !


Articles plus relatifs:

  • Mettre les lignes en surbrillance lorsque la valeur de la cellule change dans Excel
  • S'il existe une liste de valeurs répétées dans votre feuille de calcul et que vous devez mettre en évidence les lignes en fonction de la colonne A, la valeur de la cellule change comme illustré dans la capture d'écran suivante. En fait, vous pouvez terminer rapidement et facilement ce travail en utilisant la fonction de mise en forme conditionnelle.
  • Incrémenter les nombres lorsque la valeur change dans une autre colonne
  • Supposons que vous ayez une liste de valeurs dans la colonne A et que vous souhaitiez maintenant incrémenter le nombre de 1 dans la colonne B lorsque la valeur de la colonne A change, ce qui signifie que les nombres de la colonne B augmentent jusqu'à ce que la valeur de la colonne A change, puis le l'incrément de nombre recommence à partir de 1 comme illustré sur la capture d'écran de gauche. Dans Excel, vous pouvez résoudre ce travail avec la méthode suivante.
  • Somme des cellules lorsque la valeur change dans une autre colonne
  • Lorsque vous travaillez sur une feuille de calcul Excel, vous devrez parfois additionner des cellules en fonction d'un groupe de données dans une autre colonne. Par exemple, ici, je veux additionner les commandes dans la colonne B lorsque les données changent dans la colonne A pour obtenir le résultat suivant. Comment pourriez-vous résoudre ce problème dans Excel?
  • Insérer des lignes vides lorsque la valeur change dans Excel
  • Supposons que vous ayez une plage de données et que vous souhaitiez maintenant insérer des lignes vides entre les données lorsque la valeur change, afin de pouvoir séparer les mêmes valeurs séquentielles dans une colonne comme les captures d'écran suivantes. Dans cet article, je vais vous parler de quelques astuces pour résoudre ce problème.
  • Exécuter la macro lorsque la valeur de la cellule change dans Excel
  • Normalement, dans Excel, nous pouvons appuyer sur la touche F5 ou sur le bouton Exécuter pour exécuter le code VBA. Mais avez-vous déjà essayé d'exécuter le code de macro spécifique lorsqu'une valeur de cellule change? Cet article, je vais vous présenter quelques astuces rapides pour gérer ce travail dans Excel.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For I = J To 21 Step -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Next I

End Sub

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations