retournement de tableau

[steeve]

Bonjour,

Je dispose d'un tableau dont j'ai copier les valeurs dans une autre feuille

J'ai fait ceci avec la fonction suivante (merci pat1545 et Robert):

Sub coppp()

Dim nblignes As Integer ' un entier pas variant
Dim rng As Range

Set rng = Worksheets('feuille').Range('plageNomme') ' la plage nommée
Set desti = Sheets('feuil3').Range('A257') 'destination de la copie
rng.Copy ' copie des valeurs
desti.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False ' escape

End Sub

Je voudrai maintenant le retourner:

[ol]Voici La structure actuelle de mon tableau[/ol]

Champ1|Champ2|Champ3|Champ4|Champ5|->ligne des intitulés du tableau
Val1|Val2|Val3|Val4|Val5->Valeur du tableau (ligne1)
Val1|Val2|Val3|Val4|Val5->Valeur du tableau (ligne2)
Val1|Val2|Val3|Val4|Val5->Valeur du tableau (ligne3)


[ol]Je voudrai arriver à ce résultat:[/ol]

Ligne|Champs|Valeur
1|Champ1|Val1
1|Champ2|Val2
1|Champ3|Val3
1|Champ4|Val4
1|Champ5|Val5
2|Champ1|Val1
2|Champ2|Val2
2|Champ3|Val3
2|Champ4|Val4
2|Champ5|Val5


La solution est-elle de faire une boucle imbriquée ?

Est-ce que quelqu'un a déjà fait ce code ou pourrait me l'indiquer?


Merci à tous

 

[Steeve]

Bonjour à toutes et à tous,

Hervé,

Un immense merci, tout fonctionne à merveille !!