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

gregcitt 37 Messages postés jeudi 28 septembre 2006Date d'inscription 18 juin 2007 Dernière intervention - 14 déc. 2006 à 11:49 - Dernière réponse : shorzy 94 Messages postés jeudi 23 novembre 2000Date d'inscription 1 juin 2013 Dernière intervention
- 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
Molenn 797 Messages postés mardi 7 juin 2005Date d'inscription 23 février 2011 Dernière intervention - 14 déc. 2006 à 12:15
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

Merci Molenn 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de Molenn
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 14 déc. 2006 à 12:03
0
Merci
T'as mis un End If, Monsieur ?
Commenter la réponse de jmfmarques
gregcitt 37 Messages postés jeudi 28 septembre 2006Date d'inscription 18 juin 2007 Dernière intervention - 14 déc. 2006 à 12:06
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
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 14 déc. 2006 à 12:11
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
gregcitt 37 Messages postés jeudi 28 septembre 2006Date d'inscription 18 juin 2007 Dernière intervention - 14 déc. 2006 à 12:18
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
gregcitt 37 Messages postés jeudi 28 septembre 2006Date d'inscription 18 juin 2007 Dernière intervention - 14 déc. 2006 à 12:22
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
shorzy 94 Messages postés jeudi 23 novembre 2000Date d'inscription 1 juin 2013 Dernière intervention - 12 janv. 2007 à 20:01
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.