vérifier le contenu de textbox

Bonjour,

J'ai créé un userform avec un nombre variable de textbox. Les utilisateurs doivent ensuite saisir des valeurs numériques ou "B". j'aimerais pouvoir vérifier que ces saisies sont correctes. j'ai bidouillé le code ci-dessous qui vérifie bien la saisie du b et les valeurs numériques, mais n'accepte pas les valeurs décimales

Code:

---

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 26

Dim testnum, testb As Boolean testnum = True testb = False Dim nbdom, i As Integer nbdom = Sheets("temp").Range("C18")   For i = 1 To nbdom 'validation de la saisie si "B" testb = False If Me.Controls("coeff" & i).Text = "b" Or Me.Controls("coeff" & i).Text = "B" Then testb = True   'validation de la saisie si numérique If testb = False Then With Me.Controls("coeff" & i) If .Value > "" And .Value <> Fix(Val(.Value)) Then .SetFocus Beep MsgBox "Veuillez ne saisir que des chiffres ou un B !", vbOKOnly, " Erreur !" testnum = False Exit For End If End With End If Next i   If testnum = True Then 'suite de la procédure

---

j'ai bien trouvé sur le web des choses sur la fonction instr qui me semblent intéressantes, mais je ne vois pas trop comment adapter ici car cela ne vérifie qu'une seule valeur à chaque fois comme sur le code ci-dessous. Y a t-il une possibilité d'utiliser la fonction instr avec plusieurs variables ?

Code:

---

1 2 3

With Me.Controls("coeff" & i) contenu = .Value x = InStr(1, contenu, "1")

---

dans un test box tu a la possibilité de ne taper que des chiffres mais on le dit jamais assez faite une recherche dans les contribs ou même ce forum

dans les contrib tu a une classe textbox tu la cherche avec mon pseudo tu la trouvera

cela consiste a utiliser les évènement keypress du textbox
exemple a mettre dans le module userform

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not Chr(KeyAscii) Like "[0-9-.]" Then KeyAscii = 0 End Sub

---

tu trouvera partout ce genre de petite chose
faut il encore se donner la peine de chercher

merci de la réponse.

j'avais bien trouvé le code utilisant le keypress, mais il marche avec une macro par textbox, et mon nombre de textbox est variable. Ta suggestion de créer une classe de textbox peut peut-être résoudre le problème. Je vais regarder si je comprends le principe à partir de l'exemple que tu donnes sur les numéros de téléphone.

Dans ce cas la c est
If isnumeric(''nomtextbox'') then.......

ah ben ça c'est magique, merci ! Je ne pense pas assez à fouiller dans les fonctions et je ne connaissais pas celle-là.

Salut, toujours consultable : Obliger une saisie numérique dans une TextBox

re
a oui kiki merci pour la piqure de rappel

j'avais zappé le séparateur décimal qui doit être unique

ma version

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = IIf(Chr(KeyAscii) Like "[0-9-.]" And InStr(TextBox1.Value, ".") <> 0 And Chr(KeyAscii) = ".", 0, KeyAscii) End Sub

---