Discussion :

[oscar.cesar]

bonsoir
un fichier joint vaut mieux qu'un long discours
la partie en vert estce que je souhaite obtenir ??????????????
merci

[ouskel'n'or]

Bonsoir oscar.cesar;
Pour ça, tu utilises Copier/Collage spécial transposé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A2:D12").copy
Range("A13").pastespecial.Transpose:=True

On ne peut pas coller sur place (ici sur A2)
Bonen soirée

[oscar.cesar]

bonsoir tu peux me donner un peu plus d'infos sur
Range("A13").pastespecial.Transpose:=True

merci

[alsimbad]

et une petite formule sommeprod? ça te brancherai pas. je te met ça en pièce jointe

[ouskel'n'or]

bonsoir tu peux me donner un peu plus d'infos sur
Range("A13").pastespecial.Transpose:=True

Pas plus que ce qu'en dit l'aide en ligne

Transpose Argument de type Variant facultatif. Affectez-lui la valeur True pour transposer les lignes et les colonnes lorsque la plage est collée. La valeur par défaut est False.

Transpose un plage disposée horizontalement en plage disposée verticalement et inversement. Les x deviennent des y et les y des x, les colonnes deviennent des lignes et inversement.
Simplement, on ne peut pas coller une plage transposée sur elle-même.
Est-ce que j'ai satisfait ta curiosité bien légitime ?

Edit
Je répondais au sujet de la discussion

transfert données horizontales en verticales

Je n'ouvre jamais les pièces jointes.

[oscar.cesar]

bonjour à tous
pour alsimbad
merci je prefere du code vba car je transfert une base de donnee vers excel
j'ai d'autre manipulation à faire

merci

[oscar.cesar]

bonjour
toujours pour
Range("A13").pastespecial.Transpose:=True
j'ai une erreur 424 "objet" .
je rajoute que les donnees sont numeriques
que le regroupement des donnees(colonneB)et le classement des donnees(colonne C) est dépendant d"un index situe dans la colonne A.
les donnees en col A,B,C sont verticales et le resultat souhaité est horizontal
mais tout cela dans le fichier joint.
merci