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
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: