[VBA-A]Verouiller une listbox

Bonjour,

je réalise actuellement des formulaires sous Access et je souhaiterais qu'une listbox de ce formulaire n'apparraisse que si une case à cocher est coché, et devienne gris si cette derniere est decoché. Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub cochPre_Click() Dim boolCoch As Boolean If boolCoch = False Then Form_FICHE.lstTest.Locked = False boolCoch = True Else Form_FICHE.lstTest.Locked = True boolCoch = False End If End Sub

---

Cependant, je crois que mon booleen s'initialise toujours à False au moment du clic. Comment puis je faire pour contourner cela??

Merci :D

Ton boolean doit être déclaré en public, dans les déclarations ("Général")

A+

C'est a dire ? Je dois faire comment ?

sinon utilise une variable "static" qui conserve sa valeur entre 2 appels de fonction pour cela remplace ta ligne Dim...

par

Code:

---

static boolCoch As Boolean

---

:wink:

Nikel ca marche ;-) Merci beaucoup :-D

Bonne prog à tous ;)