Discussion :

[jbggg]

bonjour,

j'ai un souci je souhaite mettre des sécurités de saisie sur mon projet. Donc j'ai posé des conditions sous IF mais meme quand je rentre une valeur bonne, j'ai un msgbox qui s'affiche. Et donc les calculs ne se lancent pas.
Pourriez vous m'aider svp. merci

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
Private Sub CommandButton1_Click()
 
Dim point As Integer, i As Integer, x As Integer
point = Range("calcul2!B5")
x = 12
 
If TextBox1.Value > 2 Then
    MsgBox "Vérifier votre valeur", vbCritical, "Hauteur de station"
Else
 
    If TextBox2.Value > 2.5 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Hauteur du Voyant"
    End If
 
    If TextBox3.Value > 100 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Nombre de points"
    End If
 
'permet d'afficher le noms des points visés. Ils commencent au 1001
    For i = 1 To point
     Range("calcul2!A" & x) = 1000 + i
     x = x + 1
    Next i
'après il y a la suite de mon projet

[Bevan]

Salut,
il manque quelques else non ?

Pour éviter ça monte utilise Exit sub (les batteries de contrôles font partie des rares cas où on a le droit de déstructurer un peu le code...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if erreur1 then
   msgbox message1
   exit sub
endif
...
 
if erreurN then
   msgbox messageN
   exit sub
endif
'fin des contrôles

[ouskel'n'or]

Comme la suite de ton projet est dans un else, elle a de l'importance ici...

Code :

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

1
2
3
4
5
6
7
8
9
   If TextBox1.Value > 2 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Hauteur de station"
    ElseIf TextBox2.Value > 2.5 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Hauteur du Voyant"
    Elseif TextBox3.Value > 100 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Nombre de points"
    Else
        'la suite de ton code et à la fin...
   endif

[mayekeul]

bonjour,

ne serait-il pas plus judicieux de faire le test directement à la saisie?

lié à l'événement change tu textbox donc!

[jbggg]

ok mais alors je crois que la valeur de mon textbox1 n'est pas prise en compte comme un single, mais en tant qu'integer car si je rentre 1.615 cela ne fonctionne pas par contre pour 1 ça fonctionne.

mais comment lui dire de prendre les chiffre après la vrigule.
pourtant avec .value ça devrait etre fait??

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
   If CSng(Replace(TextBox1.Value, ".", ",")) > 2 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Hauteur de station"
    ElseIf CSng(Replace(TextBox2.Value, ".", ",")) > 2.5 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Hauteur du Voyant"
    Elseif TextBox3.Value > 100 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Nombre de points"

Dans la version française, TextBox1.Value réclame une virgule

Edit
Si une virgule est saisie, cette syntaxe ne "devrait" pas poser de problème
Je te laisse tester

[jbggg]

ok merci.

et donc si je mets

Code :

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

CSng(Replace(TextBox1.Value, ".", ","))

, cela permet de remplacer le point par la virgule?

car j'avais un problème quand je mettais

Code :

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

Not IsNumeric(TextBox1.Value

vu que j'avais des points, il s'éxitait tout de suite

[ouskel'n'or]

Tu peux aussi imposer la virgule lors de la saisie mais ta solution de vérifier les erreurs derrière un bouton de validation me paraît meilleure.
Par contre, j'ajouterais, après ton message indiquant l'erreur, un retour sur le textbox qui va bien

Code :

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

1
2
3
 If CSng(Replace(TextBox1.Value, ".", ",")) > 2 Then
        MsgBox "Vérifier votre valeur", vbCritical, "Hauteur de station"
        Textbox1.setfocus

A+