Médiaforma

VBA Excel – Des calculs dans un UserForm

Print Friendly, PDF & Email

Dans cet article, je vais vous montrer comment exécuter un calcul mathématique au clic sur un bouton et afficher le résultat dans un TextBox. Voici le résultat attendu :

Créez une nouvelle boîte de dialogue personnalisée. Affectez la valeur “Calculs dans un UserForm” à sa propriété Caption.

Aoutez deux Label, deux TextBox et un CommandButton.

Affectez la valeur :

  • “Entrez un calcul” à la propriété Caption du premier Label.
  • “Résultat” à la propriété Caption du deuxième Label.
  • “Calculer” à la propriété Caption du CommandButton.

Pour obtenir le résultat du calcul entré dans le premier TextBox, nous allons utiliser une fonction très pratique : Evaluate(). Cette fonction demande un argument de type String qui contient un calcul. Elle retourne le résultat du calcul.

Double-cliquez sur le bouton. L’affichage bascule sur la fenêtre Code et la procédure CommandButton1_Click() est créée. Complétez-la comme ceci :

Private Sub CommandButton1_Click()

  TextBox2.Text = Evaluate(TextBox1.Text)

End Sub

Le résultat de la fonction Evaluate() est simplement affecté à la propriété Text du deuxième TextBox pour afficher le résultat.

Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments

No comments yet.