VBA Excel Prob division par zéro ???

Fermé
Novasim220 Messages postés 15 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 2 janvier 2006 - 26 déc. 2005 à 10:55
Novasim220 Messages postés 15 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 2 janvier 2006 - 27 déc. 2005 à 07:31
Bonjour à tous,
voila mon problème : je fais un calcul mais qui ne fonctionne pas, l'erreur est division par zéro ????
Private Sub TxtDébitDésiré_Change()
With FeuilledesaisieCTA
.TxtVitesseDésirée.value = Val(TxtDébitDésiré) / Val(TxtSurface) / 3600 / 1000000
End With
End Sub

sachant que val(TxtSurface) peut etre avec décimale

OU est l'erreur ????
Merci pour votre aide
A voir également:

1 réponse

Gihef Messages postés 5150 Date d'inscription mercredi 20 juillet 2005 Statut Contributeur Dernière intervention 20 février 2023 2 775
26 déc. 2005 à 22:44
Bonjour,

Es-tu sûr que TxtSurface est <>0 avant d'entrer dans ta Sub ?
0
Novasim220 Messages postés 15 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 2 janvier 2006
27 déc. 2005 à 07:31
Salut Gihef,
merci pour ta réponse, mais problème résolu:
ma valeur était bien différente de 0 mais il fallait la convertir a cause de la virgule
Merci quand même
@+
0