Comment exporter tous les commentaires du classeur actuel vers une nouvelle feuille de calcul ou un autre classeur dans Excel ?
Si vous disposez d’un classeur contenant trop de commentaires et que vous souhaitez les lister tous vers un(e) Nouvelle feuille de calcul ou un classeur afin de les relire, que faire ? Les méthodes suivantes vous permettent de lister rapidement tous les commentaires d’une feuille de calcul ou d’un classeur vers un(e) Nouvelle feuille de calcul ou un classeur dans Excel.
Utiliser un code VBA pour lister tous les commentaires du Classeur actuel vers un(e) Nouvelle feuille de calcul
Le code VBA suivant listera tous les commentaires du Classeur actuel vers un(e) Nouvelle feuille de calcul. Dans le Nouvelle feuille de calcul, il listera tous les commentaires du classeur entier sous forme de liste comprenant le nom de la feuille, l’adresse de la cellule, le contenu du commentaire et le nom de la cellule. Veuillez procéder comme suit :
1. Cliquez sur « Développeur » > « Visual Basic » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ». Ensuite, cliquez sur « Insertion » > « 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. Cliquez ensuite sur le bouton 
pour exécuter le code et obtenez une nouvelle feuille de calcul contenant tous les commentaires du classeur actuel. Voir la capture d’écran :
Utiliser Kutools pour Excel pour lister tous les commentaires du Classeur actuel vers un(e) Nouvelle feuille de calcul ou un classeur
Grâce à la fonction « Créer une liste de commentaires » de Kutools pour Excel, listez rapidement tous vos commentaires dans une nouvelle feuille de calcul ou un nouveau classeur.
Kutools pour Excel : plus de 300 compléments Excel ultra-pratiques, essayez-les gratuitement et sans aucune limite pendant 30 jours.Téléchargez dès 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 dont vous souhaitez afficher les commentaires : « Feuille de calcul actuelle » ou « Toutes les feuilles ».
- Ensuite, indiquez l’emplacement où vous souhaitez insérer la liste des commentaires : vous pouvez les afficher dans un nouveau classeur ou une nouvelle feuille. Voir la capture d’écran :
3. Cliquez ensuite sur le bouton « Créer ». Une nouvelle feuille de calcul sera automatiquement ajoutée pour répertorier tous les commentaires de la feuille active, accompagnés de leurs attributs : nom de la feuille, références de cellule, ligne et colonne. Voir la capture d’écran :
Pour en savoir plus sur la fonctionnalité « Créer une liste de commentaires », consultez la description détaillée de Créer une liste de commentaires.
Articles associés :
- Modifier tous les formats de commentaires dans les cellules
- Modifier le nom de l’auteur de tous les commentaires
- Texte Rechercher et remplacer au sein des 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é Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels