Test pour savoir si il existe déjà un commentaire

[Titi_Malembourg]

Bonjour à tous,

J'utilise
Selection.AddComment.Text 'Numéro de la Tache'
pour insérer un commentaire.
Cependant, quelle est la commande pour tester si un commentaire est déjà mis ? En effet, si un commentaire est déjà mis, je me retrouve avec un message d'erreur !!!
Merci pour votre aide précieuse.

Bonne fin de journée, Thierry.

 

[Gael]

Bonjour Thierry,

Sous toutes réserves car je n'ai pas testé.

NbrCar(CelluleActive.TexteAnnotation()) > 0

J'ai trouvé cette formule dans les équivalents VBA des formules macros XL4.

@+

Gael

 

[2passage]

Re:Test pour savoir si il existe déjà un commentai

Bonjour,

c'est vrai que cette propriété est très.. co... bizarre... en fait faut le tester sur 'nothing' et il reclame un with.. moué.. très bizarre...

With ActiveCell
    If .Comment Is Nothing Then
        MsgBox 'No comment !!'
    Else
        MsgBox ActiveCell.Comment.Text
    End If
End With

Enjoy

 

[Titi_Malembourg]

Re:Test pour savoir si il existe déjà un commentai

Merci à vous deux