Discussion :

[golna120389]

Bonjour,

Voilà j'ai un petit souci pour une calculette qui fonctionne avec un userform.
j'ai affecté une valeur a chaque bouton de la calculette que ce soit pour un nombre ou un opérateur ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton2_Click()
TextBox1.Value = TextBox1.Value & "2"
End Sub

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton13_Click()
TextBox1.Value = TextBox1.Value & "x"
End Sub

Les données saisies s'affichent les unes à la suite des autres dans la textbox 1
Je voudrais que le bouton "=" calcule les données inscrites dans la text box1 puis que la text box renvoie le résultat calculé en =

Je bloque à ce niveau là je ne sais pas comment lui dire de lire puis calculé

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton14_Click()
TextBox1.Value = Evaluate("=" & Replace(TextBox1.Text, "x", "*"))
End Sub

[golna120389]

j'ai testé et effectivement ça marche! merci

me reste plus qu'a comprendre la fonction replace et evaluate comment elles s'imbriquent..