Division par Zero ERREUR

[Atiom]

Bonjour,

J’ai un petit problème avec une division.

Avec les deux méthodes ci-dessous il y a toujours l’erreur à la saisie des TextBox21 ou TextBox46 !

Est-ce que nous pouvons modifier avec Sng ,CDbl ,CDec ,CInt ,CLng ?

Mais comment ?

Est-ce quelqu'un peux me donner un petit coup de main svp.

Merci de votre aide

TextBox43 = Val(Replace(TextBox21, ",", ".")) / Val(Replace(TextBox46, ",", "."))

If IsNumeric(Me!TextBox21) And IsNumeric(Me!TextBox46) Then
TextBox43.Value = (Me!TextBox21 / Me!TextBox46)
End If

 

[Staple1600]

Bonjour le fil, le forum, Atiom

@Atiom
Dans le code VBA de ton classeur, il y a ces deux point d'exclamation ?
(Me!TextBox21 / Me!TextBox46)

 

[mapomme]

Bonjour @Atiom, @Staple1600,

Un essai dans le fichier joint...

 

[Atiom]

Bonjour Staple1600 et mapomme,

Non il n’y pas de point d’exclamation.

Mais mapomme a trouvé la solution.

Merci beaucoup et bonne journée.

 

[Staple1600]

Re

@Atiom
Alors pourquoi il y en a dans le code VBA dans ton premier message?

 

[Atiom]

Re,

Oui. Tu as raison.

Je n’avais pas bien compris !

Je pensais qu’il s’agissait de la fenêtre ERREUR !

Désolé !

 

[Atiom]

Bonjour,
En remerciant encore une fois mapomme et Staple1600 !

Je souhaiterais si possible ajouter un TextBox et modifier le code en conséquence.

Donc nous avons 4 TextBox au lieu de 3 et le but est de faire :

Si Textbox42 ="Avion" alors Textbox43 = ( Textbox21*Textbox46 )
Si Textbox42 ="Voiture" alors Textbox43 =Textbox21

Merci de votre aide

 

[mapomme]

Re,

Voir fichier joint.

 

[Atiom]

Bonjour,

Impeccable.

Merci beaucoup mapomme.

Bon après-midi