Discussion :

[dgeo10]

Bonjour,
Je cherche un moyen de "désactiver" ou de "cacher" une listbox afin qu'on ne sache rien mettre dedans
selon une condition d'une autre Listbox.

J'ai essayer ceci mais sa fonctionne pas :/

Code :

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

1
2
3
4
5
Private Sub ComboBox11_Change()
If ComboBox13.Value = Facture Then End Sub
ComboBox11.Enabled = False
MsgBox "Vous n'êtes pas en mode Facture ! "
End Sub

Donc si Cb13 = Facture alors ok il se passe rien
Mais si Cb13 = autre choses alors il cache/désactive la lisbox

Merci

[Thautheme]

Bonjour Dgeo, bonjour le forum,

Oooops pas clair du tout, tout ça !... Elle est où ta ListBox. Il n'y a que des ComboBoxes dans ton code. Ensuite, désactiver la ComboBox11 sur l'événement Change de cette même ComboBox11 me paraît assez farfelu... Tu devrais revoir ton code et tes explications...

[dgeo10]

Salut et merci oui je me suis tromper je parle bien de ComboBox et pas de Listbox pardon

Donc j'ai :

ComboBox13 = liste avec 3 choix possible (Facture, Acompte ou Devis)

ComboBox11 = Données à entrer pour le mode "Facture"

Donc j'aimerais que si le choix de ma ComboBox13 = à Facture alors rien en ce passe

Mais si le choix dans la ComboBox13 = à Acompte ou à Devis alors il cache ou désactive la ComboBox13


Tout cela afin d'ajouter une sécurité à mon programme pour ne pas que sans faire attention on entre des données dans les mauvaises combobox et donc faire des erreurs de facturation.

[ippo_master]

En l'absence de détails, j'ai supposé que tes contrôles étaient placés dans un UserForm

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox13_Change()
 
If Me.ComboBox13.Value <> "Facture" Then 'Si condition VRAIE
    Me.ComboBox11.Visible = False
Else 'Si condition FAUSSE
    Me.ComboBox11.Visible = True
End If
 
End Sub

[dgeo10]

Oui oui UserForm
Parfait petit code cela fonctionne Merci

[Thautheme]

Bonjour le fil, le forum,

Simplifié :

Code :

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

1
2
3
Private Sub ComboBox13_Change()
Me.ComboBox11.Visible = IIf(Me.ComboBox13.Value = "Facture", True, False)
End Sub