Discussion :

[benjisan]

Bonjour à tous,

J'ai une petite question à vous poser ??

Existe-t-il une fonction permettant de garder les caractères numériques dans une chaine de caractère ??

D'avance merci

Bonne journée

[Invité]

Bonjour

De mémoire non (mais je ne connais pas tout).
Par contre, une fonction de ce style devrait faire l'affaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function GarderNum(strChaine As String) As String
 
    Dim i As Integer
 
    For i = 1 To Len(strChaine)
        If Asc(Mid(strChaine, i, 1)) > 47 And Asc(Mid(strChaine, i, 1)) < 58 Then
            GarderNum = GarderNum + Mid(strChaine, i, 1)
        End If
    Next i
 
End Function

Starec

[benjisan]

Comme d'habitude un grand merci Starec.
Cela Fonctionne Nickel

A bientôt