Calcul dans une TextBox

Bonjour,

Tout d'abord merci pour ce forum..

Je recherchele moyen au sein d'une TextBox (n'acceptant que les valeur de devise €) de realiser des calculs de somme comme une cellule excel, exemple, je voudrais que la textbox me renvois le résultat de -1-1, soit -2 ...

Est ce que cela est possible, je le pense franchement, mais debutant le VBA, je patoge un peu !!

VinckelLio a écrit :

Bonjour,

Tout d'abord merci pour ce forum..

Je recherchele moyen au sein d'une TextBox (n'acceptant que les valeur de devise €) de realiser des calculs de somme comme une cellule excel, exemple, je voudrais que la textbox me renvois le résultat de -1-1, soit -2 ...

Est ce que cela est possible, je le pense franchement, mais debutant le VBA, je patoge un peu !!

Bonjour,

Si tu indiques le calcul par toi-même alors tu peux te contenter de :

Textbox1.value=-1-1

Mais je pense que les infos de ton calcul sont contenues dans d'autres Textbox ? dans ce cas il faut utiliser

"CDbl"

exemple PRIX TOTAL Dans Texbox1 = Quantité Texbox2 X Tarif unitaire Texbox 3

çà donnerai une ligne Vba :

Textbox1.value=Format(CDbl(Textbox2) X CDbl(Textbox3) /, "#,##0.00 [-40C]")

Merci pour ta réponse. En fait non c est moi qui vais indiquer quoi calculer dans la TextBox et je voudrais qu elle me génère le résultat. Comme si dans une cellule Excel on mettrait "=58+58".

Ce n est pas le résultat d une somme de 2 TextBox..

VinckelLio a écrit :

Merci pour ta réponse. En fait non c est moi qui vais indiquer quoi calculer dans la TextBox et je voudrais qu elle me génère le résultat. Comme si dans une cellule Excel on mettrait "=58+58".

Ce n est pas le résultat d une somme de 2 TextBox..

Ok dans ce cas la première méthode devrait aller ; même si j'ai un peux de mal à comprendre la nécessité

de faire un calcul fixe dans un une textbox

Le calcul peut varier.. Ça sera des valeurs qui ne seront pas toujours les mêmes..

Bonjour à tous,

Une proposition avec EVALUATE, le calcul étant effectué avec un double clic dans la TextBox.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Evaluate(TextBox1.Value)
End Sub

Cordialement.

VinckelLio a écrit :

Le calcul peut varier.. Ça sera des valeurs qui ne seront pas toujours les mêmes..

Voilà pourquoi je t'ai noté la deuxième formulation ; dans le cas ou tu récupéres "tes variables" dans d'autres

textbox alors tu pourras faire un calcul sur les textbox selon tes conditions.

Mais bon ne connaissant pas le pourquoi du comment ni la finalité du calcul ……

J'essais d'être plus explicite, dans mon code ci dessous, la textBox "TextBox_Montant" doit être calculer lors de la saisie du formulaire avec des valeurs que je dois moi taper.. J'espère avoir été un peu plus clair...

Je vous joint également le fichier excel

Private Sub ComboBox_StatutInternet_Change()

End Sub

Private Sub CommandButton1_Click()

'Saisie de l'opération dans la base opération

Dim ligne As Integer

ligne = Sheets("operations").[a1].End(xlDown).Row + 1

Sheets("operations").Range("a" & ligne) = ComboBox_Comptes

Sheets("operations").Range("b" & ligne) = ComboBox_MoyenPaiement

Sheets("operations").Range("c" & ligne) = TextBox_Pieces

Sheets("operations").Range("d" & ligne) = CDate(TextBox_DateOp)

Sheets("operations").Range("e" & ligne) = CDate(TextBox_Datedebit)

Sheets("operations").Range("f" & ligne) = TextBox_Libelle

Sheets("operations").Range("g" & ligne) = ComboBox_Affectation

Sheets("operations").Range("h" & ligne) = ComboBox_Tiers

Sheets("operations").Range("i" & ligne) = ComboBox_StatutInternet

Sheets("operations").Range("j" & ligne) = CCur(TextBox_Montant)

Unload Me

End Sub

As-tu essayé avec

Sheets("operations").Range("j" & ligne) = CCur(Evaluate(TextBox_Montant.Value))

???

Cordialement.

Génial !!! Ca marche ! Merci beaucoup !!