Discussion :

[$p00ky]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci d'avance !!

[malhivertman1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

non?!

[illight]

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

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

[malhivertman1]

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

[$p00ky]

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....

[illight]

Va voir la ça t'aidera surement :

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

[malhivertman1]

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

[illight]

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

[$p00ky]

Merci bien !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[illight]

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

[$p00ky]

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 !

[fred65200]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

[djm69]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mikeramby]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.