Comment réinitialiser toutes les positions des commentaires dans Excel ?

Dans une feuille de calcul contenant plusieurs commentaires, il est parfois nécessaire d'ajuster ou de déplacer la position de la boîte de commentaire pour voir le contenu de la cellule derrière la boîte de commentaire. Dans ce cas, les boîtes de commentaires seront déplacées vers différentes positions. Après avoir terminé l'opération, vous devez ramener les boîtes de commentaires à leur position d'origine. Comment pourriez-vous réinitialiser toutes les positions des commentaires en une seule fois dans Excel ?

Réinitialiser toutes les positions des boîtes de commentaires avec du code VBA dans Excel
Un clic pour réinitialiser toutes les positions des boîtes de commentaires avec Kutools pour Excel

Réinitialiser toutes les positions des boîtes de commentaires avec du code VBA dans Excel

Vous pouvez appliquer le code VBA suivant pour restaurer toutes les boîtes de commentaires à leurs positions d'origine en une seule fois.

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Réinitialiser toutes les positions des commentaires dans la feuille active

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et toutes les positions des commentaires dans la feuille active seront réinitialisées en une seule fois. Voir les captures d'écran :

Réinitialiser toutes les positions des boîtes de commentaires en un seul clic

Ici, nous introduisons l'utilitaire Réinitialiser la position des commentaires de Kutools pour Excel. Avec cet utilitaire, vous pouvez rapidement réinitialiser toutes les positions des commentaires dans la feuille active ou dans toutes les feuilles en un seul clic.

1. Si vous souhaitez simplement réinitialiser toutes les positions des boîtes de commentaires dans la feuille active, veuillez cliquer sur Kutools > Plus > Réinitialiser la position des commentaires > Feuille active.

Pour réinitialiser toutes les positions des boîtes de commentaires dans toutes les feuilles du classeur actuel, veuillez cliquer sur Kutools > Plus > Réinitialiser la position des commentaires > Toutes les feuilles. Voir la capture d'écran :

Après avoir cliqué sur Feuille active ou Toutes les feuilles, toutes les positions des commentaires dans la feuille active ou dans toutes les feuilles seront immédiatement réinitialisées à leurs positions d'origine.

Démo : Un clic pour réinitialiser toutes les positions des boîtes de commentaires avec Kutools pour Excel

Articles connexes :

• Comment changer la couleur de l'indicateur de commentaire dans Excel ?
• Comment mettre en surbrillance toutes les cellules avec des commentaires dans Excel ?
• Comment ajouter automatiquement la date et l'heure à un commentaire dans Excel ?