copie de commentaire

[kordic]

salut tout le monde et merci a l avance

j ai un commande qui se lit comme ceci
ActiveCell = Worksheets("données").Range("data" + no).Value
ca pas de probleme pour la valeur que contient la cellule

mais pour le commentaire qui se trouve dans la cellule je trouve pas comment faire pour l emmener aussi

 

[michel]

bonsoir Kordic

tu peux essayer

With ActiveCell
.Value = Worksheets("données").Range("data" + no).Value
.AddComment
.Comment.Text Text:=Worksheets("données").Range("data" + no).Comment.Text
End With

bonne soirée
michel

 

[kordic]

merci michel de ton aide
sa va un peut mieux de mon cote

mais nouveau prob erreur 91

je croit que cela vient du fais que je suis dans une routine et que c est pas toute mes cellule qui contienne des commentaires

merci encore
kordic

 

[michel]

rebonsoir Kordic

ci joint une version pour gerer le cas ou il n'y a pas de commentaire dans la cellule

Dim Commentaire As Boolean
ActiveCell = Worksheets("données").Range("data" + no).Value
Commentaire = Len(Worksheets("données").Range("data" + no).NoteText)
If Commentaire = True Then
With ActiveCell
.AddComment
.Comment.Text Text:=Worksheets("données").Range("data" + no).Comment.Text
End With
End If

bonne soirée
michel

 

[kordic]

merci michel

fameux !!!!!!!!!!! ca roule

content doit finir pour demain ce foutu prog
va etre bon pour continuer

chapeau michel et a la prochaine
et salutation du quebec