Copier une plage et coller dans une ligne

[meinda]

Bonjour ,
J'ai fait pas mal de recherche sur le net ,je n'arrive pas à trouver ,ce n’est peut-être pas possible!!!
Je voudrais copier une plage A2:D4 dans la feuille1 et coller dans une ligne (A1,B1,C1,D1,E1 ect) dans la feuille 2 .
J'ai essayer avec le collage spécial et enregistreur de macro ça fonctionne pas!!
Quelqu'un pourrais me dire si c'est possible?

[tulipe_4]

bonjour
as-tu essayer de cliquer sur" transposer" lors du collage special
cordialement
solution fausse

[meinda]

salut tulipe_4,
J'ai essayer avec transposer mais cela ne fonctionne pas.
A+

[tulipe_4]

re en attendant mieux
tu enregisres ta macro ligne par ligne en utilisant collage spe et transpose ensuite si besoin tu alleges le code
et tu rakoute en tete Application.ScreenUpdating = True pour eviter les sauts
cordialement

[dubois]

Bonsoir à tous, salut tulipe,

Code: Tout sélectionner


Sub Transpose()
Dim i%, f As Worksheet, f2 As Worksheet
        Set f = Sheets("Feuil1")
        Set f2 = Sheets("Feuil2")
        f2.Rows(1).Clear
    For i = 2 To 4
        f.Range("a" & i).Resize(1, 4).Copy Destination:=f2.Range("IV1").End(xlToLeft).Offset(0, 1)
    Next i
        f2.Range("a1").Delete Shift:=xlToLeft
End Sub

Bonne soirée
Claude

[meinda]

Salut, tulipe, Claude
Merci pour ce code .