Copier un commentaire

Bon j'ai préféré passé par un copier coller plus simple

Sheets("données").Range("a1").copy
Range("a65536").End(xlUp).Offset(1, 0).select
Activecell.specialpaste

et ça semble marcher

Personne pour m'aider?

Alors cette ligne de code m'a été donnée sur ce forum donc j'avoue na pas vraiment bien savoir à quoi tout le code correspond.

J'ai donc remplacé comme tu m'as dit et ça fonctionne.
Par contre j'ai bien le commentaire mais l'image de fond de mon commentaire a disparue. J'en ai poutant besoin. Comment la conserver?

Bonjour,

Le code que je t'ai donné remplace bien entendu ta ligne de code, sinon, ça fait double emploi !
Donc tu remplaces
Range("a65536").End(xlUp).Offset(1, 0) = Sheets("données").Range("a1")

par le code que je t'ai envoyé.

Par contre, je ne comprends pas pourquoi tu as cette ligne :
Range("a65536").End(xlUp).Locked = True

car au début de la macro tu désactives la protection de la feuille, c'est normal pour que la macro puisse écrire dans la cellule.
En fin de macro, il faudrait donc remettre cette protection, alors que toi tu te bornes à dire que la cellule est protégée. Mais une cellule protégée ne l'est que lorsque la feuille est protégée.

m@rina

???

Alors ça me copie la case A1 sans le commentaire en A1
Puis ça me copie la case A1 avec le commentaire en A2

De plus, l'image en fond de commentaire n'a pas été récupérée

Comment y remédier?

Bonjour

Quelque chose comme ça :

With Range("a65536").End(xlUp).Offset(1, 0)
.Value = Sheets("données").Range("a1")
.AddComment.Text Text:=Sheets("données").Range("a1").Comment.Text
End With

m@rina