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

DaONE · 28 Avril 2021

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 · 28 Avril 2021

Bonjour DaONE,

je te propose le fichier ci-dessous.

VB:

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 · 28 Avril 2021

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 :

VB:

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

@ tirer vers le bas

Cordialement

DaONE · 28 Avril 2021

soan à dit:

Bonjour DaONE,

je te propose le fichier ci-dessous.

VB:

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 · 28 Avril 2021

R@chid à dit:
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 :

VB:

=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 · 28 Avril 2021

soan à dit:

Bonjour DaONE,

je te propose le fichier ci-dessous.

VB:

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 · 28 Avril 2021

@DaONE

autre version du fichier.

VB:

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 · 28 Avril 2021

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

Cordialement

DaONE · 28 Avril 2021

Bonjour,

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

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

DaONE

XLDnaute Junior

soan

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

soan

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

Pièces jointes

DaONE

XLDnaute Junior

Discussions similaires