Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment lister tous les commentaires du classeur actuel dans une nouvelle feuille de calcul ou un nouveau classeur dans Excel ?

Author Tech Support Last modified

Si vous avez un classeur contenant trop de commentaires et que vous souhaitez lister tous ces commentaires dans une nouvelle feuille de calcul ou un nouveau classeur pour les examiner, comment pouvez-vous procéder ? Les méthodes suivantes peuvent vous aider à lister rapidement tous les commentaires d'une feuille de calcul/classeur dans une nouvelle feuille de calcul ou un nouveau classeur dans Excel.

Utiliser le code VBA pour lister tous les commentaires du classeur actuel dans une nouvelle feuille de calcul

Utiliser Kutools pour Excel pour lister tous les commentaires du classeur actuel dans une nouvelle feuille de calcul ou un nouveau classeur


Utiliser le code VBA pour lister tous les commentaires du classeur actuel dans une nouvelle feuille de calcul

Le code VBA suivant listera tous les commentaires du classeur actuel dans une nouvelle feuille de calcul. Dans cette nouvelle feuille de calcul, il affichera tous les commentaires du classeur entier sous forme de liste avec le nom de la feuille, l'adresse de la cellule, le contenu des commentaires et le nom de la cellule. Veuillez utiliser cette méthode comme suit :

1. Cliquez sur "Développeur" > "Visual Basic", ce qui ouvre la fenêtre "Microsoft Visual Basic pour Applications". Ensuite, cliquez sur "Insérer" > "Module", puis saisissez le code VBA suivant dans le module.

VBA : liste tous les commentaires dans une nouvelle feuille de calcul.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Ensuite, cliquez surrun vba code button pour exécuter le code, et vous obtiendrez une nouvelle feuille de calcul contenant tous les commentaires du classeur actuel. Voir capture d'écran :

all comments are displayed in whole workbook


Utiliser Kutools pour Excel pour lister tous les commentaires du classeur actuel dans une nouvelle feuille de calcul ou un nouveau classeur

Avec l'outil "Créer une liste de commentaires" de "Kutools pour Excel", vous pouvez rapidement lister tous les commentaires dans une nouvelle feuille de calcul ou un nouveau classeur.

Kutools pour Excel : plus de 300 outils pratiques pour Excel, essai gratuit sans limitation pendant 30 jours. Obtenez-le maintenant.

1. Si vous avez installé Kutools pour Excel, cliquez sur "Kutools" > "Plus" > "Créer une liste de commentaires."

2. Dans la boîte de dialogue "Créer une liste de commentaires" :

  • Sélectionnez la portée où vous souhaitez lister les commentaires, vous pouvez choisir "Feuille en cours" ou "Toutes les feuilles".
  • Ensuite, spécifiez l'emplacement où vous souhaitez placer la liste des commentaires, vous pouvez lister les commentaires dans un nouveau classeur ou une nouvelle feuille. Voir capture d'écran :

create comment list with kutools

3. Puis cliquez sur le bouton "Créer". Une nouvelle feuille de calcul sera ajoutée pour lister tous les commentaires de la feuille active avec leurs attributs tels que le nom de la feuille, les références de cellules, les lignes et les colonnes. Voir capture d'écran :

create comment list with kutools to get the result

Pour plus d'informations détaillées sur "Créer une liste de commentaires", veuillez consulter la description de la fonctionnalité Créer une liste de commentaires.


Articles connexes :

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionnez l'analyse de données avec : Exécution intelligente | Générer du code | Créer des formules personnalisées | Analyser des données et générer des graphiques | Appeler les Fonctions améliorées de Kutools
Fonctionnalités populaires : Trouver, mettre en évidence ou marquer les doublons | Supprimer les lignes vides | Combinez les colonnes ou les cellules sans perte de données | Arrondir sans formule...
Super RECHERCHEV : Recherche multi-critères | Recherche multi-valeurs | Recherche multi-feuilles | Correspondance floue...
Liste déroulante avancée : Créer 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 des Colonnes | Alterner l’état de visibilité des Colonnes masquées | Comparer des plages & Colonnes...
Fonctionnalités phares : Mise au point de la grille | Affichage de conception | Barre de formule améliorée | Gestionnaire de Classeur & Feuille de calcul | Bibliothèque d’AutoTexte | Sélecteur de date | Merge Worksheets | Chiffrer/Déchiffrer les cellules | Envoyer un e-mail par liste | Super Filtre | Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...)...
Top15 des ensembles d’outils :12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...) |50+ Types de graphiques (Diagramme de Gantt, ...) |40+ Formules pratiques (Calculer l’âge en fonction de la date de naissance, ...) |19 outils d’insertion (Insérer un code QR, Insérer une image depuis le chemin, ...) |12 outils de conversion (Convertir en mots, Conversion de devises, ...) |7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...) | ... et bien plus encore
Utilisez Kutools dans la langue de votre choix – disponible en Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres !

Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.

  • Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !

Tous les modules complémentaires Kutools. Une seule installation

La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un installateur, une licence — installation en quelques minutes (compatible MSI)
  • Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
  • Essai complet30 jours — sans inscription, ni carte bancaire
  • Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels