Comment lister tous les commentaires du classeur actuel dans une nouvelle feuille de calcul ou un nouveau classeur dans Excel ?
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
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 sur pour exécuter le code, et vous obtiendrez une nouvelle feuille de calcul contenant tous les commentaires du classeur actuel. Voir capture d'écran :
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 :
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 :
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 :
- Modifier tous les formats de commentaires dans les cellules
- Modifier tous les noms d'auteurs des commentaires
- Rechercher et remplacer du texte dans les commentaires
- Afficher ou masquer tous les commentaires et indicateurs de commentaires dans Excel
- Convertir le contenu des cellules en commentaires dans Excel
- Convertir les commentaires en contenu de cellules dans Excel
Meilleurs outils de productivité pour Office
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 !