Microsoft 365 copier coller en changeant la disposition et plage de donnees variable

[cg1980]

Hello
une question a vous poser. J 'ai 2 fichiers (un fichier source et le fichier modele). La plage du fichier source peut varier d'une fois à l 'autre

Mon but est de prendre les donnees du fichier source et les copier dans le fichier modele mais la disposition change.

J ai mis des couleurs pour voir les correspondance de données. Dans le fichier source, les donnees sont sur une ligne et ensuite elles sont sur 2 lignes dans le fichier Modelle
Pour chaque numero de compte (ou ligne dans le fichier source, je devrais repeter ce copier coller).

Les donnees sont copier en valeur sans formule.
Si quelqu'un peut m'aider, je le remercie infiniment
Claudio

 

[mromain]

Bonjour cg1980, le forum,

Une solution avec PowerQuery qui arrive à ce résultat :

Il faut juste adapter l'emplacement du fichier source.xlsx dans l'étape Source.

let
    Source = Excel.Workbook(File.Contents("C:\...\source.xlsx"), null, true),
    Sheet1_Sheet = Source{[Item="Sheet1",Kind="Sheet"]}[Data],
    PremièresLignesSupprimées = Table.Skip(Sheet1_Sheet,2),
    FiltreNonNull = Table.SelectRows(PremièresLignesSupprimées, each ([Column1] <> null)),
    ColonneAjoutée_Records = Table.AddColumn(FiltreNonNull, "Records", each {[#"Account no."=_[Column1], #"Buy / Sell"=_[Column4], Currency=_[Column2], Amount=Number.Abs(Number.From(_[Column5])), Against=_[Column9], #"Value date / Maturity"=_[Column3]],
                                                                             [#"Account no."=null, #"Buy / Sell"=_[Column7], Currency=_[Column2], Amount=Number.Abs(Number.From(_[Column5])), Against=_[Column9], #"Value date / Maturity"=_[Column6]],
                                                                             [#"Account no."=null, #"Buy / Sell"=null, Currency=null, Amount=null, Against=null, #"Value date / Maturity"=null]}),
    AutresColonnesSupprimées = Table.SelectColumns(ColonneAjoutée_Records,{"Records"}),
    ListesDéveloppées_Records = Table.ExpandListColumn(AutresColonnesSupprimées, "Records"),
    ColonneDéveloppée_Records = Table.ExpandRecordColumn(ListesDéveloppées_Records, "Records", {"Account no.", "Buy / Sell", "Currency", "Amount", "Against", "Value date / Maturity"}, {"Account no.", "Buy / Sell", "Currency", "Amount", "Against", "Value date / Maturity"}),
    TypesModifiés = Table.TransformColumnTypes(ColonneDéveloppée_Records,{{"Value date / Maturity", type date}, {"Against", type text}, {"Amount", Currency.Type}, {"Currency", type text}, {"Buy / Sell", type text}, {"Account no.", type text}})
in
    TypesModifiés

A+

 

[cg1980]

tres interessante solution , mais je n'ai pas l autorisation d installer powerquery en fait))

 

[Cousinhub]

Bonjour,
Pas besoin d'autorisation, PQ est nativement installé dans ta version (si tu utilises bien 365)
Bon W-E

 

[mromain]

Bonjour cg1980, Cousinhub, le forum,

Tout comme le dit Cousinhub, si tu es bien sur Office 365, tu as PowerQuery. C'est une fonctionnalité d'Excel.
Tu peux tester le fichier ci-joint.

A+

 

[cg1980]

Bonjour cg1980, Cousinhub, le forum,

Tout comme le dit Cousinhub, si tu es bien sur Office 365, tu as PowerQuery. C'est une fonctionnalité d'Excel.
Tu peux tester le fichier ci-joint.

A+

parfait, merci beaucoup. tres interessant