VBA - Gestion des commentaires

[sunguess]

Bonjour,

Je n'arrive pas à gerer les commentaires avec le VBA, pourtant ce que je souhaite faire est très simple.

Je souhaite copier le texte d'une cellule pour l'ajouter en commentaire dans la cellule d'à coté. Est ce réalisable ?

Exemple :
La cellule A2 contient "Présent" et la cellule A3 contient Pierre. La macro vient copier "Présent" et le mettre en commentaire de Pierre.

D'avance merci pour votre aide.

 

[WUTED]

Re : VBA - Gestion des commentaires

Bonjour sunguess,

Essaie ça :

Range("A3").AddComment Range("A2").Value

 

[Guest]

Re : VBA - Gestion des commentaires

Bonjour,

Sub AjCommentaire()
With Range("B2")
 If .Value <> "" And .Offset(, -1) <> "" Then
    If .Comment Is Nothing Then .AddComment
    .Comment.Shape.TextFrame.Characters.Text = .Offset(, -1).Text
 End If
End With
End Sub

A+

 

[sunguess]

Re : VBA - Gestion des commentaires

Merci ca marche nickel