Microsoft 365 extraire les 2 premiers chiffres d'une suite alphanumérique aléatoire- colonne Power query

LAPIN CRETIN · 27 Octobre 2021

bonjour à tous,

je cherche à créer une colonne personnalisée sur power query a partir d'une colonne existante

dans cette colonne, il y a des suite alphanumériques
je souhaite avoir les 2 premiers chiffres dans chaque ligne correspondante de la colonne créée...mais je ne trouve pas la méthode pour y arriver

21LCDK234543 => résultat souhaité 21
19LCU3467=> résultat souhaité 19
LCD4334567=> résultat souhaité 43
PU19K45678=> résultat souhaité 19

j'ai vu qu'il existe des fonction d'extraction comme text.middle, mais elles ne sont utiles que si on a une régularité dans les expressions alphanumériques
donc je fais appel à vos lumières..
merci pour votre aide.

chris · 27 Octobre 2021

Bonjour à tous
Nom de la colonne à adapter

VB:

Text.Start(Text.Select(Text.Replace([Texte]," ",""),{"0".."9"}),2)

ou plus simple si pas d'espaces qui traînent

Code:

Text.Start(Text.Select([Texte],{"0".."9"}),2)

Compte Supprimé 979 · 27 Octobre 2021

Salut Lapin crétin

Et avec une petite fonction personnalisée en VBA ?

@+

LAPIN CRETIN · 27 Octobre 2021

BrunoM45 à dit:
Salut Lapin crétin

Et avec une petite fonction personnalisée en VBA ?

@+

Edit : et Salut Bruno (j'oubliais la politesse)

euh... je ne sais pas si c'est possible. sachant que la nouvelle colonne me servira à creer un nouveau segment dans le TCD qui utilise ce fichier et filtrer en fonction des résultats

chris · 27 Octobre 2021

Bonjour à tous
Nom de la colonne à adapter

VB:

Text.Start(Text.Select(Text.Replace([Texte]," ",""),{"0".."9"}),2)

ou plus simple si pas d'espaces qui traînent

Code:

Text.Start(Text.Select([Texte],{"0".."9"}),2)

LAPIN CRETIN · 27 Octobre 2021

chris à dit:
Bonjour à tous
Nom de la colonne à adapter

VB:

Text.Start(Text.Select(Text.Replace([Texte]," ",""),{"0".."9"}),2)

ou plus simple si pas d'espaces qui traînent

Code:

Text.Start(Text.Select([Texte],{"0".."9"}),2)

bonjour Chris et merci

le nom de la colonne dans laquelle il y a les suites alphanumériques est [serie]

je ne suis pas certain de comprendre

LAPIN CRETIN · 27 Octobre 2021

LAPIN CRETIN à dit:
bonjour Chris et merci

le nom de la colonne dans laquelle il y a les suites alphanumériques est [serie]

je ne suis pas certain de comprendre

Je suis moins con que je ne le pensais finalement !

j'ai trouvé comment adapter ton code au nom de ma colonne

merci Chris, c'est top.
(bon maintenant il va falloir que je comprenne comment il fonctionne ton code)

chris · 27 Octobre 2021

RE

Prends la version simplifiée plus simple à comprendre

On extrait tout ce qui est chiffre et on garde les 2 premiers

job75 · 27 Octobre 2021

Bonjour LAPIN CRETON, Bruno, chris,

Un p'tit coup de VBA ne mange pas de pain :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&, x$, n As Byte, y$, j%
With [A1].CurrentRegion.Resize(, 2)
    tablo = .Value 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        x = tablo(i, 1)
        tablo(i, 2) = "" 'RAZ
        n = 0
        For j = 1 To Len(x)
            y = Mid(x, j, 1)
            If IsNumeric(y) Then
                n = n + 1
                tablo(i, 2) = tablo(i, 2) & y
                If n = 2 Then
                    If Left(tablo(i, 2), 1) = "0" Then tablo(i, 2) = "'0" & y
                    Exit For
                End If
            End If
    Next j, i
    '---restitution---
    Application.EnableEvents = False 'désactive les évènements
    .Value = tablo
    Application.EnableEvents = True 'réactive les évènements
End With
End Sub

Et c'est très rapide.

Testé en recopiant le tableau A2:A6 sur 100 000 lignes, la macro s'exécute chez moi en 0,4 seconde.

A+

Microsoft 365 extraire les 2 premiers chiffres d'une suite alphanumérique aléatoire- colonne Power query

LAPIN CRETIN

XLDnaute Nouveau

chris

Compte Supprimé 979

Guest

LAPIN CRETIN

XLDnaute Nouveau

chris

XLDnaute Barbatruc

LAPIN CRETIN

XLDnaute Nouveau

LAPIN CRETIN

XLDnaute Nouveau

chris

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes