Vous venez de voir comment afficher clairement les commentaires des cellules dans une liste. Imaginez maintenant le scénario suivant: Vous travaillez sur une liste et souhaitez remplacer certaines cellules par de nouvelles valeurs. Cependant, les anciennes valeurs vous intéressent toujours et ne doivent pas complètement disparaître de la liste. Que diriez-vous parce que si vous mettiez ces anciennes entrées dans les commentaires? Cela signifie que les anciennes entrées sont toujours exactement à leur place, et  ne pas déranger et le tableau reste à jour. Pour cette tâche, créez la macro suivante dans l’extrait .

Sub CommentairesContenuCellules ()
Dim Komm As Comment
Dim cell As Object
For Each Cell In Selection
On Error Resume Next
  Set Komm = cell.addcomment
  Komm.Text Date & Chr (10) & Cell.Value
Next cell
End Sub

La macro du Listing  pousse le contenu des cellules individuelles dans une fenêtre de commentaire au sein de la sélection. Chaque commentaire est également indiqué la date du report. Vous pouvez alors saisir les nouvelles valeurs en toute tranquillité.

L’un de nos artciel précédent explique comment démarrer des macros à une vitesse fulgurante à l’aide de votre propre menu et de vos barres d’outils.