Macro: Empiler les colonnes

[David066]

Bonjour à tous,


ne maitrisant pas du tout le VBA j'aurais voulu une macro qui me permette d'empiler
les colonnes.
D'un précédent post j'ai récupéré le code suivant:

Sub EmpilerColonnes()
Dim L As Long
Dim C As Integer
With ActiveSheet
'Pour chaque colonne
For C = 2 To 750
'Interrompre à la dernière colonne utilisée
If .Cells(198000, C).End(xlUp).Row = 1 And .Cells(1, C) = "" Then Exit For
'Couper-Coller les données en A
L = .Range("A198000").End(xlUp).Row
.Range(.Cells(L + 1, 1), .Cells(198000, 1)).Value = .Range(.Cells(1, C), .Cells(198000, C)).Value
.Range(.Cells(1, C), .Cells(198000, C)).ClearContents
Next C
End With
End Sub



Il fonctionne parfaitement, cependant mon problème est que je souhaiterai qu'il sélectionne les colonnes de la ligne 1 à 264 inclut, je ne sais pas du tout ce qu'il faut modifier dans ce code pour définir une plage de sélection.

Si quelqu'un peut m'aider...

 

[bond]

Re : Macro: Empiler les colonnes

Remplace :
L = .Range("A198000").End(xlUp).Row

Par :
L = 264'.Range("A198000").End(xlUp).Row

 

[David066]

Re : Macro: Empiler les colonnes

Slt,

merci pour cette réponse très rapide

je vais essayer ça de suite


merci

 

[David066]

Re : Macro: Empiler les colonnes

Malheureusement il semblerait que cela ne fonctionne pas, il copie uniquement la première colonne
en suite il copie du vide....
Je suis sur mac, le problème peut-il venir de ça?

 

[bond]

Re : Macro: Empiler les colonnes

Remplace tout le code par :

Sub EmpilerColonnes()
Dim L As Long
Dim C As Integer
With ActiveSheet
'Pour chaque colonne
L = 264 ' fixe le nb de lignes
For C = 2 To 750
'Interrompre à la dernière colonne utilisée
If .Cells(65000, C).End(xlUp).Row = 1 And .Cells(1, C) = "" Then Exit For
'Couper-Coller les données en A
.Range(.Cells(L + 1, 1), .Cells(L + 264, 1)).Value = .Range(.Cells(1, C), .Cells(264, C)).Value
.Range(.Cells(1, C), .Cells(264, C)).ClearContents
L = L + 264
Next C
End With
End Sub

Je ne pense pas que la pomme y soit pour qqchose....

 

[David066]

Re : Macro: Empiler les colonnes

Cette fois c'est bon ça marche super bien, et en plus c'est beaucoup plus rapide qu'avant.

Merci beaucoup

 

[bond]

Re : Macro: Empiler les colonnes

C'est sur il traite maintenant 264 lignes au lieu de 198000