Power Query Extraire chiffre en fonction de leur position power query

djidji59430

XLDnaute Barbatruc

• 30 Octobre 2024

• #2

Bonjour à tous,

Il n'y a pas beaucoup de logique dans ton tableau. Tu le reçois comme ça ? C'est quoi, la source ?

Crdlmt

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 30 Octobre 2024

• #3

Hello
une fois importé ton tableau dans PQ, tu as une option de fractionnement "Texte vers Non texte"
ca te permet déjà d'éliminer le texte de début..
après.. pour la suite...

 

Vote positif 0 Vote négatif

M

Maverick59264

XLDnaute Nouveau

• 30 Octobre 2024

• #4

Bonjour,

Merci ça je le savais mais aprés c'est plus chaud merci quand même pour ta réponse

 

Vote positif 0 Vote négatif

A

alexga78

XLDnaute Occasionnel

• 30 Octobre 2024

• #5

Bonsoir à tous,

PowerQuery:

let
A = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
B = Table.TransformColumns(A, {"Column1", each
[
a = Text.Split(_," "),
b = List.PositionOf(List.Transform(a, (x)=> Text.Length(x)), 7, Occurrence.Last),
c  = List.Range(a,b + 1, 2),
d  = if Text.Length(c{0}) = 1 then Text.Combine(c, " ") else c{0}
] [d]
})
in
B

Bonne soirée à tous.

 

Vote positif 0 Vote négatif

Solution

M

Maverick59264

XLDnaute Nouveau

• 31 Octobre 2024

• #6

Bonjour,

Parfait cela fonctionne bien merci encore, il faut je travaille et comprend le code, merci encore c'est good

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #7

Bonjour à tous,

Avec cette fonction VBA c'est classique et très simple :

VB:

Function Extract$(c As Range)
Dim i%
For i = 1 To Len(c)
    With c.Characters(i, 1)
        If .Font.Color <> vbBlack Then Extract = Extract & .Text
    End With
Next
End Function

A+

 

Pièces jointes

• TEST.xlsm

  15.9 KB · Affichages: 1

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 31 Octobre 2024

• #8

Hello @job75
je crois que la coloration rouge des nombres à extraire a été mise par le demandeur pour montrer ce qu'il souhaitait récupérer

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #9

vgendron à dit:

Hello @job75
je crois que la coloration rouge des nombres à extraire a été mise par le demandeur pour montrer ce qu'il souhaitait récupérer

Cliquez pour agrandir...

Bon d'accord alors utilisez ceci mais c'est bien moins compréhensible :

VB:

Function Extract$(x$)
Dim i%, j%
i = InStrRev(x, ",", Len(x) - 3)
For j = i - 1 To 1 Step -1
    If Not IsNumeric(Mid(x, j, i - j + 1)) Then Extract = Mid(x, j + 7, i - j - 4): Exit For
Next
End Function

 

Pièces jointes

• TEST.xlsm

  16 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #10

Bon pas besoin de boucle :

VB:

Function Extract$(x$)
Dim i%, j%
i = InStrRev(x, ",", Len(x) - 3)
j = InStrRev(x, ",", i - 1)
Extract = Mid(x, j + 7, i - j - 4)
End Function

 

Pièces jointes

• TEST.xlsm

  15.3 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #11

Sur ce coup VBA est nettement plus simple et plus souple que PowerQuery.

 

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Occasionnel

• 1 Novembre 2024

• #12

Hello,
En VBA en utilisant les expressions régulières :

VB:

Function ExtractNum$(n$)
Dim regex As Object
Dim matches As Object
ExtractNum = ""
On Error Resume Next
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "\d* \d+,\d+"
regex.Global = True
Set matches = regex.Execute(n)
If matches.Count > 1 Then
   ExtractNum = Trim(matches(matches.Count - 2).Value)
End If
End Function

Explication du motif "\d* \d+,\d+"
on capture ce qui commence par 0 ou plus chiffre suivi d'un espace suivi d'un ou plus chiffres suivi d'une virgule suivi d'un ou plus chiffre. Le Global à True c'est pour capturer toutes les occurrences.
le matches(matches.Count - 2).Value c'est pour capturer l'avant-dernière occurrence.
Je trouve les mêmes résultats que le VBA de job75.
Ami calmant, J.P

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Novembre 2024

• #13

Bonjour le forum,

J'explique quand même comment fonctionne la fonction de mon post #10.

Elle recherche les positions de l'avant dernière virgule (i) et de l'avant-avant dernière virgule (j).

Ensuite on constate que le texte recherché commence toujours 7 caractères à droite de j et se termine toujours 2 caractères à droite de i.

Ce n'est pas un hasard bien sûr mais il faut avouer que sur le plan logique c'est assez capillotracté.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Novembre 2024

• #14

Ah mais il n'y a même pas besoin de VBA, c'est très simple par formule.

Sélectionner B1 et définir les 3 noms :

i =TROUVE(",";TEST!$A1)
j =TROUVE(",";TEST!$A1;i+1)
k =TROUVE(",";TEST!$A1;j+1)

Formule très simple en B1, à tirer vers le bas =STXT(A1;j+7;k-j-4)

 

Pièces jointes

• TEST.xlsx

  10.2 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Novembre 2024

• #15

Par curiosité j'ai mesuré les durées de recalcul des 16 formules :

- VBA post #10 => 3,9 x 1/10000ème de seconde

- formule post #14 => 2,4 x 1/10000ème de seconde

sur Win 11 Excel 2019.

 

Vote positif 0 Vote négatif