Discussion :

[CristofMartins]

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

[gFZT82]

Bonjour,

Tu peux boucler sur chaque caractère de ton texte

Code :

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

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.

[Invité]

Code :

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

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

[CristofMartins]

Merci pour votre aide

[salve34]

Code :

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

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 :

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

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

[Marc-L]

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 !

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 :

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

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 pour chaque message ayant aidé …

[salve34]

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

Exact toute mes excuses

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

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

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 :

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

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.