Calculatrice avec des boutons

[soufiane1.0]

bonsoir tlm,
j'aimerai faire une calculatrice a l'aide de boutons, d'ailleurs je suis arriver a faire le plus gros du travail , c'est a dire que ma calculatrice faire les opération simple genre : 5+2, 10*3, ou encore 5+2+7;7-2-1, mais des que j'essaye en changent les signes genre 5+2-1 ca marche plus, j'aimerai bien savoir elle est ou mon erreur ou si quelqu'un a une idée.
voila mon code VBA
merci
----
Option Explicit
Dim Result As String, Nombre As String, X As String
Dim Op As Integer
Sub no1()
Range("Resultat") = 10 * Range("Resultat") + 1
End Sub

Sub no2()
Range("Resultat") = 10 * Range("Resultat") + 2
End Sub

Sub no3()
Range("Resultat") = 10 * Range("Resultat") + 3
End Sub

Sub no4()
Range("Resultat") = 10 * Range("Resultat") + 4
End Sub

Sub no5()
Range("Resultat") = 10 * Range("Resultat") + 5
End Sub

Sub no6()
Range("Resultat") = 10 * Range("Resultat") + 6
End Sub
Sub no7()
Range("Resultat") = 10 * Range("Resultat") + 7
End Sub
Sub no8()
Range("Resultat") = 10 * Range("Resultat") + 8
End Sub
Sub no9()
Range("Resultat") = 10 * Range("Resultat") + 9
End Sub
Sub no0()
Range("Resultat") = 10 * Range("Resultat") + 0
End Sub
Sub plus()
If Range("memoire") <> 0 Then
X = X + Range("resultat")
Else
X = Range("resultat") + Range("memoire")
End If
Range("memoire") = Range("Resultat")
Range("Resultat") = 0
Op = 1
End Sub
Sub moin()
If Range("memoire") <> 0 Then
X = X + Range("resultat")
Else
X = Range("memoire") - Range("resultat")
End If
Range("memoire") = Range("Resultat")
Range("Resultat") = 0
Op = 2
End Sub
Sub foi()
If Range("memoire") <> 0 Then
X = X * Range("resultat")
Else
X = Range("resultat")
End If
Range("memoire") = Range("Resultat")
Range("Resultat") = 0
Op = 3
End Sub

Sub supprimer()
Range("Resultat") = 0
Range("J3") = 0
Range("J5").ClearContents
End Sub
Sub Resultat()
Dim calcul As Single
Select Case Op
Case 1
calcul = Range("Resultat") + X
Case 2
calcul = -Range("Resultat") - X
Case 3
calcul = Range("Resultat") * X
End Select

Range("Resultat") = calcul
End Sub

 

[Catrice]

Re : Calculatrice avec des boutons

Bonsoir,

je n'ai pas tout bien compris, ce serait mieux avec le fichier.
en attendant, un exemple qui pourra peut etre t'aider ...

 

[soufiane1.0]

Re : Calculatrice avec des boutons

ah oui désole, voilà mon travail :

 

[JCGL]

Re : Calculatrice avec des boutons

Bonjour à tous,
Salut Catrice,

Un fichier de Cathy MONIER, qui, je pense, est ICI

A+

 

[soufiane1.0]

Re : Calculatrice avec des boutons

bonsoir JCGL ,
merci pour votre réponse, mais j'aimerai résoudre le problème avec des boutons affecté a des macro pas avec une fonction

 

[JCGL]

Re : Calculatrice avec des boutons

Re,

Je laisse, quand même le fichier et surtout le lien....
Je suis certain que cela pourra servir à d'autres.

A+

 

[BOISGONTIER]

Re : Calculatrice avec des boutons

Bonjour,

Avec module de classe:

http://boisgontierjacques.free.fr/fichiers/Formulaire/Form_Calculette.xls

JB

 

[soufiane1.0]

Re : Calculatrice avec des boutons

bonjour,
avec le module de classe il y a toujours la même erreur
une fois que tu fais varié le signe ça marche plus
exemple : 5-2*4
avec evaluate() aussi il va faire d abord la multiplication après il va faire la négation, alors que dans une calculatrice on va entrer le chiffre 5 puis "-" puis 2 puis "*" puis 4, ce qui va donner autre résultat.

 

[excalibur]

Re : Calculatrice avec des boutons

bonjour tous le monde il y a quelques annees je me suis amuse a en faire une avec des bogues bien sur si ca peut aider

 

[soufiane1.0]

Re : Calculatrice avec des boutons

re,
merci excalibur pour ton aide, d'ailleurs elle est très bien fait ta calculatrice chapeau ! mais son code est un petit peu complexe pour moi lol,
je cherche seulement a faire plusieurs calculs de suite sans passer par la touche = (par exemple, pour réaliser 2 x 3 + 2 en n'appuyant qu'une fois sur "=")
voilà en j'en suis :

 

[Misty]

Re : Calculatrice avec des boutons

Bonsoir le forum, bonsoir Soufiane 1.0

Je ne sais pas le but que tu recherches en voulant une calculatrice comme ça. J'ai longtemps cherchée a avoir une calculatrice dans Excel sans toujours passé par la calculatrice de windows. J'ai trouvé un truc je ne sais pas si ça peut t'aider...

- click droit sur la barre d'outils dans Excel
- click personnalisé
- click commande
- click outils
- dans la fenêtre droite rechercher "personnalisé avec une calculatrice a coté"
- click sur la calculatrice et le mettre dans ta barre d'outils en haut

et tu auras une calculatrice dans excel a chaque fois que tu ouvres excel.

@+

 

[Lii]

Re : Calculatrice avec des boutons

Bonjour Tous,

un autre exemple de calculatrice (pas calculette qui ne sait pas calculer).

Remarques :
j'ai rajouté les boutons des parenthèses et de la virgule.
là aussi, pour un nombre du genre 0,... il est inutile de "taper" le 0 !

 

[jp14]

Re : Calculatrice avec des boutons

Bonjour à tous

Ci joint un fichier avec un USf pour effectuer des calculs. Cet usf peut être appelée par une procédure, la valeur calculée peut être retourné à la procédure appelante.

Principe du calcul : un "accu" contient le résultat des opérations antérieures
2 x 3 + 2 > 6 + 2
5-2*4 > 3 * 4

A tester

JP

 

[Lii]

Re : Calculatrice avec des boutons

Re,

après test, excalibur, JP14, vos calculettes présentent les mêmes défauts que celle de Windows (que j'utilise comme Misty l'a judicieusement proposé mais avec précaution).
Les signes opératoires n'apparaissent pas ou la formule ne figure pas (embêtant pour une suite de calculs, sauf si on veut entretenir sa mémoire) et, surtout, certains résultats sont faux !
5-2*4 = -3 (qui vient de 5-8)et non 12 (qui vient de 3*4) !

Je pense qu'une bonne programmation d'une calculette devrait interdire les saisies de ce type plutôt que de donner un résultat faux et donc ne se limiter qu"aux calculs avec 2 nombres (ce qui est quand même très restrictif).

 

[soufiane1.0]

Re : Calculatrice avec des boutons

merci les gars pour vos réponses.. je pense que j'ai vraiment tout les atours en mains pour faire ma calculatrice perso maintenant grâce a vous , encore un grand merci
je vais essayer de mettre le fichier quand j'aurai fini comme ça vous pourrais me dire ce que vous en pensez.
bonne soirée