Coller/Transposer

Bonjour à tous!

J'ai un soucis avec ma macro Excel.

J'ai un tableau d'un certains nombre de lignes et de colonnes, et je souhaiterai faire un copier/coller transposer, sauf que j'ai toujours un message d'erreur.

J'ai essayé :

• ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
• Range("B300").PasteSpecial Transpose:=xlPasteSpecialTransposeAdd
• Range("B50" & Cells.Selection.End(xlDown)) = WorksheetFunction.Transpose(Range("B300"))

Mais rien n'y fait toujours un message d'erreur je ne comprend pas pourquoi..

Pour vous éclairer, j'ai un tableau qui va de la ligne B50 à la ligne de fin (qui est variable d'ou Cells.Selection.End(xlDown)), et j'aimerai le coller et transposer en B300..

Mais je me dis que peut être c'est parce que j'ai utilisé l'enregistreur de macro qui me donne Cells.Selection.End(xlDown) et donc qui ne reconnais pas mon tableau? j'en sais rien...

Merci de votre aide

Bonjour split123,

A partir de l'enregistreur de macro et en optimisant le code....

Ça devrait donner un code du genre:

Sub Bouton1_Cliquer()
   Dim dl As Integer

   With Sheets("Feuil1")
   '.Rows(300).EntireRow.Delete                     'supprime la ligne 300
    dl = .Range("B" & Rows.Count).End(xlUp).Row    'défini la dernière ligne de la colonne b

    .Range("B50:B" & dl).Copy
    .Range("B300").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
   End With

End Sub

Cordialement,

Bonjour,

Super, j'ai adapté ton code au mien et effectivement ça fonctionne!

je ne comprend pas pourquoi moi ça ne marchais pas..

Merci beaucoup

Re,

Ravi d'avoir pu t'aider;

Cordialement,