Userform VBA
RussellD
Messages postés
60
Statut
Membre
-
Dudul71 -
Dudul71 -
Bonjour,
comment créer en UserForm sous VBA, dans lequel on peut demander à l'utilisateur de rentrer 2 valeurs pour lui donner un résultat en retour.
Genre 1ere case "Entrer A :"
2eme : "Enter B"
3eme : le résultat de A * B s'affiche directement
Merci d'avance !
comment créer en UserForm sous VBA, dans lequel on peut demander à l'utilisateur de rentrer 2 valeurs pour lui donner un résultat en retour.
Genre 1ere case "Entrer A :"
2eme : "Enter B"
3eme : le résultat de A * B s'affiche directement
Merci d'avance !
2 réponses
Bonjour RussellD,
J'arrive surement un peut tard mais ca servira peut-être pour d'autres :
Une fois Excel ouvert, tu fais alt+F11, la tu arrives dans le "module VB d'excel."
Clique droit sur "ThisWorkbook"-> insertion -> userform.
Ensuite tu ajoutes 3 jolies petites cases (Textbox) et un bouton ok (CommandButton)
Ensuite clique droit sur ton boutton OK et colle le code suivant, qui reste a adapter suivant le nom des tes Textbox.
Private Sub CommandButton1_Click()
dim a,b,resultat as double
a=userform1.textbox1.value
b=userform1.textbox2.value
resultat=a*b
userform1.textbox3.value= resultat
End Sub
J'arrive surement un peut tard mais ca servira peut-être pour d'autres :
Une fois Excel ouvert, tu fais alt+F11, la tu arrives dans le "module VB d'excel."
Clique droit sur "ThisWorkbook"-> insertion -> userform.
Ensuite tu ajoutes 3 jolies petites cases (Textbox) et un bouton ok (CommandButton)
Ensuite clique droit sur ton boutton OK et colle le code suivant, qui reste a adapter suivant le nom des tes Textbox.
Private Sub CommandButton1_Click()
dim a,b,resultat as double
a=userform1.textbox1.value
b=userform1.textbox2.value
resultat=a*b
userform1.textbox3.value= resultat
End Sub
