Bonjour à tous,

Je cherche à créer un commentaire pour chaque cellule de la colonne A.
Le commentaire contient le texte de chaque cellule.

En fouillant à droite à gauche dans le forum, je suis parvenu à faire ce petit code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Activate()
 With Range("A1")
   If .Comment Is Nothing Then Range("A1").AddComment
   .Comment.Text Text:=Sheets("Feuil1").[A1].Value
   .Comment.Shape.TextFrame.Characters.Font.Size = 12
.Comment.Shape.ScaleWidth 2.5, msoFalse, msoScaleFromTopLeft
 .Comment.Shape.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
  End With
End Sub
Je souhaiterais appliquer cette macro à toutes les cellules non vides de ma colonne A. Il n'y a pas de cellule vide dans la colonne.

Je suis bloqué là.
Merci de votre aide.