VBA : Copier la dernière ligne de plusieurs onglets vers un seul onglet (clôturé)

Xalinys

XLDnaute Nouveau
Bonjour,

Je suis débutante en macro et j'ai besoin d'aide car n'ayant aucune formation, j'ai atteint les limites de ma tentative de compréhension du langage VBA.

Mon problème :
J'ai un classeur Excel 2003 avec plusieurs onglets et j'essaie de créer une macro pour copier la dernière ligne de chaque onglet (qui est variable) dans un premier onglet de suivi (dans des zones spécifiques). NB : Il peut y avoir une cinquantaine d'onglets.

En gros chaque onglet correspond à un client reporté en colonne A de l'onglet de suivi.
Je souhaite copier la dernière ligne de commentaires de chaque onglet correspondant aux clients et coller dans le récap sur la bonne ligne à partir de la colonne X.

J'ai essayé, compiler des pistes trouvées sur divers forum et je m'arrache les cheveux.
Ci-dessous la macro tenté au stade où je me suis arrêtée de désespoir :

Sub Paste_last_comment()
'

Dim Client As String

vclient = Sheets("récap").Range("A2:A100").Value

For Each vclient In ActiveWorkbook.Sheets
'If (vclient <> "récap") Then
For Each Sheets("vclient") In Range("A65536").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Sheets("récap").Activate
ActiveCell.Range("N:Vclient").Select
ActiveSheet.Paste

Next vclient

End Sub


Bon j'ai conscience d'être un peu à côté de la plaque, c'est pourquoi je vous serais reconnaissante si quelqu'un pouvait m'aider.

Merci d'avance.
Xalinys
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 211
Messages
2 086 298
Membres
103 171
dernier inscrit
clemm