Copier un commentaire d'une feuille à l'autre

Résolu/Fermé

moshojo Messages postés 21 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 19 novembre 2013 - 29 sept. 2011 à 09:23
ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 - 29 sept. 2011 à 11:10

Bonjour à tous,

je voudrais copier des commentaires d'une feuille à une autre.
J'ai un classeur avec une dizaine de feuilles contenant des tableaux avec les mêmes en-tetes. Les en-tetes des feuilles 2 à 10 sont "=" à celles de la premiere. De cettte manière, quand je change les cellules en feuille 1, la modification se répercute sur toute les feuilles. Parcontre cette méthode ne me permet pas de transférer le format et les commentaires? Le format n'est pas primordiale, je cherche en priorité à copier mes commentaires.
Quelqu'un aurait-il une idée?

J'ai pensé utilisé

Sub collageCommentaire()
'Copie le contenu de la cellule A1
Range("A1").Copy
'Colle le commentaire dans la cellule A2
Range("A2").PasteSpecial Paste:=xlPasteComments
End Sub

mais je ne sais pas comment faire pour copier dans une page et coller dans une autre. De plus ou dois-je mettre le code? dans workbook ?

Merci d'avance

Moshojo

A voir également:

Copier un commentaire d'une feuille à l'autre
Copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Feuille de pointage excel - Télécharger - Tableur
Supprimer une feuille word - Guide
Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Guide

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 2 404
Modifié par ccm81 le 29/09/2011 à 10:24

bonjour

Public Sub CopieCommentaires()  
  Sheets("Feuil1").Range("A1").Copy  
' pour le commentaire
  Sheets("Feuil2").Range("A2").PasteSpecial Paste:=xlPasteComments  
' pour le format
  Sheets("Feuil2").Range("A2").PasteSpecial Paste:=xlPasteFormats 
  ' etc ...  
    
End Sub

à mettre dans un module

bonne suite

Réponse 2 / 3

moshojo Messages postés 21 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 19 novembre 2013
29 sept. 2011 à 10:39

Merci beaucoup !

Ca marche tres bien pour les cellules "normales". Le probleme c'est que mes entetes sont en partie des regroupements de cellules fusionnées, et là ca ne fonctionne plus, la macro annule la fusion des cellules et supprime mon texte

moshojo Messages postés 21 Date d'inscription mardi 2 août 2011 Statut Membre Dernière intervention 19 novembre 2013
29 sept. 2011 à 10:54

Autant pour moi, je métais trompée de cellule de départ ! encore merci !

Réponse 3 / 3

ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 2 404
29 sept. 2011 à 11:10

re

la copie des commentaires n'affecte pas le format
la copie du format défusionne les cellules (copie le format !!)

RQ. en règle générale éviter les cellules fusionnées quand tu dois y passer dessus avec VBA

bon courage

Discussions similaires

Comment identifier (ou situer) qui écrit des commentaires sur mon blog ?

Dessiner avec son clavier et avec des lettres

Reporter valeur sur autre feuille avec critere

Feuille de score belote

Discussions similaires

Newsletters