Macro qui transpose

[bloomby]

Bonjour à tous,

Je cherche à tranposer plusieus données;

Sheet1
à partir de la ligne 8 (colonne2) [B8] (je désire sélectionner XltoRight)

faire un copie Valeur (transpose) dans Sheet2 [B10]

donc la la suite sheet1[B9] vers sheet2[C10]

merci

 

[Dull]

Re : Macro qui transpose

Salut bloomby, le Forum

Essaye ce code

Sub Macro1()
    Range("B8:B" & Range("B65536").End(xlUp).Row).Copy
    Sheets("Feuil2").Range("C10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
End Sub

Bonne Journée

 

[bloomby]

Re : Macro qui transpose

Bonjour DUll,

J'ai essayer ta macro,
mais dans les faits c'est l'inverse que je désire soit copier (horizontal) ToRight
coller verticalement

je vais essayer de modifier ton code
merci

 

[Dull]

Re : Macro qui transpose

Re

Effectivement 😱

essaye ça

Sub Macro1()
    Range("IV8").End(xlToLeft).Select
    Range(Selection, Selection.End(xlToLeft)).Copy
    Sheets("Feuil2").Range("C10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
Application.CutCopyMode = False
End Sub

Fait avec l'enregistreur de Macro

Bonne Journée

 

[vbacrumble]

Re : Macro qui transpose

Bonjour tous


En triturant le code a Dull 😉

Sub Macro1()
Dim r As Range
Set r = Sheets("Feuil1").Range("IV8").End(xlToLeft)
With Application
    .ScreenUpdating = False
    Sheets("Feuil1").Range(r, r.End(xlToLeft)).Copy
    Sheets("Feuil2").Range("C10").PasteSpecial xlPasteValues, , , True
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

 

[bloomby]

Re : Macro qui transpose

Bonjour dull, VBACrumble,

cela fonctione, merci de votre aide

PS: VBACrumble, si tu désir un défis davantage à ta hauteur:
https://www.excel-downloads.com/threads/creer-une-boucle-pour-formule.115319/

😉 Merci