Notifications
Retirer tout

classement des données VBA

2 Posts
1 Utilisateurs
0 Reactions
3,179 Vu
(@grabuge)
Trusted Member
Inscription: Il y a 15 ans
Posts: 91
Début du sujet  

Bonjour,

Je souhaite classer les permanences d'un mois donné dans une seule colonne. Pour l'instant, les résultats de chacun des jours se trouvent dans une 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


   
Citation
(@grabuge)
Trusted Member
Inscription: Il y a 15 ans
Posts: 91
Début du sujet  

Finalement, j'ai trouvé le code.

Pour ceux que ça intéresse, c'est :

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


   
RépondreCitation
Share:
Casinos Jackpot