Classement sur une colonne

[Grabuge]

Bonjour,

J'ai des tableaux dont les plages de données se trouvent classé par jour (soit un jour = une colonne). Le nombre de colonnes par mois est donc de 31 au maximum, le nombre de ligne est totalement variable (de 500 à plus de 700).

Je souhaite classer toutes ces données dans une seule colonne.

Quel est le code à entrer pour qu'excel aille chercher la 1ère ligne de la 2ème colonne lorsque la dernière ligne de la première colonne est vide et ainsi de suite afin de classer à la suite, toutes ces données ?

Merci de me renseigner.🙂

 

[Robert]

Re : Classement sur une colonne

Bonjour Grabuge, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim col As Byte 'déclare la variable col (COLonne))
Dim dest As Range 'déclare la variable dest (DESTination)
 
For col = 2 To Range("IV1").End(xlToLeft).Column 'boucle sur toutes les colonne éditées
    Set dest = Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
    Range(Cells(1, col), Cells(65536, col).End(xlUp)).Cut dest 'coupe et colle
Next col
End Sub

Oops j'avais pas vu que c'était ton premier post... Bienvenu parmi nous !

 

[Grabuge]

Re : Classement sur une colonne

Merci beaucoup... J'essaie tout de suite.

 

[mutzik]

Re : Classement sur une colonne

bonjour

code à placer dans le module de code de la feuill1
Sub copier()
Dim cpt

For cpt = 2 To 3 ' à adapter
Range(Cells(2, cpt), Cells(2, cpt).End(xlDown)).Copy Destination:= _
Range("A" & Range("A" & Application.Rows.Count).End(xlUp).Row + 1)
Next cpt

End Sub

 

[Grabuge]

Re : Classement sur une colonne

Ca fonctionne super !!!!

Merci