XL 2013 Couper coller les valeurs toutes les 55 lignes

BRUNO28

XLDnaute Nouveau
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.
 

Pièces jointes

  • Essai Couper coller.xlsm
    16.2 KB · Affichages: 32

pierrejean

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll