Power query remplacer

Bonjour,
Ci-joint un fichier excel “CHAINE”;
Ce que je cherche, c'est une requete suivante:
Si le cinquieme caractere est égal à "1" alors le cinquieme et sixieme caractere sont remplacés par 99
7chaine.xlsx (14.25 Ko)


Merci

Bonjour,

Essaie ainsi :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"COMPTE", type text}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each if Number.From(Text.Range([COMPTE],4,1))=1 then Text.Range([COMPTE],0,4) & "99" else [COMPTE])
in
    #"Added Custom"

Attention ! tableaux base 0

Cdlt.

Bonjour Pierrot,

voici ce que j'ai fait, dis moi si ça te conviens pas

Sub test()
Dim c As Range
Dim derniereLigne As String

derniereLigne = ThisWorkbook.Sheets(1).Range("C" & Rows.Count).End(xlUp).Row

For Each c In ThisWorkbook.Sheets(1).Range("C2:C" & derniereLigne)
    If Mid(c.Value, 5, 1) = "1" Then
        c.Offset(0, 2) = Left(c.Value, 4) & "99" & Mid(c.Value, 7)
    Else
        c.Offset(0, 2) = c.Value
    End If
Next
End Sub

Zapsalis.

Bonjour Jean,

Excellent, merci encore!

Bonjour Zapsalis,

Je cherchais un développement dans power query; je pense que tu es allé sur une macro! merci pour l'aide.

Bonnes Fetes à Tout Le Monde!!!!

Jean si la condition est que le cinquieme chiffre soit different de 1, par quoi je remplace stp : Text.Range([COMPTE],4,1))=1

Re,

?

Text.Range([COMPTE],4,1))<>1

Merci

Rechercher des sujets similaires à "power query remplacer"