Power Query extraire données dans une colonne

[Abdoul aziz]

Bonjour quelqu'un pourrait t'il m'aider . je veux extraire certains données qui sont dans ma colonne A en colonne B. J'ai fais une extraction de mon fichier
il y a un exemple de ce que je souhaite obtenir dans mon fichier.
Je souhaite que l'extraction soit faite avec Power Query car je récupère les données à travers un flux RSS.
MERCI

 

[chris]

Bonjour

 

[Abdoul aziz]

Bonjour Chris merci ca fonctionne

 

[job75]

Bonjour Abdoul aziz, chris,

Voyez le fichier joint et cette fonction VBA :

Function Extract(x$, txt$)
Dim L%, LL%, i%, j%
L = Len(x): LL = Len(txt)
For i = 1 To L
    If Mid(x, i, 2) Like "##" Then
        For j = i + 2 To L
            If Not Mid(x, j, 1) Like "#" Then Exit For
        Next j
        Extract = Mid(x, i, j - i) 'extraction des chiffres
        If i > LL Then If Mid(x, i - LL, LL) = txt Then Extract = txt & Extract 'ajout du texte
        Exit Function
    End If
Next i
End Function

Le code doit être placé impérativement dans un module standard.

Formule en C2 =Extract(A2;"DOCSNCG")

A+

 

[chris]

@job75

Je souhaite que l'extraction soit faite avec Power Query car je récupère les données à travers un flux RSS

Le flux arrive dans une requête et est donc directement modifié dans la requête avant d'arriver dans un onglet...

L'exemple n'est pas représentatif du flux mais dans le cas réel ce le sera...

 

[Abdoul aziz]

Bonjour Abdoul aziz, chris,

Voyez le fichier joint et cette fonction VBA :

Function Extract(x$, txt$)
Dim L%, LL%, i%, j%
L = Len(x): LL = Len(txt)
For i = 1 To L
    If Mid(x, i, 2) Like "##" Then
        For j = i + 2 To L
            If Not Mid(x, j, 1) Like "#" Then Exit For
        Next j
        Extract = Mid(x, i, j - i) 'extraction des chiffres
        If i > LL Then If Mid(x, i - LL, LL) = txt Then Extract = txt & Extract 'ajout du texte
        Exit Function
    End If
Next i
End Function

Le code doit être placé impérativement dans un module standard.

Formule en C2 =Extract(A2;"DOCSNCG")

A+

merci job75