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

cg1980 · 10 Octobre 2023

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 · 12 Octobre 2023

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.

PowerQuery:

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 · 13 Octobre 2023

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

Cousinhub · 13 Octobre 2023

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

mromain · 13 Octobre 2023

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 · 6 Novembre 2023

mromain à dit:
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

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

cg1980

XLDnaute Occasionnel

Pièces jointes

mromain

XLDnaute Barbatruc

cg1980

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

mromain

XLDnaute Barbatruc

Pièces jointes

cg1980

XLDnaute Occasionnel

Discussions similaires