Code Vba pour extraire un chiffre dans Text

Version imprimable

08/04/2019, 09h55
Abdel1994

Code Vba pour extraire un chiffre dans Text

Bonjour,

J'ai des textes sous la forme:
exemple1:
" - N°: #423#
- Machine: 1946
- Date: 01/05/2018"

exemple2:
" - N°: #5248#
- Machine: 5874
- Date: 05/02/2017"

Je cherche un code VBA pour extraire le N° entre "#"; donc 423 pour l'exemple1 et 5248 pour l'exemple2.

Merci d'avance.

Bonjour,
une solution :

Code:

1
2
3
4
5
6
7
8
9
 
Dim Premier As Integer
Dim Dernier As Integer
Dim valeur As String
 
Premier = InStr(1, [Champ1], "#") + 1
Dernier = Premier + InStr(1, (Mid([Champ1], Premier + 1)), "#")
 
valeur = Mid(Champ1, Premier, Dernier - Premier)

Salut
J'utilise cette fonction dans un module standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function fExtractNumeric(strInput) As String
'https://bytes.com/topic/access/answers/862765-extracting-number-string
' Returns the numeric characters within a string in
' sequence in which they are found within the string
Dim strResult As String, strCh As String
Dim intI As Integer
If Not IsNull(strInput) Then
    For intI = 1 To Len(strInput)
        strCh = Mid(strInput, intI, 1)
            Select Case strCh
                Case "0" To "9"
                    strResult = strResult & strCh
                    Case Else
            End Select
    Next intI
End If
fExtractNumeric = strResult
End Function

Et à l'aide d'une requête

Code:

fExtractNumeric([MonChamp])