Transposer Tableau

[T1mAr]

Bonjour,

Je souhaite trouver une methode qui me permette de transformer dans excel un liste de donées en tableau.

Voila comment cela se présente :
Je veux transposer ça :
1. Titre1
donnée a
donnée b
donnée x
2. Titre2
donnée a
donnée b
donnée x
etc...

en :
1. Titre1 / donnée a / donnée b / donnée x
2. Titre2 / donnée b / donnée c / donnée x
etc...

/ indique la séparation en les colonnes 1,2 etc...

Merci

 

[kjin]

Re : Transposer Tableau

Re,
Si tes entêtes de lignes comporte "-", alors une solution

Edit : bonjour Tibo
A+
kjin

 

[Tibo]

Re : Transposer Tableau

re,

Un essai avec les titres comprenant un -

La formule en C1 :

=SI(LIGNE()=GAUCHE(INDEX($A$1:$A$100;MAX(ESTNUM(TROUVE("-";GAUCHE(
$A$1:$A$100;4)))*LIGNE($1:$100)));TROUVE("-";INDEX($A$1:$A$100;
MAX(ESTNUM(TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100))))-1)*1;INDEX(
$A$1:$A$100;MAX(ESTNUM(TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100))+
COLONNE()-3)&"";SI(LIGNE()*(COLONNE()-2)<PETITE.VALEUR(SI(ESTNUM(TROUVE("-";
GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100)>0;ESTNUM(TROUVE("-";GAUCHE($A$1:
$A$100;4)))*LIGNE($1:$100));LIGNE()+1)-1;INDEX($A$1:$A$100;PETITE.VALEUR(
SI(ESTNUM(TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100)>0;ESTNUM(
TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100));LIGNE())+COLONNE()-3);""))

Toujours matricielle donc validation par CTRL + MAJ + ENTREE

Voir le fichier joint (dans lequel j'ai ajouté quelques lignes)

Je te laisse tester en grand.

@+

Edit :

Il y a moyen de raccourcir la formule : je suis parti sur le principe de tester la présence du caractère - dans les 4 premiers caractères de la chaine titre. Ce qui permet d'utiliser ce caractère pour les autres lignes au delà de ce 4ème caractère.

Si on part du principe que ce caractère est strictement réservé aux lignes de titres, la formule subira alors une cure d'amaigrissement.

@+

 

[Gael]

Re : Transposer Tableau

Bonjour T1mAr, bonjour à tous,

Un essai en macro.

Conditions de fonctionnement:

La numérotation des titres commence à 1 et s'incrémente régulièrement.
Le nombre de paramètres est limité à 5 (mais peut-être étendu).
Il n'y a pas de nombre de lignes maximal

Sub transpose()
Dim tablo As Variant
Dim Tabconv() As Variant
Dim T As Integer, i As Integer, j As Integer
tablo = Worksheets("Feuil1").Range("A3").CurrentRegion
ReDim Tabconv(UBound(tablo) / 4, 5)
T = 0
For i = 1 To UBound(tablo)
    If Left(tablo(i, 1), Len(CStr(T))) = T + 1 And Asc(Mid(tablo(i, 1), Len(CStr(T)) + 1, 1)) > 60 Then
    T = T + 1
    j = 0
    End If
    j = j + 1
    Tabconv(T, j) = tablo(i, 1)
Next i
 
Range("C1").Resize(T, 5) = Tabconv
End Sub

Cf exemple joint.

Edit: Le changement de ligne se fait lorsque les premiers caractères de la cellule sont égaux au n° de titre suivant et que le caractère suivant n'est pas un chiffre.

@+

Gael

PS: Quel courage Tibo pour cette formule impressionnante.

 

[Tibo]

Re : Transposer Tableau

Bonjour,

On peut oublier la formule d'hier.

Il y avait moyen de faire beaucoup plus simple.

En C1 :

=SI(ESTNA(EQUIV(LIGNE()&"-*";$A$1:$A$100;0));"";SI(EQUIV(LIGNE()&"*";
$A$1:$A$100;0)+COLONNE()-3>=SI(ESTNA(EQUIV(LIGNE()+1&"-*";$A$1:$A$100;0));
NBVAL($A$1:$A$100)+1;EQUIV(LIGNE()+1&"-*";$A$1:$A$100;0));"";INDEX(
$A$1:$A$100;EQUIV(LIGNE()&"*";$A$1:$A$100;0)+COLONNE()-3)))

Formule simple à recopier vers la droite et vers le bas.

@+

 

[Gael]

Re : Transposer Tableau

Salut Tibo,

Un peu moins courageux mais toujours très efficace 🙂

@+

Gael