XL 2016 Extraire des chiffres d'une cellule peu importe sa taille peu importe sa position

[DaONE]

Bonjour à TOUS,
Je cherche une formule pour extraire des chiffres.
Ma base de données se présente comme suit:

Quelle formules pour extraire uniquement les chiffres??? En sachant que les chiffres sont de tailles différentes (varient entre 1 et 4 chiffres) et qu'en plus sont dans une position différentes???

MERCI POUR VOTRE AIDE

 

[soan]

Bonjour DaONE,

je te propose le fichier ci-dessous.

Option Explicit

Function QLC(chn$) As String
  Dim s$, c As String * 1, n As Byte, i As Byte
  n = Len(chn): If n = 0 Then Exit Function
  For i = 1 To n
    c = Mid$(chn, i, 1): If c Like "#" Then s = s & c
  Next i
  QLC = s
End Function

soan

 

[R@chid]

Bonsoir @ tous,
Salut soan
on ne peut pas travailler sur des images, préfère fournir des fichiers Excel.
si tes données commencent en A2, alors en B2 :

=SOMMEPROD(FILTRE.XML("<a><b>"&SUBSTITUE(A2;" ";"</b><b>")&"</b></a>";"//b"))

@ tirer vers le bas



Cordialement

 

[DaONE]

Bonjour DaONE,

je te propose le fichier ci-dessous.

Option Explicit

Function QLC(chn$) As String
  Dim s$, c As String * 1, n As Byte, i As Byte
  n = Len(chn): If n = 0 Then Exit Function
  For i = 1 To n
    c = Mid$(chn, i, 1): If c Like "#" Then s = s & c
  Next i
  QLC = s
End Function

soan

waouw
c'est super MERCI

 

[DaONE]

Bonsoir @ tous,
Salut soan
on ne peut pas travailler sur des images, préfère fournir des fichiers Excel.
si tes données commencent en A2, alors en B2 :

=SOMMEPROD(FILTRE.XML("<a><b>"&SUBSTITUE(A2;" ";"</b><b>")&"</b></a>";"//b"))

@ tirer vers le bas



Cordialement

Bonjour R@chid
oui désolé je mettrai un fichier la prochaine fois, j'étais tellement désespéré et énervé de ne rien trouver sur google
MERCI pour la formule

 

[DaONE]

Bonjour DaONE,

je te propose le fichier ci-dessous.

Option Explicit

Function QLC(chn$) As String
  Dim s$, c As String * 1, n As Byte, i As Byte
  n = Len(chn): If n = 0 Then Exit Function
  For i = 1 To n
    c = Mid$(chn, i, 1): If c Like "#" Then s = s & c
  Next i
  QLC = s
End Function

soan

Du coup @ Soan,
Aurais-tu la même formule mais pour extraire des lettres ???
S'il te plait

 

[soan]

@DaONE

autre version du fichier.

Function QLL(chn$) As String
  Dim s$, c As String * 1, n As Byte, i As Byte
  n = Len(chn): If n = 0 Then Exit Function
  For i = 1 To n
    c = Mid$(chn, i, 1): If Not c Like "#" Then s = s & c
  Next i
  QLL = Trim$(s)
End Function

soan

 

[R@chid]

Re,
n'oublie pas de profiter de l'outil Power Query.


Cordialement

 

[DaONE]

Bonjour,

MERCI MERCI A TOUS LES DEUX; R@chid et Soan