condition sur commentaire

slt

j'ai plus cellule avec ou sans commentaire.
Je voudais faire une boucle pour savoir si la cellule selectionnée contient ou pas de commentaires.

Code:

---

1 2 3 4 5 6 7

variable = Cells(k, ProjectListAdrCol + 1).Comment.Text   If variable <> "" Then .... end if

---

Mon problème est que ça plante à chaque fois et je n'ai aucune autre solution.


Merci d'avance.

Bonjour
VBA te renvoie une erreur quand il n'y a pas de commentaire
Tu peux rajouter un:

Code:

---

On Error Goto ..

---

au début de ton code, puis gérer le problème ainsi
Slts

Je mettrais plutot un

Code:

---

On error Resume Next

---

ce qui evitera de sortir de la boucle

bonjour

Il n'est pas nécessaire d'utiliser le gestionnaire d'erreur

Code:

---

If Range("A1").Comment Is Nothing Then

---

http://excel.developpez.com/faq/?pag...t#VerifComment


bonne soirée
michel

Merci§ ca marche!!