Commentaire sur toute une plage de cellule

[trazer]

Slaut le forum,

comment peut-on insérer un commentaire sur toute une plage de cellule, svp ?

Merci d'avance.

 

[Hellboy]

Bonjour

Comme ceci:

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

Message édité par: Hellboy, à: 20/03/2006 11:25

 

[Robert]

Bonjour Trazer, bonjour le forum,

Tu peux placer le commentaire dans une cellule puis faire Copier, sélectionner la plage puis faire Collage spécial... et choisir l'option Commentaire.

Édition :

Bonjour Philippe on s'est croisés...

Message édité par: Robert, à: 20/03/2006 11:27