Programmer un bouton de commande avec vba
Résolu/Fermé
A voir également:
- Programmer un bouton de commande avec vba
- Invite de commande - Guide
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
3 réponses
Samygale
Messages postés
45
Date d'inscription
jeudi 10 décembre 2009
Statut
Membre
Dernière intervention
18 décembre 2009
1
16 déc. 2009 à 17:03
16 déc. 2009 à 17:03
Le plus simple est de contrôler dans ton code lié au bouton si une valeur est sélectionnée dans ta liste ou pas... Si aucune valeur sélectionnée ==> Exit Sub ou Msgbox "Veuillez sélectionner un produit" :)
Samygale
Messages postés
45
Date d'inscription
jeudi 10 décembre 2009
Statut
Membre
Dernière intervention
18 décembre 2009
1
17 déc. 2009 à 09:45
17 déc. 2009 à 09:45
Re bonjour Nina,
Pouvez-vous envoyer le code du bouton en question ?
Pouvez-vous envoyer le code du bouton en question ?
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
17 déc. 2009 à 10:15
17 déc. 2009 à 10:15
Bonjour,
appuyer sur le bouton "ok" uniquement si j'ai selectionné un produit dans la scrollbar.
Il n'y a pas d'élément sélectionnable dans une Scrollbar. Il doit s'agir d'un ComboBox ou d'une ListBox.
Dans le cas d'une Combobox :
Dans le cas d'une ListBox :
;o)
appuyer sur le bouton "ok" uniquement si j'ai selectionné un produit dans la scrollbar.
Il n'y a pas d'élément sélectionnable dans une Scrollbar. Il doit s'agir d'un ComboBox ou d'une ListBox.
Dans le cas d'une Combobox :
If Combo1.Text = "" Then MsgBox "Aucun produit sélectionné..." Exit Sub End If
Dans le cas d'une ListBox :
Dim i As Long
Dim trouve As Boolean
trouve = False
For i = 0 To .List1.ListCount - 1
If .List1.Selected(i) Then
trouve = True
End If
Next
If trouve = False Then
MsgBox "Aucun produit sélectionné..."
Exit Sub
End If
;o)
17 déc. 2009 à 09:15
Cordialement