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

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...