Detecter des chiffres dans du texte

[Toutou]

Bonjour tout le monde:

Je souhaiterais savoir s'il est possible de detecter la presence de chiffres parmi du texte dans un textbox. Si oui, comment ?

D'avance merci.

Bonne journee

Toutou

 

[Hulk]

Re : Detecter des chiffres dans du texte

Hello Toutou,

Je vais te paraître lourd, mais, donne-nous plus de détails pour qu'on puisse t'aider précisément.

Le TextBox est dans un UserForm ?
Sur la feuille ?

Les chiffres sont mélangés dans le texte ?
Ils sont à droite ?
A gauche ?
Au milieu ?
Il y a un espace ?
Plusieurs espaces ?
Un tiret ?
Un point ?

Ect...

Si en plus il y a un fichier joint...

Je ne dis pas que moi je vais réussir à t'aider, mais plus il y a de précisions, plus il y aura des gens qui t'aideront efficacement !

😀 😀

 

[kjin]

Re : Detecter des chiffres dans du texte

Bonjour, salut Hulk 🙂,

For i = 1 To Len(TextBox1)
    If IsNumeric(Mid(TextBox1, i, 1)) Then
        MsgBox "le textbox1 contient au moins un chiffre"
        Exit For
    End If
Next

A+
kjin

 

[Hulk]

Re : Detecter des chiffres dans du texte

Slt Kjin 🙂

Ben voilà ! Les pros s'en mêlent... j'ai qu'à me taire moi 😀 😀

 

[Toutou]

Re : Detecter des chiffres dans du texte

bonsoir a tous (ici il est presque 22h 😉 )

la suite de caracteres est dans un textbox dans un USF. Il devrait n'y avoir que des lettres, je voudrais donc faire un test pour verifier que l'utilisateur n'a pas taper de chiffres.
Les chiffres peuvent donc se trouver n'importe ou dans la suite de caracteres contenue dans le textbox.

merci Kjin,

je regarde ca tout a leur.

bonne fin d'aprem en France

Toutou

 

[kjin]

Re : Detecter des chiffres dans du texte

Re,
Dans ce cas pour interdire la saisie de chiffre

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 47 And KeyAscii < 58 Then Application.SendKeys "{BACKSPACE}"
End Sub

A+
kjin

 

[Toutou]

Re : Detecter des chiffres dans du texte

bonjour tout le monde, Hulk, Kjin

Merci pour vos reponses. J'ai adapte la premiere proposition en

If IsNumeric(Mid(TextBox1, i, 1)) Then
Textbox1 = ""
Exit For
End If

Et et ensuite teste la 2eme proposition. Elles semblent repondre toutes les 2 a mes besoins. Y en a -t - il une meilleure, plus legere a supporter pour excel ?

d'avance merci.

Bonne journee

Toutou