Tester si une cellule contient un commentaireRésolu

Question

Hé Chicos,

Je cherche à tester si une cellule contient un commentaire, car dans le cas où elle n'e  a pas je souhaite en ajouter un. ça je sais je faire, avec addcomment.
Ce à quoi je pensai c'est :

If ActiveCell.Comment = "" Then
    Range(cjour).AddComment

Mais il ne reconnait  pas la ligne contentant le "IF"
Y a t-il des idées messieurs?

Molenn · Accepted Answer

C'était presque ça ^^
.Comment ne gère à priori que l'ajout et le contenu des commentaires.
Pour le lire, il faut utiliser la propriété .NoteText

Exemple :
If Range("A1").NoteText = "" Then
        MsgBox "Pas de commentaire"
        Else
        MsgBox Range("A1").NoteText
End If

Molenn

jmfmarques · Answer

T'as mis un End If, Monsieur ?

gregcitt · Answer

Eh oui, quand même, je me serai pas permis sinon!
Précision : j'ai mis un sub et un end sub aussi

jmfmarques · Answer

Bon ....

Je ne connais rien à VBA, mais il me semble que si l'on se référère au texte du commentaire, c'est :
ActiveCell.Comment.Text
que l'on écrit...
Non ?

gregcitt · Answer

Exact, j'ai essayé aussi.
Ce test ne marche que si il existe déjà un commentaire.
Je me demandais s'il n'y avait pas un truc du genre If Exists comme sur SQL
ça va pour qqn qui connais rien

gregcitt · Answer

Cest exactement ça, avec le NoteText, il est possible de faire le test.
Merci et gardez du temps pour aller acheter les cadeaux pour les futurs ingénieurs

shorzy · Answer

Yeeh Baby
Si le code de Molenn est bon, ajoute ceci ...

On Error resume next
If Range("A1").NoteText = "" Then
        MsgBox "Pas de commentaire"
        Else
        MsgBox Range("A1").NoteText
End If

Tester si une cellule contient un commentaire

7 réponses

Votre réponse

Discussions similaires