Range colonne

[Bruce68]

Bonjour à tous
Quelle macro faut il faire pour copier plusieurs colonnes de la feuille1 dans la feuille2 en commençant sur la ligne 2, les colonnes de la feuille1 peuvent etre de differentes longueur.
Ranger les colonnes en feuille2 en commençant en A1, B1, C1 etc etc ....
Je vous remercie de votre aide .

 

[Staple1600]

Re : Range colonne

Bonjour à tous


A tester

Sub test()
Sheets("Feuil1").Range("A2").CurrentRegion.Copy Sheets("Feuil2").Range("A1")
Sheets("Feuil2").Rows("1:1").Delete Shift:=xlUp
End Sub

edit: si les colonnes ne sont pas contigues
Sub testII()
Sheets("Feuil1").UsedRange.Copy Sheets("Feuil2").Range("A1")
Sheets("Feuil2").Rows("1:1").Delete Shift:=xlUp
End Sub

 

[Bruce68]

Re : Range colonne

Bonjour Staple1600
Merci pour cette reponse rapide.
Je veux recopier 11 colonnes en boucle de la feuil1 en feuill2.
Merci de votre aide

 

[Staple1600]

Re : Range colonne

Re

Macro fonctionnant si les 11 colonnes
sont les premières de la feuille
(de A à K) et contigues

Sub test()
Dim colonne As Long
For colonne = 1 To 256
Select Case colonne
Case 1, 12, 23, 34, 45, 56, 67, 78, 89, 100, 111, 122, 133, 144, 155, 166, 177, 188, 199, 210, 221, 232, 243
Sheets("Feuil1").UsedRange.Copy Sheets("Feuil2").Cells(1, colonne)
End Select
Next colonne
End Sub

 

[Bruce68]

Re : Range colonne

Bonsoir à tous
Merci Stample1600, mais ce que je veux c'est recopier les 11 colonnes 1 à 1 et non en bloc
dans la ligne A je met un "X" pour dire que cette colonne sera recopiée et si pas de "X" je passe à la colonne suivante et cela pour les 11 premieres colonnes.
Je ne recopie que les colonnes ayant un "X" dans la ligne A.
Encore merci de votre aide.