Calcul TextBox

Le
DAVID
Bonsoir

J'utilise cette procédure pour calculer un prix au litre

Private Sub TxtLitre_Change()
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End Sub

Le problème est quand on efface le montant de TxtLitre cela crée une erreur.

Merci de votre aide

David
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20951781
Bonsoir.
Si j'ai bien compris :
If TxtLitre <> "" then
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
Else
' à toi de voir
end if
Daniel

Bonsoir

J'utilise cette procédure pour calculer un prix au litre

Private Sub TxtLitre_Change()
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End Sub

Le problème est quand on efface le montant de TxtLitre cela crée une erreur.

Merci de votre aide

David


DAVID
Le #20952081
Bonsoir

Merci. Je vais adapter au besoin

Bonne soirée
Publicité
Poster une réponse
Anonyme