VBA : un bouton de commande dans un autre
Fermé
David
-
19 févr. 2010 à 16:34
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 25 févr. 2010 à 14:33
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 25 févr. 2010 à 14:33
A voir également:
- VBA : un bouton de commande dans un autre
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
6 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
19 févr. 2010 à 16:44
19 févr. 2010 à 16:44
Salut,
Avec ce code :
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
Merci ca marche parfaitement.
Et si je veux que se soit marquer Valider et Refuser à la place de oui ou non ?
Et si je veux que se soit marquer Valider et Refuser à la place de oui ou non ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
19 févr. 2010 à 17:01
19 févr. 2010 à 17:01
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
20 févr. 2010 à 16:51
20 févr. 2010 à 16:51
Salut,
avec du retard...
Dim mavariable as Integer
mavariable = CInt(TextBoxx)
avec du retard...
Dim mavariable as Integer
mavariable = CInt(TextBoxx)
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 ?
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 ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
25 févr. 2010 à 14:33
25 févr. 2010 à 14:33
Salut,
Si a doit être = à TextBox1, je dirais :
Pas sur car je n'ai rien compris à ce que tu voulais faire.....
Si a doit être = à TextBox1, je dirais :
X.a=X & "." & Cint (textbox1)
Pas sur car je n'ai rien compris à ce que tu voulais faire.....
