Colonnes
il m'arrive souvent de copier des colonnes et de les coller dans un autre classeur du coup j'utilise une partie de ce code:
Columns("B:B").Select
ActiveSheet.Paste
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("1.xls").Activate
ActiveWindow.Close
J'aimerais faire varier les colonnes... je m'explique
voici Columns("B:B")
j'aimerais que B devienne une variable que je pourrais faire variée suivant le nombre de colonne de mon fichier
ex:
dim variable as string
For variable =B to variable=z
Columns("variable:variable").Select
ActiveSheet.Paste
Columns("variable:variable").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("1.xls").Activate
ActiveWindow.Close
Bien sûr...le code inscris en dernier ne fonctionne pas...
mais est-il possible de le réaliser?
Salut,
Je ne sais pas s’il y a un moyen plus simple, mais la méthode ci-dessous fonctionne bien :
Variable_1 = un chiffre quelconque correspondant à la première colonne désirée
Variable_2 = un autre chiffre quelconque correspondant à la dernière colonne désirée
Range(Cells(1, Variable_1).EntireColumn, Cells(1, Variable_2).EntireColumn).selectSi tu ne désires sélectionner qu’une seule colonne, tu peux écrire
Range(Cells(1, Variable_1).EntireColumn, Cells(1, Variable_1).EntireColumn).selectCordialement.