Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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.

2. Cliquez 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:

A Noter: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 pour 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 pour Excel, puis appliquez la fonction rapidement et facilement.

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

1. Cliquez 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;
  • Choisissez des Saut de page du Les 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 for Excel Now!


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.

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Wilco · 1 years ago
    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.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      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!
  • To post as a guest, your comment is unpublished.
    Mike MItsch · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    GUEST · 2 years ago
    Sorry. EDIT: The first ROW is a column header.
  • To post as a guest, your comment is unpublished.
    GUEST · 2 years ago
    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.