Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Calculatrice Vba

halecs93

XLDnaute Impliqué
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.
 

Pièces jointes

  • Calculatrice.xlsm
    35.7 KB · Affichages: 8
Trier par date Trier par votes
S

scraper

XLDnaute Nouveau
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

VB: 
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
 
Vote positif 0 Vote négatif

halecs93

XLDnaute Impliqué
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

W
  • Résolu(e)
XL 2016 Problème de comptage pour trouver les trois meilleurs
2
Réponses
19
Affichages
749
Webperegrino
W
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
359
Nel'
N
C
  • Question
Microsoft 365 VBA activer filtre élaboré suite changement donnée d'une cellule
Réponses
5
Affichages
232
Chounoé
C
H
  • Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
550
Helios77
H
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
474
Webperegrino
W
T
  • Question
XL 2016 VBA listing de contacts
Réponses
1
Affichages
308
Dranreb
  • Question
XL 2019 J’ai tenté de filtrer les anomalies dans le tableau en utilisant un code VBA. Malheureusement, le code initial ne semble pas fonctionner correctement.
Réponses
2
Affichages
226
Saalut
  • Question
Microsoft 365 Créer une Document Word à partir de champs et listes
2
Réponses
15
Affichages
1 K
Compte Supprimé 979
C
R
  • Question
XL 2021 Affichage d'une suite de chiffres
Réponses
5
Affichages
483
patricktoulon
C
  • Question
Microsoft 365 Synthèse de données
2
Réponses
23
Affichages
874
Corinne
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…