Interdire texte dans textbox

Résolu
Signaler
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011
-
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011
-
Bonjour j’ai 3 textbox à vérifier je dois les parcourir pour contrôler si les caractères ne soient pas de texte mais que du numérique j’ai donc commencé un programme (qui marche pas)


Si sa peut aider à comprendre



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 





Private Sub
CommandButton1_Click ()





For
i = 0 To 2





If Not
 IsNumeric(“TextBox” & I ) Then





MsgBox "entrer des chiffres"



End If





Next





End Sub   

merci d'avance a++

18 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
Salut,

Regarde sur codyx.org, il y a un snippet en relation avec ta demande...sinon regarde du côté de : IsNumeric

A+
Exploreur

 Linux a un noyau, Windows un pépin
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
Re,

Ici

A+
Exploreur

 Linux a un noyau, Windows un pépin
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Comme le nom des textbox commencent par "Textbox", es-tu certain d'être sous VB ? Ne serait-ce pas plutôt VBA ? Excel peut-être ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

je ne suis pas en vb mais en vba solidworks ou de toute façon vba excel c'est la meme chose
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Ben non, ce n'est justement pas la même chose.... même si ça se ressemble.

Tu pourrais essayer
If Not IsNumeric(Me.Controls("TextBox" & I )) Then

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
a quel niveau est-ce que ca coince ?
le Me.Controls ?

sinon, tentes une enumération des controles

For Each oCtl in Me.Controls
If TypeOf oCtl Is TextBox Then
If Not IsNumeric(oCtl.Text) Then

End If
End If
Next oCtl
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
fais pas de boucle, mais trois lignes de code avec tes TextBoxes en dur
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

salut merci mais c'est pas vraiment se que j'attendé je veux rester sur une boucle car j'en ai deja une pour verifier si mes textbox sont vides ou pas
encore merci a++
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

merci pour ton aide sa fonctionne
moi j'avais fait l'inverse

"If Not Me.Controls(IsNumeric("TextBox" & I )) Then"
voila encore merci a++
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

re en faite sa marche sur excel mais pas sur vba solidworks
tu avais raison
si tu as une autre idée!!
voila
a++
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

merci pour ton aide sa marche mais g encore un pb car je veux parcourir que la textbox1, 2 et 3 c'est tout là la boucle ne s'arrete pas
voila

a+
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

desole j'ai oublié de dire que j'ete debutant en vba donc si tu peux préciser
merci
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

je veux faire une boucle car j'ai pas 3 textbox mais environ 70 dans certain cas
voila
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
If Not IsNumeric(TextBox1.text) Or Not IsNumeric(TextBox2.text) Or Not IsNumeric(TextBox3.text) Then
MsgBox "Un des TextBox ne contient pas une donnée numérique !", vbexclamation
End If
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
ah, ok....

ma boucle For Each oCtl semble fonctionner....
a toi de voir comment faire pour qu'elle ne traite que les textboxes que tu veux (renommes les, bon sang ! TextBox1, TextBox2, TextBox3......

c'est pas gérable

(en gros, te faut ajouter un test sur le début du nom, par exemple)
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
Salut,

Renfield (salut) >> Cela pas être génant si, par la suite il rajoute des TextBox et dont il ne veut pas vérifier la sasie numérique, rique d'avoir un p'tit problème...Peut-être jouer avec la propriété Name du/des TextBox à vérifier...non ?

++

A+
Exploreur

 Linux a un noyau, Windows un pépin
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

ok merci pour ton aide je vais voir se que je vais faire
a++
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

non c'est bon 70 textbox c'est deja pas mal il n'y en aura pas d'autre