Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
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.
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.