Detecter des chiffres dans du texte

Hulk

XLDnaute Barbatruc

• 20 Avril 2010

• #2

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 !

😀 😀

 

Dernière édition: 20 Avril 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 20 Avril 2010

• #3

Re : Detecter des chiffres dans du texte

Bonjour, salut Hulk 🙂,

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Avril 2010

• #4

Re : Detecter des chiffres dans du texte

Slt Kjin 🙂

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

 

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 20 Avril 2010

• #5

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 20 Avril 2010

• #6

Re : Detecter des chiffres dans du texte

Re,
Dans ce cas pour interdire la saisie de chiffre

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 21 Avril 2010

• #7

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

 

Vote positif 0 Vote négatif