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

[Christian0258]

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

 

[sylvanu]

Bonjour Christian,
Avce ce code, la colonne client se remplit.
A vérifier la pertinence.

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]

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

 

[sylvanu]

Une solution simple sans changer la structure est de limiter le nombre de colonnes.

 

[Christian0258]

Re, le forum, sylvanu

Merci l'artiste, c'est impeccable.

Bien à toi,
Christian