XL 2016 Calculatrice Vba

[halecs93]

Bonjour,

J'ai tenté de mettre en place une calculatrice en Vba (bouton calculatrice 3). Le but est d'afficher le résultat des opérations dans la cellule active de la feuille excel.

Je parviens à effectuer ceci en saisissant les chiffres et opérations à la souris. Mais j'aimerais que l'utilisateur puisse le faire également avec le pavé numérique de son clavier.

Quelqu'un aurait-il une solution à m'apporter ?

Un grand merci.

 

[Staple1600]

Bonjour le fil

@halecs93
Même suggestion que dans ce fil récent

XL 2019 - Calculatrice en vba

Bonjour à tous Tu vous connais comment faire ? Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci Comment calculer en VBA

excel-downloads.com

 

[halecs93]

Bonjour le fil

@halecs93
Même suggestion que dans ce fil récent

XL 2019 - Calculatrice en vba

Bonjour à tous Tu vous connais comment faire ? Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci Comment calculer en VBA

excel-downloads.com

hmm merci. Mais j'avais, en effet, parcouru ce fil...sans réussir à l'adapter à mon questionnement

 

[Staple1600]

Re

@halecs93
Plus que le fil, c'est plutôt à la ressource disponible dans la section Ressources que je pensais
Et donc au lien vers cette ressource que j'ai mis dans le message#2 de la discussion de frederio

 

[halecs93]

Re

@halecs93
Plus que le fil, c'est plutôt à la ressource disponible dans la section Ressources que je pensais
Et donc au lien vers cette ressource que j'ai mis dans le message#2 de la discussion de frederio

Oui, oui... j'évoquais cette ressource (de 2004) en effet.

 

[halecs93]

Re... j'ai étudié (!) le code du fichier conseillé, mais n'arrive pas à l'adapter à mon classeur.

Quelqu'un saurait ?

Un grand merci.

 

[scraper]

Bonjour
J'ai gardé le userform sans le code
Le textbox permet d'entrer un calcul à faire; j'ai pensé sur l'entrée de la touche égale lancer l'exécution de l'evaluation

Private Sub TextBox1_Change()
If Mid(TextBox1.Text, Len(TextBox1.Text)) = "=" Then
  TextBox1.Text = Application.Evaluate(Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1))
' pour enregistrer le résultat dans la cellule active
ActiveCell.Text= Textbox1.Text
End If
End Sub

 

[halecs93]

Bonjour
J'ai gardé le userform sans le code
Le textbox permet d'entrer un calcul à faire; j'ai pensé sur l'entrée de la touche égale lancer l'exécution de l'evaluation

Private Sub TextBox1_Change()
If Mid(TextBox1.Text, Len(TextBox1.Text)) = "=" Then
  TextBox1.Text = Application.Evaluate(Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1))
' pour enregistrer le résultat dans la cellule active
ActiveCell.Text= Textbox1.Text
End If
End Sub

Merci, mais je ne sais pas bien la réponse... du coup, votre solution n'utilise plus le userform comme il est initialement, mais simplement d'entrer les calculs dans un textbox pour ensuite le valider dans la cellule active ? Ca c'est une solution que j'utilisais (calculatrice 2) dans mon fichier.

 

[halecs93]

Hello,

Si cela intéresse quelqu'un, je crois avoir réussi. Je laisse le fichier.

Merci pour vos éventuels commentaires.