Récupérer les données si commentaire.....

[Christian]

Bonjour à tout le forum,

Je souhaiterais récupérer le contenu de cellules si elles contiennent un commentaire...fichier joint c'est plus clair.

Je vous remercie pour l'attention que vous voudrez bien accorder à ma demande.

Bien amicalement,
Christian [file name=RecupContenuCellule.zip size=10932]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RecupContenuCellule.zip[/file]

 

[MichelXld]

bonjour Christian

je ne suis pas sur d'avoir bien compris , mais j'espere que cette macro pourra t'aider


Dim Cmnt As Comment
Dim x As Integer

x = 2
If Sheets('Base').Comments.Count = 0 Then Exit Sub

For Each Cmnt In Sheets('Base').Comments
x = x + 2

Sheets('Commentaires').Cells(x, 1) = 'Base'
Sheets('Commentaires').Cells(x, 2) = Cmnt.Parent.Address
Sheets('Commentaires').Cells(x, 3) = Cmnt.Text
Sheets('Commentaires').Cells(x, 4) = Cmnt.Parent.Value
Sheets('Commentaires').Cells(x, 5) = Sheets('Base').Cells(Cmnt.Parent.Row, 6)

Next Cmnt


bonne journée
MichelXld

Message édité par: michelxld, à: 23/01/2006 05:15

 

[Christian]

Bonjour le forum, MichelXLd,

Merci pour cette réponse et ce travail. Ou faut-il placer cette macro?.

a+

Bien amicalement,
Christian

 

[MichelXld]

rebonjour Christian

si tu débutes dans le domaine des macros , j'espere que ce fichier pourra t'aider

Lien supprimé


bonne soirée
MichelXld

 

[Christian]

Bonsoir à tout le forum, MichelXld,

Merci pour ce fichier 'aide début macro',j'avance doucement grâce à vous...

Bien amicalement
Christian