Tester si une cellule contient un commentaire [Résolu]

Messages postés
37
Date d'inscription
jeudi 28 septembre 2006
Statut
Membre
Dernière intervention
18 juin 2007
- - Dernière réponse : shorzy
Messages postés
94
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
1 juin 2013
- 12 janv. 2007 à 20:01
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?
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
4
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 158 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Molenn
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
0
Merci
T'as mis un End If, Monsieur ?
Commenter la réponse de jmfmarques
Messages postés
37
Date d'inscription
jeudi 28 septembre 2006
Statut
Membre
Dernière intervention
18 juin 2007
0
Merci
Eh oui, quand même, je me serai pas permis sinon!
Précision : j'ai mis un sub et un end sub aussi
Commenter la réponse de gregcitt
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
0
Merci
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 ?
Commenter la réponse de jmfmarques
Messages postés
37
Date d'inscription
jeudi 28 septembre 2006
Statut
Membre
Dernière intervention
18 juin 2007
0
Merci
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 
Commenter la réponse de gregcitt
Messages postés
37
Date d'inscription
jeudi 28 septembre 2006
Statut
Membre
Dernière intervention
18 juin 2007
0
Merci
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
Commenter la réponse de gregcitt
Messages postés
94
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
1 juin 2013
0
Merci
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
Commenter la réponse de shorzy