Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Division par Zero ERREUR

Atiom

XLDnaute Occasionnel
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

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

VB:
If IsNumeric(Me!TextBox21) And IsNumeric(Me!TextBox46) Then
TextBox43.Value = (Me!TextBox21 / Me!TextBox46)
End If
 
Dernière édition:

Atiom

XLDnaute Occasionnel
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
 

Pièces jointes

  • Atiom- Division Textbox- V2.xlsm
    18 KB · Affichages: 16
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…