XL 2016 Boucle colonne vers ligne

GHISLAIN · 7 Octobre 2020

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 · 7 Octobre 2020

Bonjour Ghislain,
Une possibilité est d'utiliser :

VB:

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

pierrejean · 7 Octobre 2020

Bonjour GHISLAIN
A tester:

VB:

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 · 9 Octobre 2020

Bonjour à tous,

Merci pour vos propositions qui comme habituellement sont remarquables

Bonne journée à tous

Amicalement

Ghislain

XL 2016 Boucle colonne vers ligne

GHISLAIN

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

GHISLAIN

XLDnaute Impliqué

Discussions similaires

XL 2016 Boucle colonne vers ligne

GHISLAIN

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

GHISLAIN

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency