Accéder au contenu principal

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: 2025-05-27

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évolutionner l'analyse des données basée 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 améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   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 multi-sélection ....
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 & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/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 ensembles d'outils12 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 plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office, et facilite grandement 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 pour vous chaque jour !