Discussion :

[skeut]

bonjour,

je n'arrive pas à appliquer correctement la transposition; j'ai un tableau qui contient des valeurs:

nom: Dupond
prénom: jean
email: jean@dupond.ch
...
nom: Tartempion
prénom: joseph
email: jt@dev.com
....

j'aimerais transposer mon tableau comme ceci:
dupond | jean | jean@dupond.ch
Tartempion | Joseph | jt@dev.com
...

en fait, dans mon fichier source, ça change de personne toutes les 13 lignes. Donc, dans mon fichier de destination, je devrais avoir 13 colonnes.

est-ce que qqn a une macros qui fonctionne? ou comme puis-je faire?

merci de votre aide
skeut

[djib29]

Bonjour,

avec les hypothèses que vos en-têtes de champs se trouvent en colonne A et vos données en colonne B dans l'onglet Feuil1 et que vous n'avez pas de ligne vide entre chaque personne, vous pouvez mettre vos données sous la forme d'une table avec en-tête dans l'onglet Feuil2 en suivant la procédure suivante:

1/ en ligne 1 vous mettez vos en-têtes de champs (je pars sur l'hypothèse des 3 champs nom, prenom, email)

2/ en cellule B2 vous écrivez la formule suivante:

Code :

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

=DECALER(Feuil1!$B$1;(LIGNE(A1)-1)*3+MOD(COLONNE(A1)-1;3);0)

Modifiez le 3 par le nombre de champs que vous avez (13 je crois)

3/ vous recopiez cette formule sur autant de lignes que vous avez de personnes et autant de colonnes que vous avez de champs (3 dans l'exemple)

[Nad-Dan]

Bonjour

En supposant que les données sources débutent en A1 de la Feuille 1 :

En A1 de feuille 2

Code :

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

=INDEX(Feuil1!$A:$A;(MOD(COLONNE()-1;13)+1)+13*(LIGNE()-1))

A tirer vers la droite (jusqu'en colonne M), puis l'ensemble vers le bas.

Amicalement
Nad

[Fvandermeulen]

Salut à tous,
Et voici un proposition avec Code, je n'ai pas considéré de ligne de titre et les données à transposer en colonne B de la feuille1.
Placement dans la feuille 2 à partir de A1
Il y a surement plus court mais je suis plus en état

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Transpose()
 
Dim DerLig As Long, c As Long, Rcible As Long, r As Long, Nb As Long
 
DerLig = Sheets("sheet1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'Récupère la dernière ligne remplie
Nb = DerLig / 13 'Défini le nombre de ligne transposée à obtenir
 
For r = 1 To DerLig 'Boucle sur toutes les lignes à transposer
        Rcible = Rcible + 1 'Incrémente la ligne cible
        For c = 1 To 13 'Boucle par 13 pour placer dans les bonnes colonnes
                Sheets("sheet2").Cells(Rcible, c) = Sheets("sheet1").Cells(r, 2) 'Placement de la valeur
                r = r + 1 'Incrémente r pour faire correspondre à la ligen de la feuille 1
        Next c
        r = r - 1 'Pour correspondre au bon "r" suivant via la boucle
        If Rcible = Nb Then Exit Sub 'Sor de la sub si le nombre de ligne transposé est atteint
Next r
 
End Sub

A+

[random]

pour voir

[skeut]

merci à tous pour les réponses et bonne continuation.
skeut