Discussion :

[fny_bnfnt]

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
sub griser()
 
if listbox1.list.count<1 then commandbutton1.enabled=false
 
'tout betement 
end sub

au plaisir

[fny_bnfnt]

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

[fny_bnfnt]

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à..

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
If ListBox2.ListCount = 0 Then
supprimer.Enabled = False
aucune.Enabled = False
End If

[fny_bnfnt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub supprimer_Click()
Dim i As Integer
 
i = ListBox2.ListIndex
ListBox2.RemoveItem i
 
End Sub