Discussion :

[totto2019]

Bonjour,

Je débute en vba et j'ai un soucis que je n'arrive pas à résoudre tout seul. Je souhaite transposer un tableau excel en lignes via une macro parce que le tableau de base est variable (parfois il fait 10 lignes, parfois il en fait 600...).

En gros, mon tableau de base est le suivant:

NOM	PRENOM	AGE
Toto	Gaëtan	21
Tata	Gaëlle	25
Titi	Gilles	30

Et de ce tableau, je souhaite obtenir le résultat suivant sur une autre feuille:

NOM	Toto
PRENOM	Gaëtan
AGE	21
NOM	Tata
PRENOM	Gaëlle
AGE	25
NOM	Titi
PRENOM	Gilles
AGE	30

Pouvez-vous m'aider s'il vous plait?

Merci.

[boisgontierjacques]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER($A$1;;MOD(LIGNES($1:1)-1;3))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(A$2;ENT((LIGNES($1:1)-1)/3);MOD(LIGNES($1:1)-1;3))

En VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Essai()
  TblTitre = [A1:C1]
  n = [A65000].End(xlUp).Row - 1
  TblE = Range("A2:C" & n + 1)
  Dim TblS(1 To 12, 1 To 2)
  For i = 1 To n
   For k = 1 To 3
      TblS((i - 1) * 3 + k, 2) = TblE(i, k)
      TblS((i - 1) * 3 + k, 1) = TblTitre(1, k)
   Next k
  Next i
  [H1].Resize(n * 3, 2) = TblS
End Sub

Boisgontier

[totto2019]

Quelques petites modifs pour que le code fonctionne sur des tableaux de différentes longueurs, et c'est impec'!

Merci beaucoup!