XL 2013 Couper coller les valeurs toutes les 55 lignes

BRUNO28 · 16 Mai 2017

Bonjour à tous,
A partir de la Colonne "A", j'aimerai couper et coller les valeurs de la colonne tous les 55 cellules dans la colonne suivante.
Exemple:
Colonne A, les valeurs de A1à A55
Colonne B, les valeurs de A56 à A110
Colonne C, les valeurs de A111 à A165
Colonne D, les valeurs de A166 à A220 ... etc ... etc ...

Merci de votre aide.

pierrejean · 16 Mai 2017

Bonjour BRUNO28

Cette macro devrait faire l'affaire

Code:

Sub test()
tablo = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
col = 1
For n = LBound(tablo, 1) To UBound(tablo, 1) Step 55
  Range("A" & n & ":A" & n + 54).Copy Destination:=Cells(1, col)
  col = col + 1
Next
Range("A56:A" & Rows.Count).ClearContents
End Sub

BRUNO28 · 17 Mai 2017

Grand merci à toi Pierrejean, c'est parfait! comme toujours.
A très bientôt et MERCI encore pour ton efficacité.
Bruno

XL 2013 Couper coller les valeurs toutes les 55 lignes

BRUNO28

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

BRUNO28

XLDnaute Nouveau

Discussions similaires