Microsoft 365 Multiplication entre deux TextBox dans Userform

Daher Ali

XLDnaute Junior
Bonsoir le FORUM,

Je sollicite votre aide, j'ai 3 textbox dans le userform, et je souhaite effectuer une multiplication entre 2 textbox pour donner le résultat dans la 3ieme.

joint les code des differents textbox :

VB:
Private Sub Cont2_AfterUpdate()
    Cont2 = Format(Cont2, "# ##0.00")
    If Me.Cont2.Value = "" Or Me.Cont4.Value = "" Then Exit Sub
    TextBox1 = CDec(Cont2) * CDec(Cont4)   
End Sub

Private Sub Cont4_AfterUpdate()
    Cont4 = Format(Cont4, "# ##0.00 €")
    If Me.Cont2.Value = "" Or Me.Cont4.Value = "" Then Exit Sub
    TextBox1 = CDec(Cont2) * CDec(Cont4)   
End Sub

Private Sub TextBox1_Change()
    TextBox1 = Format(TextBox1.Value, "# ##0.00 €")
End Sub

l'erreur vient sur : TextBox1 = CDec(Cont2) * CDec(Cont4) du Private Sub Cont4_AfterUpdate() car Cont2 = Format(Cont2, "# ##0.00") est considerer comme numerique et Cont4 = Format(Cont4, "# ##0.00 €") non cause du signe EURO et Espace

Je n'arrive pas à trouver la solution.

Merci de m'aider.
 

ChTi160

XLDnaute Barbatruc
Bonsoir Daher Ali
Difficile sans fichier.
Tu mets un fichier sans donnée confidentielles , ton userform tes trois textBox .
Et les explications de ce que tu as et ce que tu veux.
Tes erreurs viennent sûrement du fait que , faire une opération. Avec des valeurs qui ne sont pas numériques ex Vide
Il serait peut être bon de passer par des variables.
Tu peux aussi supprimer le symbole Euro et le mettre près de ton control textBox dans un Label.
Mais bon on attend un fichier lol
Merci
Jean marie
 
Dernière édition:

Daher Ali

XLDnaute Junior
Bonsoir Daher Ali
Difficile sans fichier.
Tu mets un fichier sans donnée confidentielles , ton userform tes trois textBox .
Et les explications de ce que tu as et ce que tu veux.
Merci
Jean marie
Bonsoir et merci pour votre retour. Je pense que l'explication est tres simple, c'est un userform très simple aussi. Je crois que les données que je vous est envoyés le sont aussi. Mais bon Je vous remercie comme même de m'avoir répondu pour m'aider. :)
 

Daher Ali

XLDnaute Junior
Effectivement vous avez raison. J'ai procédé de cette manière et ça marche et lorsque je valide la saisie la ligne du tableau récupére les informations sans les euro donc vous avez raison. Désolé si j'ai précipiter ma réponse en vous disant que cest simple.:rolleyes: je vous enverrai mon fichier pour le voir. Encore merci pour la patience et le travaille bien fait que vous faites.
 

Daher Ali

XLDnaute Junior
Re
Ok !
n’hésite pas !
Bonne fin de Soirée
jean marie
Tel que vous m'aviez montrer sur le Test4 c'est super.
Joint le ficher, en espèrent que j'aurais aussi ce que je veux :)
la 5ieme image où j'ai entourer les 2 derniere colonne j'aimerais que ça soit sur cette forme aussi :
# ##0.00 €

Pourriez vous m'aider à ce que le travail soit mieux présenter svp

Merci beaucoup
 

Pièces jointes

  • Bon Entree 2 - Copie.xlsm
    66.1 KB · Affichages: 8
  • 1.png
    1.png
    40.7 KB · Affichages: 14
  • 2.png
    2.png
    50.4 KB · Affichages: 12
  • 3.png
    3.png
    42.9 KB · Affichages: 9
  • 4.png
    4.png
    24 KB · Affichages: 11
  • 5.png
    5.png
    26.4 KB · Affichages: 13

Daher Ali

XLDnaute Junior
Pour trouver le prix de revient des articles selon les charge que j'ai pour chaque arrivage. Cad, je peux aujourd'hui recevoir des nouveautés avec des charges différents de celui d'avant. Après 2 semaines un autre arrivage avec toujours des charge différentes pour cela je dois pour chaque arrivage déterminer le prix de revient.
 

Discussions similaires

Réponses
12
Affichages
706

Statistiques des forums

Discussions
314 655
Messages
2 111 604
Membres
111 217
dernier inscrit
aladinkabeya2