Rebonjour à tous,
Je sais je post beaucoup mais je débute, j'ai un taf monstrueux (à mes yeux) et je m'en sors vraiment pas...
Alors voilà je cherche ici à tester un bout de mon code et ça marche pas
Le but ici est simplement de verifier le bon fonctionnement du "copier coller à la suite du tableau".
Je cherche à créer un Range comportant différentes colonnes (c'est là que ça bloque) et à le coller en dessous d'un tableau préexistant. J'ai donc essayer de récupérer 3 colonnes et de les coller en dessous d'elles mêmes mais visiblement j'ai un soucis dans mon code...
Sub Test()
Dim colaa As Range, colbb As Range, colcc As Range
Dim muti As Range
colaa = ActiveSheet.Cells(1, 1).Column
colbb = ActiveSheet.Cells(1, 2).Column
colcc = ActiveSheet.Cells(1, 5).Column
Multi = Union(colaa, colbb, colcc)
Multi.Select
Selection.Copy
Range("a65536").Select
Selection.End(x1Up).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Je sais je post beaucoup mais je débute, j'ai un taf monstrueux (à mes yeux) et je m'en sors vraiment pas...
Alors voilà je cherche ici à tester un bout de mon code et ça marche pas
Le but ici est simplement de verifier le bon fonctionnement du "copier coller à la suite du tableau".
Je cherche à créer un Range comportant différentes colonnes (c'est là que ça bloque) et à le coller en dessous d'un tableau préexistant. J'ai donc essayer de récupérer 3 colonnes et de les coller en dessous d'elles mêmes mais visiblement j'ai un soucis dans mon code...
Sub Test()
Dim colaa As Range, colbb As Range, colcc As Range
Dim muti As Range
colaa = ActiveSheet.Cells(1, 1).Column
colbb = ActiveSheet.Cells(1, 2).Column
colcc = ActiveSheet.Cells(1, 5).Column
Multi = Union(colaa, colbb, colcc)
Multi.Select
Selection.Copy
Range("a65536").Select
Selection.End(x1Up).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub