Formule/macro pour dupliquer valeurs sur une autre feuille

Bonsoir a tous,

J'aimerais recuperer mes valeurs barcode sur ma feuille "base" et les coller dans les colonnes appropriées "barcode0, barcode1, barcode2 etc...de ma feuille "resultat".

J'ai fait les 2 premières lignes manuellement et mis en couleur pour que ce soir plus clair.

Merci d'avance pour votre aide et conseils!

Hello,

Une proposition Powerquery

Clic droit + actualiser pour mettre à jour si de nouvelles datas

@+

Edit : la requête pour ne pas avoir à ouvrir le fichier pour les curieux

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],

    Sort = Table.Sort(Source,{{"barcode", Order.Ascending}}),

    Group = Table.Group(Sort, {"barcode"}, {{"tbl", each List.Buffer(_[barcode]) }},0,(x,y)=> Number.From(Text.Start(y[barcode],4)<>Text.Start(x[barcode],4))),

    Add = Table.AddColumn(Group, "Concat", each Table.FromRows(
        {List.TransformMany( [tbl] ,
        (x)=> {x , Text.Insert(Text.Insert(Text.Middle(x,1,50),1,"-" ),4,"-")}, 
        (x,y)=> y )}))[[Concat]],

    Combine = Table.Combine(Add[Concat]),

    NombreOccurence = Number.From(Text.Select(List.Last(Table.ColumnNames(Combine)),{"0".."9"}))/2-1,

    NomColNew = List.Accumulate({0..NombreOccurence},{},(s,c)=>s&{"barcode"&Text.From(c), "visu"&Text.From(c)}),

    Rename = Table.RenameColumns(Combine, List.Zip({Table.ColumnNames(Combine),NomColNew}))
in
    Rename

Bonsoir Baroute,

C'est puissant et parfait merci!

Hey !

Top merci pour le retour

Si tu as besoin d’explications n’hésite pas
@+

Bonjour à tous !

Une approche Power Query qui évite l’écueil "coût" lié à l'usage du cinquième argument de la fonction Table.Group.

Remarque : Le traitement des blocs incomplets n'a pas été précisé dans la demande.....