Bonjour
je souhaite pouvoir cocher une Checkbox en cliquant dans une listBox et inversement pouvoir sélectionner une ligne dans une listbox en cochant un checkbox
J'ai testé ça
Private Sub CheckBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
For i = 0 To 26
If CheckBox1.Value = True And Me.CheckBox1.Caption = Me.ListBox1.List(i) Then Me.ListBox1.List(i).Value = True
Next i
End Sub
et
Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
For i = 0 To 26
If Me.ListBox1.List(i).Value = True And Me.CheckBox1.Caption = Me.ListBox1.List(i) Then CheckBox1.Value = True
Next i
End Sub
Cependant aucun changement apparent sur mon userform. Je m'explique quand je clique sur une ligne de ma listbox le checkbox.value =true mais la case reste non cochée.
De même quand je coche la checkbox Me.ListBox1.List(i).Value = True mais la ligne reste blanche et ne se surligne pas en bleu.
Comment faire ?
Merci
je souhaite pouvoir cocher une Checkbox en cliquant dans une listBox et inversement pouvoir sélectionner une ligne dans une listbox en cochant un checkbox
J'ai testé ça
Private Sub CheckBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
For i = 0 To 26
If CheckBox1.Value = True And Me.CheckBox1.Caption = Me.ListBox1.List(i) Then Me.ListBox1.List(i).Value = True
Next i
End Sub
et
Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
For i = 0 To 26
If Me.ListBox1.List(i).Value = True And Me.CheckBox1.Caption = Me.ListBox1.List(i) Then CheckBox1.Value = True
Next i
End Sub
Cependant aucun changement apparent sur mon userform. Je m'explique quand je clique sur une ligne de ma listbox le checkbox.value =true mais la case reste non cochée.
De même quand je coche la checkbox Me.ListBox1.List(i).Value = True mais la ligne reste blanche et ne se surligne pas en bleu.
Comment faire ?
Merci