Test si string contient des chiffres

Version imprimable

14/03/2013, 10h19
CristofMartins

Test si string contient des chiffres

Bonjour tout le monde,
J'ai un petit problème. j'aimerais tester si ma string contient des chiffres. je sais tout le monde va me dire qu'il y a la fonction isNumeric() mais le problème c'est qu'il se peut que ma chaîne contienne des caractères et des chiffres en même temps. Moi j'aimerais pouvoir tester si ma chaine des caractères contient des chiffres même s'ils sont mélangés avec des lettres ou n'importe quoi d'autre.

Avez-vous des conseils?

Merci d'avance

Bonjour,

Tu peux boucler sur chaque caractère de ton texte

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Texte As String, C As String
Dim i As Integer
    Texte = "Aujourd'hui, 14 mars"
    For i = 1 To Len(Texte)
        If IsNumeric(Mid(Texte, i, 1)) Then
            MsgBox "Le texte contient une valeur numérique."
            Exit For
        End If
    Next i
End Sub

Cordialement.

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestContientChiffres()
Debug.Print ContientChiffres("RDURUPT")
Debug.Print ContientChiffres("75 RDURUPT")
Debug.Print ContientChiffres("RDURUPT 75")
End Sub
Function ContientChiffres(TXT As String) As Boolean
Dim Ch As Long
For Ch = 1 To Len(TXT)
 If IsNumeric(Mid(TXT, Ch, 1)) Then
    ContientChiffres = True
    Exit Function
 End If
Next
End Function

14/03/2013, 12h59
CristofMartins

Merci pour votre aide :D

Petit Bug

Citation:

Envoyé par rdurupt

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestContientChiffres()
Debug.Print ContientChiffres("RDURUPT")
Debug.Print ContientChiffres("75 RDURUPT")
Debug.Print ContientChiffres("RDURUPT 75")
End Sub
Function ContientChiffres(TXT As String) As Boolean
Dim Ch As Long
For Ch = 1 To Len(TXT)
 If IsNumeric(Mid(TXT, Ch, 1)) Then
    ContientChiffres = True
    Exit Function
 End If
Next
End Function

petite bug ( tu remet pas à false )que j'ai trouvé en utilisant ta fonction au cas où d'autres voudraient l'utiliser dans une boucle
voici ma version :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub TestConti entChiffres()
	ContientChiffres("RDURUPT")
	ContientChiffres("75 RDURUPT")
	ContientChiffres("RDU RUPT 75")
	ContientChiffres("RDURUPT ")
	ContientChiffres("RDURUPT ")
	ContientChiffres("RDURUPT ")
	ContientChiffres("RDURUPT ")
	ContientChiffres("RDURUPT ")
	ContientChiffres("RDURUPT ")
	ContientChiffres("RDURUPT ")
End Sub
Function ContientChiffres(TXT As String) As Boolean
	Dim Ch As Long
	For Ch = 1 To Len(TXT)
	 If IsNumeric(Mid(TXT, Ch, 1)) Then
	    ContientChiffres = True
	    MsgBox("ContientChiffres")
	 else
	 	ContientChiffres = False
	    MsgBox(" pas ContientChiffres")
	    Exit Function
	 End If
	Next
End Function

Y a pas de « bug » ‼

Bonjour, bonjour !

Vaudrait mieux tester avant d'écrire une bêtise car le code de Robert fonctionne bien tel quel ‼

Qui plus est la correction proposée déclenche une erreur à la compilation ! :roll:

Sans compter les messages devant se déclencher après la fonction et non pas à l'intérieur !
Sinon une telle fonction serait inutile, une simple procédure s'en acquitterait comme celle de gFZT82 …

Alternative :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function IsNumIn(V) As Boolean For C& = 48 To 57 If InStr(V, Chr$(C)) Then IsNumIn = True: Exit Function Next End Function Sub Test() For Each T In [{"Azert1uiop","Azertyuiop"}] MsgBox """" & T & """ contient chiffres : " & IsNumIn(T) Next End Sub
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé …

Citation:

Vaudrait mieux tester avant d'écrire une bêtise car le code de Robert fonctionne bien tel quel ‼

Exact toute mes excuses :oops:

Citation:

Qui plus est la correction proposée déclenche une erreur à la compilation ! :roll:

il y avait juste un espace malheureux dans l'appel à la fonction

Citation:

Sans compter les messages devant se déclencher après la fonction et non pas à l'intérieur !

Encore exact c'est ce que je fais ci-dessous et là tout est bon

voici donc le code correct qui prouve que la fonction rdurup fonctionne correctement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub TestContientChiffres() if ContientChiffres("RDURUPT") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") if ContientChiffres("75 RDURUPT") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") if ContientChiffres("RDURUPT 75") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") if ContientChiffres("RDURUPT") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") if ContientChiffres("RDURUPT") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") if ContientChiffres("RDURUPT") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") if ContientChiffres("RDURUPT") then MsgBox("Contient Chiffre") else MsgBox("Pas Contient Chiffre") End Sub Function ContientChiffres(TXT As String) As Boolean Dim Ch As Long For Ch = 1 To Len(TXT) If IsNumeric(Mid(TXT, Ch, 1)) Then ContientChiffres = True Exit Function End If Next End Function
Encore toutes mes excuses je ferai plus attention la prochaine fois.