Transposition données VBA excel

Bonjour à tous,

Je débute en macro et j'ai une demande bien précise.
J'ai le tableau suivant :

ref	Taille 1	Taille 2	Taille 3	Taile 4
AA	10	20	30	30

Et j'aimerai afficher le résultat suivant dans une seconde feuille :

Ref (AA)	Taille 1 (10)
Ref (AA)	Taille 2 (20)
Ref (AA)	Taille 3 (30)
Ref (AA)	Taille 4 (40)

Et je n'ai absolument aucune de la méthodologie ni de la technique à suivre pour arriver à ce résultat.

Merci d'avance pour vos réponses.

Bonjour,

exemple précis sur ton exemple précis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ioi() Dim Tabl(), Titre As String, i As Long Tabl = Feuil1.Cells(1, 1).CurrentRegion.Value ' adapater le nom de la feuille Titre = Tabl(1, 1) & " (" & Tabl(2, 1) & ")"   With ThisWorkbook.Worksheets.Add For i = LBound(Tabl, 2) + 1 To UBound(Tabl, 2) With .Cells(Rows.Count, 1).End(xlUp)(2) .Value = Titre .Offset(0, 1).Value = Tabl(1, i) & " (" & Tabl(2, i) & ")" End With Next i End With End Sub

---

manipulation des tableaux : http://silkyroad.developpez.com/vba/tableaux/

Bonjour,

Merci pour cette réponse rapide qui marche à merveille.
J'ai encore quelque modifications à faire pour l'adapter à mon cas mais je pense pouvoir m'en sortir.
Je dois notamment pouvoir le faire sur plusieurs avant transposition ce qui doit être réalisable.

Un immense merci pour votre aide.

Bonjour,

cet exemple est basé sur le fait que tu ne possèdes qu'une ligne

si tu as plusieurs lignes et plusieurs références, voici la généralisation, parmi plusieurs possibilités existantes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub ioi() Dim Tabl(), Titre As String, i As Long, j As Long Tabl = Feuil1.Cells(1, 1).CurrentRegion.Value ' adapater le nom de la feuille With ThisWorkbook.Worksheets.Add For j = LBound(Tabl, 1) + 1 To UBound(Tabl, 1) Titre = Tabl(1, 1) & " (" & Tabl(j, 1) & ")" For i = LBound(Tabl, 2) + 1 To UBound(Tabl, 2) With .Cells(Rows.Count, 1).End(xlUp)(2) .Value = Titre .Offset(0, 1).Value = Tabl(1, i) & " (" & Tabl(j, i) & ")" End With Next i Next j End With End Sub

---

Re bonjour,

Une fois de plus merci pour votre aide qui s'avère une fois de plus très utile.

Lorsqu'on lance la macro celle-ci se met à jour automatiquement dans une nouvelle feuille. Est ce qu'il serait possible que cela se mette à jour à chaque fois dans la même feuille ? ( Je suis désolé d'être plein de questions mais je suis pas mal dépassé sur le sujet :oops: ).

Encore merci.

Peut être qu'avec l'exemple suivant cela sera plus parlant !!

La colonne A = Id est ma référence et les colonne à partir de AM = Taille 1 sont les valeurs de taille qui m'interesse (cf photos ci dessous)
Pièce jointe 263444

J'aimerais que le résultat final ressemble à la photo ci-dessous. (les valeurs ne sont pas les mêmes car c'est un vieux fichiers rentré à la main). La colonne B n'est pas à prendre en considération.
Les :1, :2,... qui suivent les valeurs de taille représente l'ordre des différentes tailles. Le ":1" représente la taille 1 et ainsi de suite, cette données doit apparaitre pour une raison d'affichage sur un autre logiciel, mais je peux créer une formule qui permet de l'ajouter si c'est infaisable en VBA. (là on dépasse de loin mes faibles compétences). A noteer que chaque produits ne dispose pas forcément du même nombre de taille ( 1 produit peut avoir une taille unique ou bien 10 tailles différentes).
J’espère que ce que je dit est compréhensible et pas totalement irréalisable, cela m'éviterait des journées de copie de valeurs et les erreurs de copie qui en découlent :mouarf:.

Pièce jointe 263449

Une fois de plus merci d'avance pour cette ultra-précieuse

Par delà les explications que sont soignées, ce qui est rare en ce moment alors il faut le souligner, pourrais-tu joindre un mini fichier exemple, avec une feuille contenant des fausses données brutes et ces mêmes fausses données remises en forme, afin de mieux comprendre la conception et le positionnement des données ?

car rien qu'avec ta copie écran, voyant que certaines colonnes entre le début de la feuille et la zone des valeurs à reprendre sont totalement vides ... l'utilisation d'un CurrentRegion dans ma proposition ne semble pas appropriée.
alors autant avoir une vraie base :mrgreen:

Et voila aussitôt dit aussitôt fait :lol:

Le fichier et en pj.
Il y a déjà une macro de créée mais rien à voir avec celle dont on parle actuellement, elle sert uniquement à remplacer des caractères spéciaux.
Les feuilles qui nous intéresse pour ce cas sont les feuilles "caractéristiques", ou l'on va trouver les différentes sous formes horizontales, et "déclinaisons", où nous trouverons le résultats une fois transposé. Mais j'ai mis toutes les feuilles car elles sont toutes liées.

Merci d'avance.