Probleme avec cellules vides

Version imprimable

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:

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!

bonsoir,

tu devrai revoir la définition d'une fonction, celle-ci doit retourner quelque chose et pour cela tu dois ecrire NomDeFonction = Valeur ..
par exemple voici une possiblité pour ta fonction de mise en forme :

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
 
 
Sub yaTest()
 MsgBox "Vide : " & yaMef("")
 MsgBox "Negatif : " & yaMef("-123")
 MsgBox "trop long : " & yaMef("12345678")
End Sub
 
Function yaMef(st As String) As Single
 If st = "" Then
   yaMef = 0#    ' la fonction retourne 0.0
   Exit Function
 End If
 If CSng(st) < 0 Then
   MsgBox "Erreur negatif"
   yaMef = 0#    ' la fonction retourne 0.0
   Exit Function
End If
If Len(st) > 7 Then
MsgBox "Too much characters :" & 7
   yaMef = 0#    ' la fonction retourne 0.0
   Exit Function
End If
  yaMef = CSng(st) 'Retourne la valeur en single
End Function

13/11/2008, 15h27
PatriceBDP

Merci pour cette reponse si rapide!

Cependant, j'aimerais que la text box soit remise a sa valeur par defaut (celle a l'ouverture de la userform) apres detection de l'erreur.

Je n'ai pas trouvé d'alternative pour l'instant.

Heu, je vais peut-être dire une connerie, mais il ne serait pas plus simple de faire une condition du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub()
Dim Message
If TextBox1.Value < 0 Or TextBox2.value < 0 Or... Or TextBoxn.Value < 0 Then 'Ou n est le nombre de textbox contenant une valeur entiére ou réelle
 
Message= MsgBox("Certains nombre(s) inscris sont négatifs",VbExclamation,"Nombre négatifs")
 
Else
 
If TextBox.Value= "" Or TextBox2.value = "" Or... Or TextBoxn.Value = "" Then
 
Message=MsgBox("un ou plusieurs champs sont vide. Veuillez les remplir",VbExclamation,"Champs vide")
 
Else
Code à éxecuter.
 
End if
End if
End Sub

16/11/2008, 00h39
JackOuYA

Citation:

Envoyé par PatriceBDP

Cependant, j'aimerais que la text box soit remise a sa valeur par defaut (celle a l'ouverture de la userform) apres detection de l'erreur.

Bonsoir, Et elle viens d'ou la donnée intiale ? tu peu pas la reprendre au même endroit si erreur ..? modifie la fonction pour qu'elle te renvoi un boolean false/true, avec true = si saisie OK , et si pas OK tu reprends la valeur initiale.