XL 2016 Boucle colonne vers ligne

[GHISLAIN]

Bonjour les Exeliennes et Exeliens


Je recherche une macro qui me permette de transférer des données qui sont sur une ligne vers d'autre lignes
exemple les valeurs des cellules a1 b1 c1 d1 vers A10 B10 C10 D10 puis les valeurs de E1 F1 G1 H1 vers A11 B11 C11 D11 etc
et une autre macro qui me permette d'effectuer la même chose mais d'une feuille vers une autre
Ci joint un fichier qui me semble sera plus explicite

Bien amicalement
bonne journée à tous

Ghislain

 

[sylvanu]

Bonjour Ghislain,
Une possibilité est d'utiliser :

=INDEX($1:$1;COLONNE()+5*(LIGNE()-11))

 

[pierrejean]

Bonjour GHISLAIN
A tester:

Sub qsdqsdq()
lig = 11
fin = Cells(1, Columns.Count).End(xlToLeft).Column
For col = 1 To fin Step 5
   ad = Cells(1, col).Address(0, 0) & ":" & Cells(1, col + 4).Address(0, 0)
   ActiveSheet.Range(ad).Copy Destination:=Range("A" & lig)
   ActiveSheet.Range(ad).Copy Destination:=Sheets("Feuil2").Range("A" & lig - 4)
   lig = lig + 1
Next col
End Sub

 

[GHISLAIN]

Bonjour à tous,

Merci pour vos propositions qui comme habituellement sont remarquables

Bonne journée à tous

Amicalement

Ghislain