Médiaforma

VBA Excel – Des calculs dans un UserForm

Partagez cet article sur vos réseaux

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.

 
Commentaires

Bonjour, le post date mais j’utilise ce code et j’aimerais que lorsque la textbox « Entrez un calcul » est vide la textbox « Résultat » se vide aussi. Est-ce possible ? Merci. Cordialement, legreffier

Laissez un commentaire