Copier les commentaires autre cellule

Le
PST
Bonjour

Dans les cellules a1 a a10 des valeurs avec des commentaires, je
voudrais récupérer tous les commentaires et les mettre dans les cellu=
les
f10 a f20

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5237391
Bonjour,

Sub ExtraitCommentaire()
For Each c In Range("A2", [A65000].End(xlUp))
c.Offset(0, 5) = c.Comment.Text
Next c
End Sub

JB
http://boisgontierjacques.free.fr


On 28 fév, 19:41, PST
Bonjour

Dans les cellules  a1 a a10 des valeurs avec des commentaires, je
voudrais récupérer tous les commentaires et les mettre dans les cellul es
   f10 a f20

merci


Ellimac
Le #5237371
Bonjour,

Copier A1 à A10 sélectionner F10 Collage Spécial Commentaires

Camille

"PST" 47c6e448$0$904$
Bonjour

Dans les cellules a1 a a10 des valeurs avec des commentaires, je
voudrais récupérer tous les commentaires et les mettre dans les cellules
f10 a f20

merci
Michel Samoey
Le #5237361
Bonjour,
a) il y a un pb tu as 10 cellules en A et tu as 11 cellules en F
b) as tu un exemple d'une cellule Ax
c) le format en A est il toujours le même càd par exemple nombre sur
toujours sur 3 chiffres, ou nombre+espace+texte, ou autre configuration
Cordialement
Michel

"PST" 47c6e448$0$904$
Bonjour

Dans les cellules a1 a a10 des valeurs avec des commentaires, je
voudrais récupérer tous les commentaires et les mettre dans les cellules
f10 a f20

merci
PST
Le #5237241
Merci a tous
la solution de JB me convient tout a fait

Bonjour,

Sub ExtraitCommentaire()
For Each c In Range("A2", [A65000].End(xlUp))
c.Offset(0, 5) = c.Comment.Text
Next c
End Sub

JB
http://boisgontierjacques.free.fr


On 28 fév, 19:41, PST
Bonjour

Dans les cellules a1 a a10 des valeurs avec des commentaires, je
voudrais récupérer tous les commentaires et les mettre dans les ce llules
f10 a f20

merci


a



Publicité
Poster une réponse
Anonyme