Bonjour j'ai une erreur, dans mon code, qui me dit "propriété ou méthode non géré par cet objet."

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1  erreur à ce niveau
        Case "txt"
            ctl.vivible = False
            ctl.Value = ""
        Case "cmb"
            ctl.Visible = False
    End Select
Next ctl
Me.lstCollaborateurs.RowSource = "SELECT Secteur, Fonction, Fiche_de_poste, Nom FROM Collaborateurs;"
Me.lstCollaborateurs.Requery
End Sub
Pourtant ce bout de code vient d'un tutoriel du site, celui sur la recherche multicritere.

Merci de m'aider si possible.

Walden.