Macro Transpose Formule

[bloomby]

Bonjour à tous,

alors voilà VBACrumble a déjà créer une macro (comme pîste de solution)
pour faire ce dont je cherche à faire

Dans la Sheets ("Update") à partir de D7

Sheets("Update").Select
Range("D7").Activate
Range(ActiveCell, Selection.End(xlDown)).Select
Selection.Copy

Ce sont mes données qui change continuellement, je veux donc que dans la feuille Sheets ("A")

il y est un transpose de la formule à partir de B2
Dans les fait je veux que dans la cellule B2 de la sheets ("A") la formule soit: =Update!D7 Dans la cellule C2 =Update!D8 C3 =Update!D9 ....

merci

 

[vbacrumble]

Re : Macro Transpose Formule

Bonsoir


Si j'avais écris cette macro
Sheets("Update").Select
Range("D7").Activate
Range(ActiveCell, Selection.End(xlDown)).Select
Selection.Copy


Elle aurait plutôt cette forme

Option Explicit
Sub macro()
Dim rs As Range, rdS$
rdS = "A1"
With Sheets("Update")
    Set rs = .Range("D7")
    .Range(rs, rs.End(xlDown)).Copy .Range(rdS)
End With
Set rs = Nothing
End Sub

 

[ROGER2327]

Re : Macro Transpose Formule

Bonjour à tous.

Je ne suis pas certain d'avoir compris... Voyez cependant cette proposition (classeur joint).​

Bon dimanche,
ROGER2327

 

[bloomby]

Re : Macro Transpose Formule

Bonjour VBACrumbe et Roger,

merci de votre aide le résultat final est parfait

bloomby