Problème avec la fonction nz()

Résolu
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
Configuration: Windows Vista
Firefox 2.0.0.12

4 réponses

  1. Utilisateur anonyme
     
    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
    2
  2. Utilisateur anonyme
     
    Bonjour,

    suggestion :

    If (Texte19.Value <> "") Then a = Texte27.Value
    If (Texte27.Value <> "") Then b = Texte27.Value
    ...

    Lupin
    0
  3. amine_arbitre
     
    merci lupin.A pour ta réponse je vais l'essayer tout de suite et je vais vous tenir au courant
    merci encore
    0
  4. amine_arbitre
     
    mille merci à toi lupin.A le code fonctionne très bien
    grace à toi j'ai pu résoudre mon problème

    mille mercccccccccccccccccccccccccccccccccccciiiiiii
    0