Bonjour,
Je suis nouveau ici, et tout aussi nouveau dans le VBA.
Jusqu'à maintenant je me servais des fonctions de base d'excel mais aujourd'hui j'ai besoin de plus.
Donc, je souhaiterais copier un ensemble de cellule à la suite d'un tableau dans un autre classeur.
J'ai donc pondu (enfin l'enregistrement automatique de macro excel à pondu ):
Sub Macro4()
'
' Macro4 Macro
'
'
Range("Q27:AY27").Select
Selection.Copy
Windows("Blablabla.xlsx").Activate
Range("A212").Select
ActiveSheet.Paste
End Sub
Sauf que le problème, c'est que mon tableau blablabla.xlsx est evolutif, et que ma macro colle mes lignes toujours au même endroit. C'est balo
J'aurais donc souhaité faire un truc du genre (j'ai essayé de traduire au mieux):
Sub Macro4()
'
' Macro4 Macro
'
'
Range("Q27:AY27").Select
Selection.Copy
Windows("Blablabla.xlsx").Activate
Range("A(EQUIV(MAX(A1:A212);A1:A212;0)+1)").Select
ActiveSheet.Paste
End Sub
Comment qu'on fait ?
Je suis nouveau ici, et tout aussi nouveau dans le VBA.
Jusqu'à maintenant je me servais des fonctions de base d'excel mais aujourd'hui j'ai besoin de plus.
Donc, je souhaiterais copier un ensemble de cellule à la suite d'un tableau dans un autre classeur.
J'ai donc pondu (enfin l'enregistrement automatique de macro excel à pondu ):
Sub Macro4()
'
' Macro4 Macro
'
'
Range("Q27:AY27").Select
Selection.Copy
Windows("Blablabla.xlsx").Activate
Range("A212").Select
ActiveSheet.Paste
End Sub
Sauf que le problème, c'est que mon tableau blablabla.xlsx est evolutif, et que ma macro colle mes lignes toujours au même endroit. C'est balo
J'aurais donc souhaité faire un truc du genre (j'ai essayé de traduire au mieux):
Sub Macro4()
'
' Macro4 Macro
'
'
Range("Q27:AY27").Select
Selection.Copy
Windows("Blablabla.xlsx").Activate
Range("A(EQUIV(MAX(A1:A212);A1:A212;0)+1)").Select
ActiveSheet.Paste
End Sub
Comment qu'on fait ?