Bonjour
J'ai un souci avec mon code. J'ai une userform qui sert a demander des donnees a l'utilisateur pour faire ensuite des calculs par appui sur un commandButton. Mon probleme est quand les textbox sont vides ou negatives, ce qui empeche logiquement le calcul.
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
27
28
29
30
31
32
33
34
35
36
37 Private Sub cmdLauch1_Click() Dim input_pressure As Single input_pressure = UserForm1.IPressureTextBox.Text emptybox (UserForm1.IPressureTextBox.Text) neg (UserForm1.IPressureTextBox.Text) 'fonction pour les valeurs negatives Private Function neg(neg_value As Single) As Single If neg_value < 0 Then MsgBox "Negative value :" & neg_value End If End Function 'Fonction pour la longueur du chiffre dans la text box Private Function maxsize(max_size As Single) As Single If Len(max_size) > 7 Then MsgBox "Too much characters :" & max_size End If 'Fonction pour une cellule vide, ou j'essaie de remplacer par un 0 pour ne pas tout planter apres Public Function emptybox(empty_box As String) As Single If empty_box = "" Then MsgBox "empty box" empty_box = 0 Exit Function End If End Function
Problemes:
- la fonction maxsize ne marche pas
- la fonction neg ne marche pas pour 0
Merci de votre aide!
Partager