[VBA-E] Savoir si une cellule contient un commentaire.

Bonjour,

Dans mon script VBA (avec Excel), j'utilise le commentaire d'une cellule.
Come celà :

Code:

---

Worksheets(feuille).Range("A1").Cells(ligne, colonne).Comment.Text

---

Cependant, si la cellule n'a pas de commentaire j'ai le droit à une jolie erreur fatale :cry:

Je voudrais donc rajouter un "Si la cellule contient un commentaire", mais ne trouve pas la commande adéquate... :oops:

Merci d'avance !!

Code:

---

if Worksheets(feuille).Range("A1").Cells(ligne, colonne).Comment.Text <> "" then

---

non?!

Pourquoi ne pas fair eune gestion d'erreur sur l'erreur qu'elle te marque quand il n'y a pas de commentaire ? :)

Certes c'est un peu bourrin j'avoue :mrgreen:

Sinon je ferai une condition d'existence sur la cellule pour voir si le commentaire existe..Vais essayer de regarder si on peut :)

Citation:

---

Envoyé par ouskel'n'or

malhivertman1, tu devrais vérifier ton code avant de poster une réponse ;)

---

lol en fait je n'utilise pas VBA c'est pour ça qu'a la fin j'ai mis "non?!" parce que je n'étais pas sur. mais je m'abstiendrai la prochaine fois :D

malhivertman1 j'avais testé, mais ça ne marche pas car s'il n'y a pas de commentaire, ce n'est pas pareil que si le commentaire était vide.

L'erreur arrive s'il n'y a pas de commentaire.

Euh sinon je ne sais pas comment on gère les erreurs.... :oops:

Va voir la ça t'aidera surement :

http://access.developpez.com/faq/?pa...#ErrorMsgPerso

Sinon, avec la fonction isnull, ca ne marcherai pas? (pas testé)

Nan ça ne marchera pas ;) enfin je pense pas, vu que c'est une erreur pour voir s'il y a un commentaire, non pas pour voir si la cellule est vide :D

Merci bien !

Je m'en suis sorti tout simplement à la méthode surement que vous qualifiez de bourrin lol :

Code:

---

1 2 3

On Error GoTo suite Ma requête avec Range.Comment.Text suite:

---

Etant donné que si la cellule n'a pas de commentaire, je ne veux rien faire de spécial ;)

merci !

C'est vrai qu'on pense jamais à faire des "for each" :? et pourtnt parfois ça éviterai bien des lignes de code :D

En fait je suis déjà dans une foreach sur une plage de dimension 3 colonne 100 lignes, et je veux récupérer les infos de chaque ligne, et je ne peux pas faire une autre for each dedans... mais merci quand meme !

bonsoir,

un an et demi plus tard
ça servira à d'autres

Code:

---

If Not Cells(i, 1).Comment Is Nothing Then

---

cordialement

EDIT Salut Ouskel'n'or j'ai encore des toiles d'araignées plein les mains

Hello Fred, tu as secoué la poussière avant de sortir cette discussion du grenier ? :mouarf:

Citation:

---

Envoyé par fred65200

bonsoir,

un an et demi plus tard
ça servira à d'autres

Code:

---

If Not Cells(i, 1).Comment Is Nothing Then

---

cordialement

EDIT Salut Ouskel'n'or j'ai encore des toiles d'araignées plein les mains

---

En tout cas merci fred65200 d'avoir sorti ce topic du grenier, ta solution me convient à merveille :D

Citation:

---

Envoyé par fred65200

bonsoir,

un an et demi plus tard
ça servira à d'autres

Code:

---

If Not Cells(i, 1).Comment Is Nothing Then

---

cordialement

EDIT Salut Ouskel'n'or j'ai encore des toiles d'araignées plein les mains

---

Merci Fred, des dizaines d'année plus tard, ça aide toujours ton post.