Userform VBA
Fermé
RussellD
Messages postés
57
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
6 septembre 2010
-
6 avril 2010 à 13:46
Dudul71 - 6 août 2010 à 17:40
Dudul71 - 6 août 2010 à 17:40
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
RussellD
Messages postés
57
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
6 septembre 2010
7
6 avril 2010 à 17:25
6 avril 2010 à 17:25
Quelqu'un peut-il m'aider ^^?
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
