Transformer un tableau

[m43str0]

Bonjour à tous,

j'ai des données que j'aurai souhaiter utiliser par la suite dans un TCD. Seulement, la forme du tableau ne m'intéresse pas et je souhaite la modifier avant d'utiliser les données.

Je m'explique, j'ai un tableau de la forme suivantes :

TRI A B C D E ... ... ... ...
ID1 0 5 0 0 0
ID2 1 3 1 0 0
ID3 0 0 0 4 1
...

Je le souhaiterai comme cela
TRI NB Type
ID1 5 B
ID2 1 A
ID2 3 B
ID2 1 C
ID3 4 D
ID3 1 E
...

J'espère avoir été clair. A noter que j'ai une quarantaine d'ID et une trentaine de "A, B, C, D, E..."
Est-ce possible via formules Excel (j'aurai préféré) ou éventuellement VBA.

Merci pour vos retours.

M43str0.

 

[kingfadhel]

Re : Transformer un tableau

Bonsoir,
voila une solution macro, Clique sur le bouton et c'est fini.

Bonne reception.

 

[R@chid]

Re : Transformer un tableau

Bonsoir et Bienvenue sur XLD,
Bonsoir kingfadhel,
Peut être qu'avec un fichier exemple on peut le faire par formule..
Est ce que tes lignes ont le même nombre de valeurs ou non ??
Est ce qu'il y a des cellules vides entre les valeurs ??

@ te relire

 

[m43str0]

Re : Transformer un tableau

Bonsoir,

merci pour vos réponses.
@kingfadhel, merci pour la macro, j'étais en train d'agrandir la plage horizontale jusqu'à AO (une 40aine de valeurs) et du coup modifier aussi la fonction CHOOSE pour y ajouter des valeur. Le problème c'est que c'est statique et que quand ces valeurs changent, il faut faire évoluer la macro. J'ai donc remplacé ça
Sheets(2).Range("AZ1").Formula = "=CHOOSE(" & Car & ",""A"",""B"",""C"",...)"
Sheets(2).Cells(nb, 3) = Sheets(2).Range("AZ1").Value
par ça :
Sheets(2).Cells(nb, 3) = Cells(1, cel.Column).Value

@R@chid, j'ai pas le fichier sous la main, je le poste demain. Sinon, non, les valeurs peuvent changer les valeurs en ligne 1 et en colonne A dans l'XLS de kingfadhel peuvent changer. Et oui, il y a des cellules vides.

Merci à vous deux en tout cas.

M43str0

 

[R@chid]

Re : Transformer un tableau

Re,

@R@chid, j'ai pas le fichier sous la main, je le poste demain. Sinon, non, les valeurs peuvent changer les valeurs en ligne 1 et en colonne A dans l'XLS de kingfadhel peuvent changer. Et oui, il y a des cellules vides.

On ne demande pas le fichier original, on veut juste un extrait anonymisé

@ + +

 

[R@chid]

Re : Transformer un tableau

Re,
Voir PJ un essai par formules..
@ + +

 

[kingfadhel]

Re : Transformer un tableau

Bonsoir,

merci pour vos réponses.
@kingfadhel, merci pour la macro, j'étais en train d'agrandir la plage horizontale jusqu'à AO (une 40aine de valeurs) et du coup modifier aussi la fonction CHOOSE pour y ajouter des valeur. Le problème c'est que c'est statique et que quand ces valeurs changent, il faut faire évoluer la macro. J'ai donc remplacé ça
Sheets(2).Range("AZ1").Formula = "=CHOOSE(" & Car & ",""A"",""B"",""C"",...)"
Sheets(2).Cells(nb, 3) = Sheets(2).Range("AZ1").Value
par ça :
Sheets(2).Cells(nb, 3) = Cells(1, cel.Column).Value

@R@chid, j'ai pas le fichier sous la main, je le poste demain. Sinon, non, les valeurs peuvent changer les valeurs en ligne 1 et en colonne A dans l'XLS de kingfadhel peuvent changer. Et oui, il y a des cellules vides.

Merci à vous deux en tout cas.

M43str0

Bonjour,
Celle là " Sheets(2).Cells(nb, 3) = Cells(1, cel.Column).Value " ma échappée

 

[m43str0]

Re : Transformer un tableau

Bonjour,

merci à vous deux.
@R@chid il me manque la troisième valeur Valx avec x de 1 à n en troisième colonne.
Finalement, je vais passer via VBA et la macro de kingfadhel qui fonctionne très bien.
En passant va falloir que je me mette au VBA...

Cdlt,
M43str0.

 

[R@chid]

Re : Transformer un tableau

Bonjour @ tous,

@R@chid il me manque la troisième valeur Valx avec x de 1 à n en troisième colonne.

Voir PJ
@ + +

 

[m43str0]

Re : Transformer un tableau

Bonsoir,

Chapeau R@chid, moi qui pensais connaître un peu excel... 😉
Merci.

M43str0.