[XL-2019] Problème de robustesse du programme VBA

1 pièce(s) jointe(s)

Problème de robustesse du programme VBA

Bonjour,

C'est la première fois que je viens sur ce forum et j'ai certaines difficultés avec mon programme.
J'aimerais faire en sorte que si aucune valeur n'est mise dans un de mes textbox, le programme puisse redemander à l'utilisateur de remettre une valeur afin d'éviter le plantage du programme (Je ne sais pas si je peux utiliser une boucle while avec, et comment faire pour redemander à l'utilisateur de remettre une valeur dans le textbox).

J'espère avoir été clair et votre aide me serait d'une grande utilité car je suis novice en la matière.

Merci d'avance :)

Bjr

Bonjour,

Pourriez-vous déposer votre code et des captures d écran, peu de membre ouvre les pièces jointes sur le forum.

Il faudrait effectuer un boucle sur chaque textbox de votre userform.

Et sortir de la boucle si données non correcte.
pour exemple une boucle sur textbox qui colorise si textbox vide
Code:

1 2 3 4 5 6 7 For Each c As Control In NOM_USF.Controls If TypeOf c Is TextBox Then If c.Text = "" Then c.BackColor = Color.LightYellow End If End If Next

3 pièce(s) jointe(s)

Bonsoir,

J'ai un peu avancé dans mon programme et je dois réaliser des boucles qui vérifient plusieurs conditions :
En gros je veux que la variable que l'utilisateur indique soit : un entier positif et qu'il ne soit pas supérieur à une autre variable qui est la longueur de la poutre (représentée par textbox1)
J'ai essayé d'envoyer en pièces jointes quelques captures d'écrans de mon programme j'espère que ça peut aider, sinon je mets mon programme en entier ici :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
'execution calcul
Private Sub CommandButton1_Click()
Call Securite_longueur
Call Securite_coordonée_charge_X
Call Securite_coordonée_charge_Y
If (OptionButton1.Value = True) Then
Call bouton_noeud2
    Else
    Call bouton_noeud3
End If
Call affichage_dynamic_label
Call affichage_dynamic_label2
Call affichage_dynamic_label3
 
End Sub
'saisie longueur
Private Sub Securite_longueur()
 
Dim Res As Double
Dim L As String
 
Do Until IsNumeric(TextBox1.Value) = True
 
MsgBox "Veuillez rentrer un nombre entier et positif pour la longueur"
L = InputBox("Valeur de la longeur en mètres", "La longueur doit être un entier positif")
If L <= "0" Then
 
L = InputBox("Valeur de la longeur en mètres", " La longeur doit être supérieure à 0 mètres")
Else
 
TextBox1.Value = L
 
End If
 
 
Loop
 
 
End Sub
 
'demande coordonées point application charge pour 2 noeuds
Private Sub bouton_noeud2()
 
Dim Res As Double
Dim resultat As String
 
resultat = InputBox("Coordonées en X du point d'application de la charge")
 
Do While resultat = ""
MsgBox "rentrer une valeur"
resultat = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
 
 
Do While IsNumeric(resultat) = False
    MsgBox "veuillez entrer un nombre"
    resultat = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
Do While resultat < 0
MsgBox "Rentrer un nombre positif"
resultat = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim resultat2 As String
 
    resultat2 = InputBox("Coordonées en Y du point d'application de la charge")
 
Do While resultat2 = ""
MsgBox "rentrer une valeur"
resultat2 = InputBox("Coordonées en Y du point d'application de la charge")
Loop
 
Do While IsNumeric(resultat2) = False
MsgBox "veuillez entrer un nombre"
resultat2 = InputBox("Coordonées en Y du point d'application de la charge")
Loop
 
Do While resultat2 < 0
MsgBox "Rentrer un nombre positif"
resultat2 = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
 
End Sub
 
'demande coordonées point application charge pour 3 noeuds
Private Sub bouton_noeud3()
 
Dim Res As Double
Dim resultat3 As String
resultat3 = InputBox("Coordonnées en X du point d'application de la force")
Do While resultat3 = ""
MsgBox "rentrer une valeur"
resultat3 = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
 
 
Do While IsNumeric(resultat3) = False
    MsgBox "veuillez entrer un nombre"
    resultat3 = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
Do While resultat3 < 0
MsgBox "Rentrer un nombre positif"
resultat3 = InputBox("Coordonées en X du point d'application de la charge")
Loop
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim resultat4 As String
 
 
resultat4 = InputBox("Coordonées en Y du point d'application de la charge")
 
Do While resultat4 = ""
MsgBox "rentrer une valeur"
resultat4 = InputBox("Coordonées en Y du point d'application de la charge")
Loop
 
 
 
Do While IsNumeric(resultat4) = False
    MsgBox "veuillez entrer un nombre"
    resultat4 = InputBox("Coordonées en Y du point d'application de la charge")
Loop
 
Do While resultat4 < 0
MsgBox "Rentrer un nombre positif"
resultat4 = InputBox("Coordonées en Y du point d'application de la charge")
Loop
 
End Sub
 
'affichage résultat effort tranchant
 
Private Sub affichage_dynamic_label()
 
 
    Set lbl = UserForm1.Controls.Add("Forms.Label.1")
 
    lbl.Caption = TextBox3.Value & "N"
    lbl.BorderStyle = 1
    lbl.Left = 400
    lbl.Top = 300
 
End Sub
 
'affichage résultat Normal
 
Private Sub affichage_dynamic_label2()
 
 
    Set lbl = UserForm1.Controls.Add("Forms.Label.1")
 
    lbl.Caption = TextBox2.Value & "N"
    lbl.BorderStyle = 1
    lbl.Left = 400
    lbl.Top = 200
 
End Sub
 
'affichage résultat moment fléchissant
 
Private Sub affichage_dynamic_label3()
 
    Set lbl = UserForm1.Controls.Add("Forms.Label.1")
    If (OptionButton1.Value = True) Then
    lbl.Caption = TextBox1.Value * TextBox3.Value & "Nm"
        lbl.Caption = resultat3 * TextBox3.Value & "Nm"
 
 
    End If
 
    lbl.BorderStyle = 1
    lbl.Left = 400
    lbl.Top = 400
 
 
 
End Sub
 
'saisie de la composante en X de la force nodale
 
Private Sub Securite_coordonée_charge_X()
 
 
Dim Res As Double
Dim Fx As String
 
Do Until IsNumeric(TextBox2.Value) = True
 
MsgBox "Veuillez rentrer un entier pour la composante en X de la force nodale"
Fx = InputBox("Valeur de la composante en X de la force nodale", "La composante Fx doit être un entier")
If Fx <= "0" Then
 
TextBox2.Value = Fx
Else
 
TextBox2.Value = Fx
 
End If
 
 
Loop
 
 
 
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Securite_coordonée_charge_Y()
 
Dim Res As Double
Dim Fy As String
 
Do Until IsNumeric(TextBox3.Value) = True
 
MsgBox "Veuillez rentrer un entier pour la composante en Y de la force nodale"
Fy = InputBox("Valeur de la composante en Y de la force nodale", "La composante Fy doit être un entier")
If Fy <= "0" Then
 
TextBox3.Value = Fy
Else
 
TextBox3.Value = Fy
 
End If
 
 
Loop
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Si quelqu'un à le courage de voir ce programme et de m'apporter une réponse je lui en serait grandement reconnaissant :D

Bonjour

Exemple de contrôle des données sur validation (A adapter)

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
27
28
29
Private Sub CommandButton1_Click()
Dim Lg As Double, X As Double, Y As Double
 
Lg = Val(Replace(Me.TextBox1.Value, ",", "."))
If Lg > 0 Then                                             'Si longueur est un nombre strictement positif
    Me.TextBox1.Value = Lg
    X = Val(Replace(Me.TextBox2.Value, ",", "."))
    If X > 0 And X <= Lg Then                              'Si X est un nombre strictement positif est inferieur à la longueur
        Me.TextBox2.Value = X
        Y = Val(Replace(Me.TextBox3.Value, ",", "."))
        If Y > 0 And Y <= X Then                           'Si X est un nombre strictement positif est inferieur à X
            Me.TextBox3.Value = Y
            '==============================================
            'ICI appel procedure de clacul
            '=====================================
        Else
            MsgBox "Erreur Y"
            Me.TextBox3.SetFocus
        End If
 
    Else
        MsgBox "Erreur X"
        Me.TextBox2.SetFocus
    End If
Else
    MsgBox "Erreur longueur poutre"
    Me.TextBox1.SetFocus
End If
End Sub