condition sur commentaire

**kbakouan** · 05/09/2007, 16h15

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.

**Plateforme3** · 05/09/2007, 16h22

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

**jfontaine** · 05/09/2007, 16h41

Je mettrais plutot un

Code :

On error Resume Next

ce qui evitera de sortir de la boucle

**SilkyRoad** · 05/09/2007, 17h14

bonjour

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

Code :

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

**kbakouan** · 07/09/2007, 10h03

Merci§ ca marche!!

Macros et VBA Excel