VBA Tranposition ???
Bonjour,
Je bloque toujours sur les tableaux
Dans une feuille j'ai un tableau disposer d'une certaine manière que je souhaite voir afficher dans la feuille "Résultat" avec une tout autre disposition.
J'ai mis en pièce jointe le fichier d'exemple avec peu de ligne sachant que le nombre réel de ligne dans le tableau original est indéfini et qu'il y a 10 codages maximum.
Le fichier sera plus parlant que mes explications je pense.
Personne n'a d'idées ?
Bonjour et merci Frangy,
Ton fichier fonctionne très bien et je vais l'utiliser dans d'autres tableau.
Je n'ai par contre pas compris comment tu choisi la colonne C pour a transposer ?
Si par exemple je veux transposer la D ou la E, où dois je modifier ?
Re, en fait, j'ai quand même un soucis
Certaines références apparaissent en nombre avec puissance du coup j'ai une erreur 91
exemple :
Comment choisis-tu la colonne C pour la transposer ?
Si par exemple je veux transposer la D ou la E, où dois je modifier ?
La cellule à copier (Info de la colonne Entête 3) est celle qui est décalée de 2 colonnes par rapport à la cellule de référence (texte de la colonne Entête 1).
Ce qui se traduit dans la procédure "Coller" par
Ws.Cells(Ligne, Colonne + 1).Value = Cel.Offset(0, 2)Si tu veux copier les infos de la colonne Entête 4, il suffit donc de décaler de 3 colonnes par rapport à la cellule de référence.
Ws.Cells(Ligne, Colonne + 1).Value = Cel.Offset(0, 3)Certaines références apparaissent en nombre avec puissance du coup j'ai une erreur 91
Modifie cette ligne
Ligne = WsC.Columns(1).Find(C.Value, , xlFormulas, xlWhole).RowA+
Merci beaucoup, tout fonctionne parfaitement maintenant