Discussion :

[Vanessa48]

Bonjour

J'ai une CheckBoxList et je voudrais savoir les CheckBox cochées quand je clic sur un bouton

ma CheckBoxList :

Code :

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

1
2
3
4
5
6
7
8
9
<asp:CheckBoxList ID="CbxHeures" runat="server" 
 AutoPostBack="True" RepeatDirection="Horizontal">
        <asp:ListItem Value="8">8h</asp:ListItem>
        <asp:ListItem Value="9">9h</asp:ListItem>
        <asp:ListItem Value="10">10h</asp:ListItem>
        <asp:ListItem Value="11">11h</asp:ListItem>
        <asp:ListItem Value="12">12h</asp:ListItem>
        <asp:ListItem Value="13">13h</asp:ListItem>
</asp:CheckBoxList>

Mon bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub btnHeureOK_onclick(ByVal Sender As Object, ByVal e As EventArgs)
        Dim I As Integer
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                Dim H_OK As String = CbxHeures.Items(I).Selected.ToString
                If H_OK = "true" Then
                    lblH_OK.Text = "Sélectionné"
                Else
                    lblH_OK.Text = "Non sélectionné"
                End If
            End If
        Next
End Sub

Quand je clic sur mon bouton j'ai non-selectionné que la CheckBox soit cochées ou non

Pouvez-vous me dire où est l'erreur
Merci

[BenoitM]

C'est la propriété Checked que tu dois vérifier et non Selected

[Vanessa48]

Quand je saisi le code la propriété Checked n'est pas sur la liste

[BenoitM]

Quand tu debug CbxHeures.Items(I) Est de quel type?

[Vanessa48]

quand je fais F11 et coche et clic sur le bouton je ne passa pas par le debug

[Pelote2012]

en faisant cette boucle tu écrase et ne garde dans le label que le l'état de la dernière case cochée, non?
En plus, j'ai l'impression que ton code ne peut pas passer par

Code :

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

1
2
 
lblH_OK.Text =  "Non sélectionné"

Perso je coderai plus comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub btnHeureOK_onclick(ByVal Sender As Object, ByVal e As EventArgs)
        Dim I As Integer
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                     lblH_OK.Text = lblH_OK.Text  & "Sélectionné;"
             Else
                    lblH_OK.Text = lblH_OK.Text  & "Non sélectionné;"
             End If
        Next
End Sub

[ToshiroSama]

>> Un simple copier / coller de ton Code
>> Premier test en mode Debug

>> tu test avec "true" alors que c'est "True" ... tu manipule des chaine de caractère là donc "true" et différent de "True"...

[Jean-Michel Ormes]

Je ne vois pas pourquoi tu testes comme ceci :

Code :

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

If H_OK = "true"

Puisque dans aucun de tes ListItem tu n'as cette valeur. D'où l'utilité du debug pour vérifier tes valeurs.

Essayes ceci pour voir :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub btnHeureOK_onclick(ByVal Sender As Object, ByVal e As EventArgs)
        Dim I As Integer
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                lblH_OK.Text += CbxHeures.Items(I).Selected.ToString
            End If
        Next
 
       lblH_OK.Text += "Sélectionné(s)"
End Sub

[Pelote2012]

Code :

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

lblH_OK.Text += CbxHeures.Items(I).Selected.ToString

ça n'afficherai pas "true", un peu dommage
mieu serai quelquechose du genre

Code :

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

lblH_OK.Text += CbxHeures.Items(I).value

?

[ToshiroSama]

Tu souhaite afficher ce qui est sélectionné et non sélectionnés.
avec 1 sélectionné 2 non sélectionné ... j'ai cru comprendre cela.

Ton code fonctionne sauf que le test avec "true" n'est pas bon parce que tu utilise la valeur d'un boolean ( ToString ) ce qui donne True ou False et non true ou false.

essaye ce code :

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
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim I As Integer
 
        lblH_OK.Text = String.Empty
 
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                Dim H_OK As String = CbxHeures.Items(I).Selected.ToString
                If H_OK = "True" Then
                    lblH_OK.Text += (CbxHeures.Items(I).Value + "Sélectionné ")
                Else
                    lblH_OK.Text += (CbxHeures.Items(I).Value + " non Sélectionné ")
                End If
            End If
        Next
    End Sub

Au même temps tu peux ou bien virer

Code :

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

 If CbxHeures.Items(I).Selected Then

ou bien

Code :

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

1
2
Else
lblH_OK.Text += (CbxHeures.Items(I).Value + " non Sélectionné "

Voilà donc ce que j'aurais mis.

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
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim I As Integer
 
        lblH_OK.Text = String.Empty
 
        For I = 0 To CbxHeures.Items.Count - 1
 
            Dim H_OK As String = CbxHeures.Items(I).Selected.ToString
            If H_OK = "True" Then
                lblH_OK.Text += (CbxHeures.Items(I).Value + "Sélectionné ")
            Else
                lblH_OK.Text += (CbxHeures.Items(I).Value + " non Sélectionné ")
            End If
 
        Next
    End Sub

[Vanessa48]

Merci à tous pour votre aide
C'est OK