Récupération des commentaires

Salut !

voici qqc pour te démisérer !!!

Function CopiCom()

On Error Resume Next ' passe s'il n'existe pas de commentaire

Dim Kase, l, c

For Each Kase In Feuil1.Range("A1:D10") ' pour toutes les cellules de
A1 à D10 feuille N°1

l = Kase.Row
c = Kase.Column

Feuil2.Cells(l, c) = Kase.Comment.Text 'écrit le commentaire dans
la cellule correspondante feuille N°2

Next Kase

End Function

à plus

Bonjour
Exécute ces 3 lignes de code dans ta feuil1, tu retrouveras en feuil2
(initialement vierge) les commentaires de tes cellules au même endroit (mise
en forme non conservée).

Sub Macro1()
For Each c In Range("A1").SpecialCells(xlCellTypeComments)
Sheets("Feuil2").Cells(c.Row, c.Column) = c.Comment.Text
Next
End Sub

Stéphane

"Stormbringer" <Stormbringer@discussions.microsoft.com> a écrit dans le
message de news: 91F9B604-08EA-45A8-B7B7-757012C2F78F@microsoft.com...

Voilà mon problème:
J'ai un tableau bourré de commentaires sur lesquels je voudrais
travailler.
Mais ceux ci étant difficilement accéssibles, j'aurais aimé faire une
petite
macro pour copier ce tableau sur une nouvelle feuille en placant les
textes
des commentaires en tant que texte dans les cellules correspondantes.
Seulement avec mon niveau en VB je misère sec.

Merci pour votre aide

Bonjour Stormbringer,

Il y avait aussi ceci :

For Each c In ActiveSheet.Comments
A = A + 1
Worksheets("Feuil2").Range("A" & A) = c.Text
Next


Salutations!


"Stormbringer" <Stormbringer@discussions.microsoft.com> a écrit dans le message de news:
91F9B604-08EA-45A8-B7B7-757012C2F78F@microsoft.com...
Voilà mon problème:
J'ai un tableau bourré de commentaires sur lesquels je voudrais travailler.
Mais ceux ci étant difficilement accéssibles, j'aurais aimé faire une petite
macro pour copier ce tableau sur une nouvelle feuille en placant les textes
des commentaires en tant que texte dans les cellules correspondantes.
Seulement avec mon niveau en VB je misère sec.

Merci pour votre aide