Bonjour, actuellement en train de travailler sur une page aspx, je n'arrive pas à réaliser une méthode pour décocher toutes les checkbox de ma page.

J'ai pour le moment fait ceci mais sans succès : ( lors du débugage, les webcontrol ne sont pas pris en compte dans ma boucle )

Code pour vérifier si au moins une checkbox est cochée
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
17
18
 
 
' renvoie vrai si au moins une checkbox est cochée'
    Private Function VerifAllCheckbox()
        Dim result As Boolean
        result = False
 
        Dim i As Object 
        For Each i In Me.Controls
            If TypeOf i Is CheckBox Then
                If CType(i, CheckBox).Checked = True Then
                    result = True
                End If
            End If
        Next
 
        Return result
    End Function
Code pour décocher les checkbox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
    ' décoche toutes les checkbox'
    Private Sub Decocher()
 
        Dim i As Object
        For Each i In Me.Controls
            If TypeOf i Is CheckBox Then
                CType(i, CheckBox).Checked = False
            End If
        Next
 
    End Sub
Merci pour votre aide