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