Voilà je dois à partir de plusieurs centaines de cellules copier les commentaires et les mettres dans les cellules visible sans avoir le curseur de la souris au dessus de la dite cellule !
Pour faire ça sur quelques cellules c'est simple mais pour plusieurs centaines...
Je souhaite avoir un "truc" rapide ! Et pas un vulgaire, "tu vas dans ton commentaires tu selectionnes le tout tu fais CTRL + C, puis tu vas sur ta cellules et tu fais CTRL + V !"
Parce que je le fais déjà depuis plus de 30 commentaires !
Merci à celle et celui qui arrivera à me régler mon problème !
qmike
Messages postés1506Date d'inscriptionmardi 19 juillet 2005StatutMembreDernière intervention18 juin 2012594 2 mai 2009 à 13:43
bonjour
en voici une autre qui copie les commentaires en feuil2 a partir de la colonne a
Sub Cop_Comment()
Dim Commentaire As Comment
Dim i As Integer
For Each Commentaire In Worksheets("Feuil1").Comments
i = i + 1
Sheets("Feuil2").Range("A" & i).Value = Commentaire.Text
Next
End Sub
Merci pour ta macro !
Je suis ne connais pas les macro (enfin leurs utilisations surtout).
Merci beaucoup à toi, tu viens de m'économiser 4 voir 6 heures de CTRL+C CTRL+V...
ysa41
Messages postés101Date d'inscriptionsamedi 17 mars 2007StatutMembreDernière intervention24 juin 20181 23 sept. 2009 à 13:47
Bonjour,
Je n'ai jamais fait de macros de ma vie ... j'essai de reproduire la formule que tu as marqué mais j'ai un message d'erreur au niveau de " For Each Commentaire In Worksheets("Feuil1").Comments "
Ma Feuille s'appel CLIENTELE GLOBALE donc j'ai remplacé le "Feuil1" par "CLIENTELE GLOBALE"
Sachant que je souhaite seulement récupérer les commentaires cachés de la colone B et que des commentaires apparaissent sur les colones A - B - C - D
Peux-tu m'éclairer afin de réussir cette macro ?Merci d'avance
ButteDuLac
Messages postés495Date d'inscriptionjeudi 5 mars 2009StatutMembreDernière intervention24 octobre 202040 30 déc. 2015 à 20:08
Même chose, je ne voulais les commentaires que pour la colonne I.
Je n'ai pas trouvé de solution. Ci-dessous, il semblait y en avoir une, mais elle comporte un bogue.
Est-ce que quelqu'un a trouvé??
(Je sais que je suis des années plus tard, mais je ne trouve pas ailleurs... alors des fois que ça remonterait dans le forum???
m@rina
Messages postés20010Date d'inscriptionmardi 12 juin 2007StatutNon membreDernière intervention16 avril 202411 268 2 mai 2009 à 12:58
Bonjour,
Il faut une macro. Mais avant d'écrire la macro, il faut savoir dans quelle cellule tu veux mettre ce commentaire (la cellule à droite ? en dessous ?...)
Voici un exemple qui copie les commentaires situés dans les cellules de A1 à A10 dans la colonne B, puis les supprime de la colonne A :
Sub commentaires()
For Each c In Range("A1:A10")
c.Offset(0, 1).Value = c.Comment.Text
c.Comment.Delete
Next
End Sub
m@rina
ButteDuLac
Messages postés495Date d'inscriptionjeudi 5 mars 2009StatutMembreDernière intervention24 octobre 202040 30 déc. 2015 à 16:55
J'ai essayé cette solution, mais le débogueur m'indique un bogue dans la ligne « c.Offset(0, 1).Value = c.Comment.Text », je ne sais pas quoi faire...
JvDo
Messages postés1978Date d'inscriptionmercredi 27 juillet 2005StatutMembreDernière intervention28 septembre 2020856
>
ButteDuLac
Messages postés495Date d'inscriptionjeudi 5 mars 2009StatutMembreDernière intervention24 octobre 2020 Modifié par JvDo le 30/12/2015 à 17:24
Bonjour,
Sub commentaires()
On Error Resume Next
For Each c In Range("A1:A10")
c.Offset(0, 1).Value = c.Comment.Text
c.Comment.Delete
Next
End Sub
Bonjour,
m@rina, qmike, bravo !
J'ai appliqué la macro de qmike, ça marche comme de la magie. Merci.
Sauf qu'elle a copié tous les commentaires de toutes les colonnes de la feuille d'origine dans la colonne A de la feuille de destination "feuil1".
Je sais que je devrais faire cela tout seul comme un grand, mais je connais peu VB et les macros et je suis en train de me mélanger les pinceaux depuis plusieurs jours sur cette histoire de commentaires (voir forum Commentaires dans les cellules Excel), dans un tableau gigantesque.
Je souhaiterais pouvoir importer les commentaires à partir de la feuille d'origine "feuil1" vers la nouvelle feuille "feuil2" mais dans les cellules miroirs ? Ensuite, la macro devrait effacer les commentaires de la feuille d'origine, une fois la besogne effectuée.
J'explique mon but :
- Transférer les commentaires de la cellule c12 de feuill1 dans la cellule c12 de feuil2, e215 dans e215 etc,.
- Une fois transféré des bulles vers des cellules, je copie ma colonne A de feuill2 à côté de la colonne A de feuille1 etc. En principe, le tour est joué après ça, mais comment ça marche ?
Pourriez-vous svp modifier la macro de qmike ci-dessus, de manière à ce qu'elle effectue le travail ? J'ai l'impression qu'il faut ajouter une variable, mais laquelle et où ?
Merci d'avance aux Samaritains !
x-l-k-rko-x
Messages postés3Date d'inscriptionsamedi 6 mars 2010StatutMembreDernière intervention14 mars 2010 14 mars 2010 à 11:10
Je comprends rien a tout ces trucs
Raymond PENTIER
Messages postés58387Date d'inscriptionlundi 13 août 2007StatutContributeurDernière intervention16 avril 202417 086 31 déc. 2015 à 00:48
smartway14
Messages postés822Date d'inscriptionmercredi 15 octobre 2008StatutMembreDernière intervention 8 octobre 2011185 2 mai 2009 à 12:44
avec copier/collage spécial et puis cocher la zone commentaires
ButteDuLac
Messages postés495Date d'inscriptionjeudi 5 mars 2009StatutMembreDernière intervention24 octobre 202040 30 déc. 2015 à 16:52
Ça copie le commentaire d'une cellule à l'autre (donc le petit coin rouge se retrouve dans la cellule cible), mais ça ne copie pas le contenu du commentaire dans la cellule cible.
