Discussion :

[koeuf]

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 :

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
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 :

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

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

[patricktoulon]

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 :

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

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

[koeuf]

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.

[patricktoulon]

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

[koeuf]

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

[kiki29]

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