Problème avec la fonction nz()
Résolu
amine_arbitre
-
amine_arbitre -
amine_arbitre -
Bonjour,
j'ai un formulaire de calcul qui contient des zones de texte
j'essaye de faire la somme des valeurs des zones de texte mais j'ai des zones de texte qui peuvent rester vides et j'ai une erreur d'excecution 94 "utilisation incorrecte de null" et je sais pas comment utiliser la fonction nz()
voici mon code:
Private Sub Commande48_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim e As Single
Dim tot As Single
a = Texte19.Value
b = Texte27.Value
c = Texte31.Value
d = Texte35.Value
e = Texte46.Value
tot = a + b + c + d + e
Texte41.Value = tot
End Sub
svp si quelqu'un peut m'aider pour me dire comment integrer la fonction nz dans mon code de façon à ce qu'il ignore les zones de texte vides.
merci d'avance
j'ai un formulaire de calcul qui contient des zones de texte
j'essaye de faire la somme des valeurs des zones de texte mais j'ai des zones de texte qui peuvent rester vides et j'ai une erreur d'excecution 94 "utilisation incorrecte de null" et je sais pas comment utiliser la fonction nz()
voici mon code:
Private Sub Commande48_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim e As Single
Dim tot As Single
a = Texte19.Value
b = Texte27.Value
c = Texte31.Value
d = Texte35.Value
e = Texte46.Value
tot = a + b + c + d + e
Texte41.Value = tot
End Sub
svp si quelqu'un peut m'aider pour me dire comment integrer la fonction nz dans mon code de façon à ce qu'il ignore les zones de texte vides.
merci d'avance
Configuration: Windows Vista Firefox 2.0.0.12
4 réponses
-
re :
plus ecplicite encore :
If (Texte19.Value <> "") Then a = CSng(Val(Texte19.Value)) Else a = 0
If (Texte27.Value <> "") Then b = CSng(Val(Texte27.Value)) Else b = 0
...
Lupin -
Bonjour,
suggestion :
If (Texte19.Value <> "") Then a = Texte27.Value
If (Texte27.Value <> "") Then b = Texte27.Value
...
Lupin -
merci lupin.A pour ta réponse je vais l'essayer tout de suite et je vais vous tenir au courant
merci encore -
mille merci à toi lupin.A le code fonctionne très bien
grace à toi j'ai pu résoudre mon problème
mille mercccccccccccccccccccccccccccccccccccciiiiiii