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

Comment imprimer toutes les règles de mise en forme conditionnelle dans une feuille de calcul?

Il est facile d'afficher toutes les règles de mise en forme conditionnelle dans une feuille de calcul en cliquant sur Accueil > Mise en forme conditionnelle > Gérer les règles dans Excel, mais savez-vous comment imprimer toutes les règles de mise en forme des conditions dans cette feuille de calcul? Cet article présentera un VBA pour résoudre ce problème.

Imprimer toutes les règles de mise en forme conditionnelle dans une feuille de calcul

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.


flèche bleue bulle droiteImprimer toutes les règles de mise en forme conditionnelle dans une feuille de calcul

Veuillez suivre les étapes ci-dessous pour imprimer toutes les règles de mise en forme conditionnelle dans une feuille de calcul par VBA.

1. Ouvrez la feuille de calcul spécifiée dont vous imprimerez les règles de mise en forme conditionnelle et appuyez sur autre + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre de module.

VBA: liste toutes les règles de mise en forme conditionnelle dans la feuille de calcul active

Sub M_snb()
Dim xRg As Range, xCell As Range
Dim xFormat As Object
Dim xFmStr, xFmAddress As String
Dim xDic As New Dictionary
Dim xSpArr, xOperatorArr
On Error Resume Next
Set xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If xRg Is Nothing Then Exit Sub
xDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"
If xSpArr.Count = 0 Then
xSpArr = Split("Cell Value|Expression|Color Scale|DataBar|Top 10|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
xOperatorArr = Split("xlBetween|xlNotBetween|xlEqual|xlNotEqual|xlGreater|xlLess|xlGreaterEqual|xlLessEqual", "|")
End If
For Each xCell In xRg
Set xFormat = xCell.FormatConditions(1)
xFmAddress = xFormat.AppliesTo.Address
If Not xDic.Exists(xFmAddress) Then
xDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrue
If Not IsEmpty(xFormat.Operator) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)
End If
If Not IsEmpty(xFormat.Formula1) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|'" & xFormat.Formula1
End If
End If
Next
If ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing Then
Sheets.Add.Name = "FmCondictionList"
End If
Sheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)
Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub

3Cliquez sur Outils > Références.

4. Dans la boîte de dialogue Références - VBAProject, veuillez cocher la case Exécution de scripts Microsoft option, et cliquez sur le OK bouton. Voir la capture d'écran:

5. Maintenant que vous revenez à la fenêtre du module, veuillez appuyer sur F5 ou cliquez sur la course bouton pour exécuter ce VBA.

Maintenant, une nouvelle feuille de calcul nommée "FmListeConditionnelle»Est créé et ajouté avant la feuille de calcul active. Et vous obtiendrez toutes les règles de mise en forme conditionnelle répertoriées dans cette feuille de calcul.

6Cliquez sur Déposez le > Impression > Impression pour imprimer la liste des règles de mise en forme conditionnelle.


flèche bleue bulle droiteArticles Liés:


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-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
Commentaires (8)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
cela ne fonctionne pas. Il crée l'onglet mais ne remplit pas les informations de mise en forme conditionnelle
Ce commentaire a été minimisé par le modérateur sur le site
Pour moi, cela a créé un onglet et rempli les informations, mais cela excluait une grande partie de la mise en forme conditionnelle n'était pas incluse. Au moment où je l'ai exécuté, j'avais configuré 112 règles de mise en forme conditionnelle, mais seulement 8 enregistrements affichés dans l'onglet.
Ce commentaire a été minimisé par le modérateur sur le site
Idem pour moi - il n'affichait que 7 règles de mise en forme conditionnelle sur 14. Y a-t-il une solution pour ça?
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne très bien, mais existe-t-il un moyen d'obtenir une boucle qui inclut tous les onglets ?
Ce commentaire a été minimisé par le modérateur sur le site
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou une gamme aurait plusieurs format conditionnels.
Ce commentaire a été minimisé par le modérateur sur le site
Malheureusement ne fonctionne pas (excel 2013).
Ce commentaire a été minimisé par le modérateur sur le site
Fonctionne bien!
Juste deux notes concernant les commentaires précédents :
* Microsoft Scripting Library doit être ajouté, sinon 'Dim xDic As New Dictionary' ne peut pas être interprété
* Si vous avez plus de 1 règles définies sur la même plage, seule la première sera répertoriée (le shell de code sera étendu avec un cycle de 1 à xCell.FormatConditions.Count)

Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Concernant le commentaire de @Eagle, j'ai modifié le code pour passer à 'xCell.FormatConditions.Count' et j'ai récupéré plus de conditions de format, mais pas toutes.
Il semble que ce changement ajoute les formats sur différentes plages pour la même cellule, mais pas les mêmes plages avec des formats différents pour la même cellule.
Je ne suis pas encore familier avec le code qui extrairait ces formats supplémentaires.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés