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

C

Christian

Guest
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]
 

Pièces jointes

  • RecupContenuCellule.zip
    10.7 KB · Affichages: 18

MichelXld

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T