1
2
3
4
5
6
7
8
9
10
11
12
13
let
    #"DataList" = let
    lst1 =  {{1..10},{ "txt1","txt2", "txt3"}}
    ,lstMerge = List.Zip(lst1)
    /*-----------------------------------------------------------------------------------------------------
        Permet de vérifier la concaténation. Transforme la liste en table et chaque sous-liste en record
    -----------------------------------------------------------------------------------------------------*/
    ,tblList2 = Table.FromRows(lstMerge, type table[ id = Int64.Type, value = Text.Type ])
 
in
    tblList2
in
    #"DataList"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let
    Source = Table.NestedJoin(Table1, {"A", "B","C"}, Table2, {"A", "B","C"}, "AddCol2", JoinKind.Inner),
    #"Expanded AddCol2" = Table.ExpandTableColumn(Source, "AddCol2", {"R5", "R6", "R7", "R8", "id"},{"AddCol2.R5", "AddCol2.R6", "AddCol2.R7", "AddCol2.R8", "id2"}),
    #"Remove list col" = let
    listCol = Table.ColumnNames( #"Expanded AddCol2")
            ,tblColName = Table.FromList(listCol,null)
            ,tblColNameSelection = Table.SelectRows(tblColName, each Text.StartsWith([Column1], "AddCol2"))
            ,lstColNameSelection = tblColNameSelection[Column1]
            ,lstColNameClean = List.ReplaceValue(lstColNameSelection,"AddCol2." ,  "",  Replacer.ReplaceText )
            ,lstToRename = List.Zip({lstColNameSelection,lstColNameClean})
            ,tblColRenamed =  Table.RenameColumns( #"Expanded AddCol2" , lstToRename)
    in tblColRenamed
in
    #"Remove list col"

1
2
3
4
5
let
    Source = Table.NestedJoin(Table1, {"A", "B","C"}, Table2, {"A", "B","C"}, "AddCol2", JoinKind.Inner),
    #"Expanded AddCol2" = Table.ExpandTableColumn(Source, "AddCol2", {"R5", "R6", "R7", "R8", "id"}, {"AddCol2.R5", "AddCol2.R6", "AddCol2.R7", "AddCol2.R8", "AddCol2.id"})
in
    #"Expanded AddCol2"

  #"Expanded AddCol2" = Table.ExpandTableColumn(Source, "AddCol2",  {"R5", "R6", "R7", "R8", "id"}, {"R5", "R6",  "R7", "R8", "id2"})

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
let
    Source = Excel.Workbook(File.Contents("C:\_Paul\PowerBI\Goodly\DataTest.xlsx"), null, true),
    Data_Table = Source{[Item="Data",Kind="Table"]}[Data],
    #"Changed Type" = Table.TransformColumnTypes(Data_Table,{{"Id", type text}, {"Col1", type text}, {"Col2", type any}, {"Col3", type any}, {"Valeur", type text},  {"Commentaire", type text}}),
    #"Remove list col" = 
        let listCol = Table.ColumnNames( #"Changed Type"),
            tblColName = Table.FromList(listCol,null),
            tblColNameSelection = Table.SelectRows(tblColName, each [Column1] = "Id" or Text.StartsWith([Column1], "Col")),
            lstColNameSelection = tblColNameSelection[Column1],
            tblFinal = Table.SelectColumns(#"Changed Type",lstColNameSelection)
        in #"tblFinal",
#"Remove Error" = let
        listCol = Table.ColumnNames( #"Remove list col")
        //,tblRemoveErr = List.Accumulate(listCol, #"Remove list col", (anyOutFirst, anyListCurr) => Table.ReplaceErrorValues (anyOutFirst, {{anyListCurr, null}}))     
        ,tblRemoveErr = Table.ReplaceErrorValues(#"Remove list col",List.Zip({listCol,{null}}))
        in tblRemoveErr
in
    #"Remove Error"

1
2
3
4
5
6
7
8
9
10
11
12
13
let
    Source = Excel.Workbook(File.Contents("C:\source.xlsx"), null, true),
    Data_Table = Source{[Item="Data",Kind="Table"]}[Data],
    #"Changed Type" = Table.TransformColumnTypes(Data_Table,{{"Name", type text}, {"Col1", type text}, {"Col2", type any}, {"Col3", type any}, {"Valeur", type text}, {"Commentaire", type text}}),
    #"Remove list col" = 
        let listCol = Table.ColumnNames( #"Changed Type"),
            tblColName = Table.FromList(listCol,null),
            tblColNameSelection = Table.SelectRows(tblColName, each [Column1] = "Name" or Text.StartsWith([Column1], "Col")),
            lstColNameSelection = tblColNameSelection[Column1],
            tblFinal = Table.SelectColumns(#"Changed Type",lstColNameSelection)
        in #"tblFinal"
in
   #"Remove list col"

1
2
3
4
5
6
7
8
9
10
11
12
13
let 
let 
Source = Excel.Workbook(File.Contents("C:\Data\Fichier.xlsx"), null, true),
DataTable = Source{[Item="Data",Kind="Table"]}[Data],
Typage = Table.TransformColumnTypes(DataTable,{{"Cost Item", type text}, {"Value", Int64.Type}, {"Location", type text}, {"Business", type text}, {"Department", type text}}),
ListInCol = 
  let 
    tblWithList = Table.TransformColumns(Typage,{{"Location", each Text.Split(_,",")},{"Business", each Text.Split(_,",")},{"Department", each Text.Split(_,",")} } ), anyOut = tblWithList
  in anyOut,
  ExpandLocation  = Table.ExpandListColumn(ListInCol, "Location"),
  ExpandBusiness = Table.ExpandListColumn(ExpandLocation, "Business"),
  ExpandDpt = Table.ExpandListColumn(ExpandDpt, "Department")
  in ExpandBusiness

1
2
3
Source =  Excel.Workbook(File.Contents("C:\Data\Fichier.xlsx"),  null, true),
DataTable = Source{[Item="Data",Kind="Table"]}[Data],
Typage  = Table.TransformColumnTypes(DataTable,{{"Cost Item", type text},  {"Value", Int64.Type}, {"Location", type text}, {"Business", type text},  {"Department", type text}}),

1
2
3
4
<a href="https://powerquery.how/table-transformcolumns/" target="_blank">Table.TransformColumns</a>(  table as table, // Source de données
   transformOperations as list, // Méthode (fonction) appliquée aux colonnes  {{NommDeColonne1, méthode1},...,{NommDeColonneN, méthodeN}}
   optional defaultTransformation as nullable function,// Voir <a href="https://powerquery.how/table-transformcolumns/" target="_blank">ici</a>
   optional missingField as nullable number // Voir <a href="https://powerquery.how/table-transformcolumns/" target="_blank">ici </a>) as table

1
2
3
4
ListInCol = 
  let 
     tblWithList = Table.TransformColumns(Typage,{{"Location", each Text.Split(_,",")},{"Business", each Text.Split(_,",")},{"Department", each Text.Split(_,",")} } ), anyOut = tblWithList
  in anyOut,

1
2
3
4
5
 
ExpandLocation  = Table.ExpandListColumn(ListInCol, "Location"),
ExpandBusiness = Table.ExpandListColumn(ExpandLocation, "Business"),
ExpandDpt = Table.ExpandListColumn(ExpandDpt, "Department")
in ExpandBusiness

1
2
3
4
5
6
7
8
9
10
11
12
13
ListInCol = 
  let 
    lstColName = Table.ColumnNames(Typage)
    ,lstFieldForExpand = List.Skip (lstColName, 2) 
    ,tblWithList = Table.TransformColumns( Typage,List.Transform(lstFieldForExpand, each {_, each Text.Split(_,",")})), anyOut = tblWithList
  in anyOut,
ColumnsExpanded = 
  let 
    lstColName = Table.ColumnNames(Typage) 
    ,lstFieldForExpand = List.Skip (lstColName, 2)
    ,anyOut = List.Accumulate (lstFieldForExpand , ListInCol, (anyFirstOut, anyCurr)=> Table.ExpandListColumn(anyFirstOut, anyCurr) )
  in anyOut 
in ColumnsExpanded

1
2
3
4
5
6
7
8
9
10
11
12
13
Let
    Source = {1..4},
    fxFactorial = (lstpNum as list, ipIdxStart as number, ipLoop as number, optional ipResult as number ) => 
         let
            iResult = if ipResult = null then lstpNum{ipIdxStart-1}  else lstpNum{ipIdxStart-1} * ipResult,
            anyOut = if List.Count(lstpNum)> ipIdxStart  + ipLoop -2 then 
                        if  ipLoop > 1  then  @fxFactorial (lstpNum, ipIdxStart+1, ipLoop -1 , iResult) else iResult
                     else "Range too large"
          in
 anyOut   ,
    Factorial = fxFactorial(Source,3, 2)
in
   Factoriall

  iResult = if ipResult = null then lstpNum{ipIdxStart-1}  else lstpNum{ipIdxStart-1} * ipResult, // Multiplication de la valeur passée en paramètre  x valeur de la liste en position -1 car indexation à  0

1
2
3
anyOut = if List.Count(lstpNum)> ipIdxStart  + ipLoop -2 then // Si le calcul est dans la plage alors 
 if ipLoop > 1  then  @fxFactorial (lstpNum, ipIdxStart+1, ipLoop -1 , iResult) else iResult // Si nombre d'appels n'est pas atteint alors appel la fonction avec les paramètres reçus (+1 pour ipIdxStart, -1 pour ipLoop )
 else "Range too large" // Message d'erreur si calcul hors plage

1
2
3
4
5
6
7
Table.ReplaceValue (
   table as table,                  // Param 1
   oldValue as any,               // Param 2
   newValue as any,             //Param3
   replacer as function,        // Param 4
   columnsToSearch as list   // Param 5
) as table

1
2
3
Replacer.ReplaceText ( text as nullable text, old as text, new as text, ) as nullable text
Replacer.ReplaceValue ( value as any, old as any, new as any, ) as any

1
2
3
4
5
6
Table.ReplaceValue(TableSource,"Green", "Yellow", Replacer.ReplaceValue, {"Col1","Col4", "Col10"} ) 

/*----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Avec Replacer.ReplaceText, chaque instance de «Green»en «Yellow» dans les colonnes 1,4 & 10 de la TableSource.
 Attention c'est CASE SENSITIVE donc si «Green» apparaît en  minuscule, aucun changement ne sera apporté
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

1
2
3
4
5
6
7
Table.ReplaceValue(TableSource,"Green", "Yellow", Replacer.ReplaceValue, {"Col1","Col4", "Col10"} ) 

/*----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 Avec Remplacer.replacevaluet, échange uniquement le texte «Green»en «Yellow» lorsque la valeur entière  correspond à «Green».
Par conséquent, seules les cellules contenant  exactement «Green» seront mises à jour dans les colonnes 1,4 & 10 de la TableSource.
 Attention c'est CASE SENSITIVE donc si «Green» apparaît en  minuscule, aucun changement ne sera apporté.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

1
2
3
4
5
6
7
8
9
10
11
12
= Table.ReplaceValue( #"Ma table source", each _ , null,
(col,row,z) => 
let 
lstPos = Text.PositionOf(col,row[Acronyme],Occurrence.All,Comparer.OrdinalIgnoreCase),
strNewValue = lstPos
 in strNewValue ,
{"Nom", "Volume", "Circulating Supply"})

/*----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Let..in pour permettre l'affectation de variables
Le contexte est donné par each _ = La ligne de la table, par conséquent puisque each _ est le param2, c'est une ligne qui est passé à customParam2.
Attention : Le contexte est aussi donné par customParam1 = param5 {"Nom", "Volume", "Circulating Supply"}
 Au final le contexte est  la ligne pour un champ du param5
Il est ainsi possible d'accéder à tous les champs de la ligne par le customParamX[Nom de la colone] qui recoit each _, dans l'exemple pour accéder à la valeur d'Acromyme de la ligne c'est row[Acronyme] 
 
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

@parmaName Type= NULL

Predicat ( @parmaName is null or FieldName = @parmaName );

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
USE [AdventureWorksLT2019]
GO
/****** Object:  StoredProcedure [SalesLT].[spOrder]    Script Date: 06/12/2022 18:17:15 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- =============================================
CREATE /ALTER PROCEDURE [SalesLT].[spOrder]
    -- Add the parameters for the stored procedure here
    @pFirstName NVARCHAR(MAX) = NULL
AS
BEGIN
    -- SET NOCOUNT ON added to prevent extra result sets from
    -- interfering with SELECT statements.
    SET NOCOUNT ON;

    -- Insert statements for procedure here
    --SELECT <@Param1, sysname, @p1>, <@Param2, sysname, @p2>

    SELECT DISTINCT SalesLT.Customer.FirstName
        , SalesLT.Customer.MiddleName
        , SalesLT.Customer.LastName
    FROM SalesLT.Customer
    WHERE ( @pFirstName  is null or FirstName = @pFirstName);
END

1
2
3
4
USE [AdventureWorksLT2019]
GO
EXEC SalesLT.spOrder;
EXEC SalesLT.spOrder "Catherine";

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Function mfForm_AddControls()

    Dim oFrm As Form, _
        oText As Control, _
        oLabel As Control, _
        sFormName As String, _
        oRset As Recordset, _
        oField As Field, _
        lLeft As Long, _
        lTop As Long, _
        lWidth As Long, _
        lHight As Long, _
        i As Integer
    
    
    
    lLeft = 343
    lTop = 341
    lWidth = 2460
    lHight = 330


    sFormName = "frmMoe_VRD_AnMois_CoutChtier"
    
    DoCmd.OpenForm sFormName, acDesign
    Set oFrm = Forms(sFormName)
    
    Set oRset = CurrentDb.OpenRecordset("qryHeure_VRD_AnMois_CoutChtier")
    
    i = 0
    For Each oField In oRset.Fields
       '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
       ' Creation de l'objet texte avant celui de l'objet lablel car sera le parent du label
       '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
       Set oText = CreateControl(oFrm.Name, acTextBox, acDetail, , oField.Name, lLeft, lTop + ((lHight + 150) * i), lWidth, lHight)
       oText.Name = "txt" & oField.Name

         '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
       ' Creation de l'objet lablel dont le parent sera le'objet Texte
       '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        Set oLabel = CreateControl(oFrm.Name, acLabel, acDetail, oText.Name, oField.Name, lLeft + lWidth + 150, lTop + ((lHight + 150) * i), lWidth, lHight)
        
        oLabel.Name = "lbl" & oField.Name
        i = i + 1
        oRset.MoveNext
    Next
    
    
    DoCmd.OpenForm oFrm.Name, acFormPivotTable
    
End Function