VBA : un bouton de commande dans un autre

Question

Bonjour,

j'ai créé un formulaire sur lequel j'ai un bouton valider. J'aimerai que lorsque je clique dessus il apparaisse alors deux autres boutons de commandes "oui" ou "non" dans ma msgbox.

Comment faire ?

Merci

pijaku · Answer

Salut,
Avec ce code :

Private Sub CommandButton1_Click()
Dim result As String
result = MsgBox("bla bla bla", vbYesNo)
If result = vbYes Then
'blabla bla bli
Else
'ne fais pas ça petit scarabée!!
End If
End Sub

David · Answer

Merci ca marche parfaitement.

Et si je veux que se soit marquer Valider et Refuser à la place de oui ou non ?

pijaku · Answer

Il faut créer un userform.
Dans votre feuille excel taper ALT + F11, insertion/Userform, dessiner 2 boutons de commande, 1 valider et un refuser.
Le code du commandbutton original devient alors :

Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub

David · Answer

Merci beaucoup. 

J'ai une dernière question, est-ce que vous savez convertir le texte d'une textbox en entier avec Cint ? Car j'ai une textbox dans laquel je rentre le chiffre "9" et j'ai une variable de type entier qui doit prendre cette valeur.

Merci

pijaku · Answer

Salut,
avec du retard...
Dim mavariable as Integer
mavariable = CInt(TextBoxx)

David · Answer

cela ne fonctionne pas. J'ai une variable (X) qui est une structure (Y) avec (a) en integer dans la déclaration de la structure.

et dans le code du VBA je dis que lorsque j'entre dans ma textbox (textbox1)

X.a=Cint (textbox1) 

et la il me met incompatibilité de type.

Pourquoi ?

VBA : un bouton de commande dans un autre

6 réponses

Discussions similaires

Newsletters