D
David066
Guest
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...
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...