recopier commentaire si ....................

[pascal21]

For Each c In Range("d5", [d65000].End(xlUp))
 Sheets("lettre d'information").Range("a23") = c.Comment.Text
 Next c

bonjour à tous
ce code me permet de recopier un commentaire situé dans la feuille "évènements" de la colonne D
mais s'il n'y a pas de commentaire, j'ai une erreur; forcément!!!
comment écrire en vba ceci
si dernière cellule colonne D à un commentaire alors le recopier dans la feuille "lettre d'information" cellule a23
sinon si pas de commentaire alors rien
pour faire court: comment recopier un commentaire quand il y en a un
merci de votre aide

 

[phlaurent55]

Re : recopier commentaire si ....................

Bonjour Pascal,

as-tu essayé:

For Each c In Range("d5", [d65000].End(xlUp))
On Error Resume Next
Sheets("lettre d'information").Range("a23") = c.Comment.Text
Next c

à+
Philippe

 

[pascal21]

Re : recopier commentaire si ....................

bonjour phlaurent
effectivement avec ce " on error resume next"
ça fonctionne
merci
mais quel est la fonction de ce code exactement
ne serait-ce pas l'équivalent de esterreur dans les formules

 

[phlaurent55]

Re : recopier commentaire si ....................

Re,

avec cette nouvelle ligne dans le code, toute erreur rencontrée sera ignorée


à+
Philippe

 

[Pierrot93]

Re : recopier commentaire si ....................

Bonjour,

pour éviter le "on error resume next" :

Dim c As Range
For Each c In Range("d5", [d65000].End(xlUp))
    If Not c.Comment Is Nothing Then Sheets("lettre d'information").Range("a23") = c.Comment.Text
Next c

A noter qu'en l'état ta cellule A23 ne contiendra que le dernier commentaire trouvé dans la dolonne D...

bonne journée
@+

 

[BOISGONTIER]

Re : recopier commentaire si ....................

Bonjour,

If Not c.Comment Is Nothing Then Sheets("xxxx").Range("a23") = c.Comment.Text

JB