Discussion :

[Monte_Carlo]

Bonjour,

J'aimerai tester si dans une cellule il y a des chiffres.
Le problème est que cette cellule contien également du texte.

Exemple: DEC 132750

Quelqu'un aurait-il une solution ?

Merci.

[Marc-L]

Bonjour,

sujet déjà traité récemment …

Sinon dans ton cas, si un espace sépare toujours le texte des chiffres, voir du côté de la fonction Split entre autres …

[Monte_Carlo]

Je n'ai pas trouvé de topic la dessus désolé

Quelqu'un a une solution?

[Marc-L]

Sinon voir Manipuler les chaînes de caractères …

[Invité]

Bonjour,

Testez cette fonction :

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
 
Function RechercheChiffres(CelluleTestee As Range) As Boolean
 
Dim Ctr As Long
 
 RechercheChiffres = False
 If Len(CelluleTestee) > 0 Then
    For Ctr = 1 To Len(CelluleTestee)
        Select Case Mid(CelluleTestee, Ctr, 1)
            Case 0 To 9
                RechercheChiffres = True
        End Select
    Next Ctr
 End If
 
End Function

Elle s'emploie comme toute autre fonction.

Cordialement.

[mercatog]

Proposition utilisant les expressions régulières

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function ContainsNumber(ByVal Tmp As String) As Boolean
Dim Rg As Object
 
If Tmp <> "" Then
    Set Rg = CreateObject("VBScript.RegExp")
    With Rg
        .Pattern = "\d.*"
        ContainsNumber = .Test(Tmp)
    End With
    Set Rg = Nothing
End If
End Function