PB Copie/Colle transposé Matrice

Bonjour à tous,

je dispose d'un fichier et je cherche simplement à copier/coller mes lignes en colonnes donc en transposé. Cependant, comme c'est c'est une matrice, j'ai une diagonale avec aucune valeur ce qui veut donc dire que le début de mon collage sera différent (saut d'une ligne) à chaque copie colle.

Je vous ai mit le fichier en pièce jointe et voici le début de mon code pour copier la premier ligne en colonne;

Range("C3:H3").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

je suis débutant en VBA, je vous remercie de votre aide.

A bientot

Bonsoir,

si vous sélectionnez la zone à copier puis sélectionnez une cellule plus loin, puis collage spécial, transposé, ça ne marche pas ?

si des cellules vides apparaissent et ne devraient pas, alors il vous suffira de les supprimer à l'issue.

@ bientôt

LouReeD

Bnjour,

Bonjour LouReed, n'abuse pas du Nutella.

Essaie ainsi :

Public Sub DEMO()
Dim n As Long, rng As Range
    n = Cells(3, Columns.Count).End(xlToLeft).Column
    Set rng = Cells(3, 2).Resize(, n - 1)
    Cells(4, 1).Resize(n - 1).Value = Application.Transpose(rng)
End Sub

Bonjour Jean-Eric

C'est entendu, je passe à la fraise

@ bientôt

LouReeD