griser bouton userform

Bonsoir à tous!

J'ai un Userform avec des listes.
Je cherche à savoir comment griser un bouton tant qu'une des liste est vide.
Quelqu'un peut m'aider?

Je vous remercie d'avance! =D

bonjour

un peu plus de precision sur le contexte de ta requete serais bien utile

sinon pour griser un control metre sa propriete "enable a false

si tu parle de listebox en parlant de liste

tu peux metre par exemple

Code:

---

1 2 3 4 5 6 7

sub griser()   if listbox1.list.count<1 then commandbutton1.enabled=false   'tout betement end sub

---

au plaisir

En effet je parlais d'une listbox!
Je savais qu'il y avait qqch avec la propriete, mais je ne connaissais pas la bonne formule!

Merci

En fait ça ne fonctionne pas.

Mon Userform contient de ListBox, la premiere contient les 12 mois de l'année et j'ai 4 boutons de commandes : Ajouter , Supprimer, Toutes, Aucune.

Quand ma Listbox2 est vide Supprimer et Aucune doivent être grisés.

Donc voilà..

rebonjour

bon en prenant en compte que tes bouton s'apelle "supprimer et aucune"
attention ne pas confondre le nom et la caption du bouton

le bouton peut s'appeler commandbutton1et avoir la caption "supprimer" par exemple . il faut savoir !!!!

dans le doute le bouton supprimer apelle le supprimer et ainsi de suite

et place ce morceau de code la ou il le faut 'chez mi ca marche

Code:

---

1 2 3 4 5 6

If ListBox2.ListCount = 0 Then supprimer.Enabled = False aucune.Enabled = False End If

---

Bonjour,

Je mets bien le code, je l'avais déjà fait auparavant.
En effet ça fonctionne mais si j'ajoute dans ma listbox2 les boutons restent grisés!
Le code doit être dans Userform Initialize? ou dans ListBox2?

J'ai utilisé Rowsource pour compléter ma listbox1 et voici mon morceau de code, pour le moment (j'essaie d'abord de finir avec cette histoire de grisage):

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ajout_Click() Dim i As Integer   For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) End If Next i   End Sub

---

Code:

---

1 2 3 4 5 6 7

Private Sub ListBox2_Click() If ListBox2.ListCount = 0 Then supprimer.Enabled = False aucune.Enabled = False End If   End Sub

---

Code:

---

1 2 3 4 5 6 7

Private Sub supprimer_Click() Dim i As Integer   i = ListBox2.ListIndex ListBox2.RemoveItem i   End Sub

---