Autres Récupération de Commentaires sur plusieurs colonnes ...

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais, à nouveau, votre aide pour une modif sur cette macro qui récupère les commentaires d'une feuille et les placent sur une autre...
J'ai réussi quelques petites modifs, mais la je bloque...
voir fichier

Merci pour votre aide.
Bien amicalement,
Christian
 

Pièces jointes

  • RécupCommentaires.xlsm
    28.9 KB · Affichages: 10

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Christian,
Avce ce code, la colonne client se remplit.
A vérifier la pertinence.
VB:
Private Sub Worksheet_Activate()
 Set f = Sheets("VENTES")
 ligne = 3
 For Each c In f.Comments
   adr = c.Parent.Address
   Cells(ligne, 1) = f.Cells(Range(adr).Row, 1)     'date
   Cells(ligne, 3) = f.Cells(3, Range(adr).Column)  'bière
    Cells(ligne, 2) = f.Cells(Range(adr).Row, 4)    'Client
   ' Ancienne ligne : Cells(ligne, 2) = f.Range(adr)
   temp = c.Text
   Cells(ligne, 4) = Mid(temp, InStr(temp, ":") + 16)
   ligne = ligne + 1
 Next c
End Sub
 

Christian0258

XLDnaute Accro
Re, le forum, sylvanu

Merci ,infiniment, sylvanu, ça fonctionne parfaitement.
Dis-moi comment je peux restreinte la zone d'action de récupération des commentaires qui se trouvent sur la feuille VENTES de F4 à Z......

Encore merci.
Bien à toi,
Christian
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO