T
trazer
Guest
Slaut le forum,
comment peut-on insérer un commentaire sur toute une plage de cellule, svp ?
Merci d'avance.
comment peut-on insérer un commentaire sur toute une plage de cellule, svp ?
Merci d'avance.
Public Sub AjoutComments()
Dim vrtCell As Variant
For Each vrtCell In ActiveSheet.Range('A1:A10')
With vrtCell
.AddComment
With .Comment
.Visible = True
.Text Text:='Et Voilà' & Chr(10) & 'Test'
End With
End With
Next vrtCell
End Sub