Note: The other languages of the website are Google-translated. Back to English

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. Cliquer 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échargement et essai gratuit Kutools for 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.

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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes 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
Commentaires (8)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour je vous remercie! La pensée de VBA me fait transpirer. J'ai cependant un problème avec les résultats de ce code. La première colonne est un en-tête de colonne. Le code traite cela comme un changement. Ma première page ne montre que l'en-tête de colonne, mais les pages suivantes sont correctes. Pour votre information : il s'agit d'un rapport mensuel et le nombre de lignes pour chaque critère change tous les mois. Des idées? Merci en avance.
Ce commentaire a été minimisé par le modérateur sur le site
Désolé. EDIT : La première ligne est un en-tête de colonne.
Ce commentaire a été minimisé par le modérateur sur le site
C'est vraiment génial ! J'ai suivi votre exemple VB et cela a fonctionné! Je suis également propriétaire de KUTools, donc je vais jouer avec ça aussi.

Très impressionné et merci!

Michel
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de sauter les 20 premières lignes de la feuille ? Si j'ai essayé toutes sortes de choses, mais ma connaissance de VBA est trop limitée pour ajuster le code moi-même.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Wilco,
Pour insérer le saut de page mais ignorer les 20 premières lignes, il vous suffit de modifier un paramètre comme ci-dessous :

Sous insertpagebreaks()

'mise à jour par Extendoffice

Dim I As Long, J As Long

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

Pour I = J à 21 Étape -1

Si Plage("A" & I).Valeur <> Plage("A" & I - 1).Valeur Alors

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

Si fin

Ensuite je

End Sub

S'il vous plaît essayez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Lê Tuấn
Pour résoudre votre problème, veuillez appliquer le code VBA ci-dessous :
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


S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le 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 !
Il n'y a pas encore de commentaires postés ici

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL