Discussion :

[Gabout]

Bonjour,

Je cherche à créer un bouton de désélection d'une liste placée dans un sous-formulaire. Le sous-formulaire s'appelle Eléments, la liste lstType. J'ai codé

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdDeselect_Click()
    Dim i As Integer
    Dim ctrl As Control
    ctrl = Me.Eléments.Form!lstType
    For i = 0 To ctrl.ListCount - 1
        ctrl.Selected(i) = False
    Next i
End Sub

J'ai un message d'erreur 91 "Variable objet ou variable de bloc With non définie".

Une idée ?

[Gabout]

J'ai trouvé

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdDeselect_Click()
    Dim i As Integer
    Dim ctrl As Control
    Set ctrl = Me.Eléments!lstType
    For i = 0 To ctrl.ListCount - 1
        ctrl.Selected(i) = False
    Next i
End Sub

Si j'ai bien compris l'aide, l'instruction Set est nécessaire pour associer une référence d'objet à une variable.