Problème positionnement rapide données

Bonsoir coralie,

lien fichier : https://www.cjoint.com/c/NCCwHnwrQ20

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sur Feuil2, note que tout est vide ; va sur Feuil1 ; tu peux voir
ton tableau initial ; fais Ctrl t (T minuscule) ➯ tu es sur Feuil2 ;
vérifie que la transposition a bien été effectuée ; sur Feuil1,
ton tableau initial est bien sûr inchangé.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA de Module1 (15 lignes) :

Option Explicit

Sub Transp()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim d&: Application.ScreenUpdating = 0
  With Worksheets("Feuil2")
    d = .Cells(1, Columns.Count).End(1).Column
    If d > 1 Then .[A1].Resize(4, d).Clear
    d = Cells(Rows.Count, 1).End(3).Row: If d = 1 Then Exit Sub
    Range("A1:D" & d).Copy: .[A1].PasteSpecial -4104, , , True
    Application.CutCopyMode = 0: .[A1].Resize(4).Orientation = 0
    .Select: [A1].Select
  End With
End Sub

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

si besoin, tu peux demander une adaptation ;
à te lire pour avoir ton avis.  :)

rhodo

Bonjour Coralie et Rhodo

Pas certain d'avoir bien compris ta demande.  Je t'ai fait une concaténation des variétés avec les poids dans le fichier ci-joint :

https://www.cjoint.com/c/NDwvHMi6uf0

Tu cliques sur le lien et tu suis les instructions pour récupérer le classeur

Si ce n'est pas ta demande, tu peux envoyer ton fichier par le même site (cjoint.com)

afin que nous comprenions mieux ce que tu désires faire.

Bon courage

Chris