Recuperer les element qui ne sont pas checker dans une checklistbox

inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012 - 22 nov. 2011 à 11:38
inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012 - 22 nov. 2011 à 15:52
Bonjour
voila mon problème
je doit récupérer les élément checker dans une checklistbox pour les placer dans un textbox(1), la pas de problème.
puis je souhaite recuperer les element qui ne sont pas checker dans la même checklistbox pour aussi les placer dans un autre textbox(2).

Merci

3 réponses

cs_Le Pivert Messages postés 7860 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 2 décembre 2022 135
22 nov. 2011 à 11:57
Bonjour,
J'avais fait cela dans une listBox: inverser la sélection.
Voici le code qu'il faudra modifier suivant les besoins

 Private Sub InvertMySelection()
        'Boucle sur tous les objets de la ListBox.
        For i = 0 To lstfichier_1.Items.Count - 1

            'Déterminer si l'élément est sélectionné.
            If lstfichier_1.GetSelected(i) = True Then
                'Désélectionner tous les objets qui sont sélectionnés.
                lstfichier_1.SetSelected(i, False)
            Else
                'Sélectionner tous les éléments qui ne sont pas sélectionnés.
                lstfichier_1.SetSelected(i, True)
            End If
        Next i
        'Forcer le ListBox pour revenir en arrière vers le haut de la liste.
        'lstfichier_1.TopIndex = 0
    End Sub


Ensuite il ne restera plus qu'a faire la même chose qu'avec les éléments checkés

@+Le Pivert
0
inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012
22 nov. 2011 à 15:17
Merci Super
voila les modif pour une CheckedListBox


For i = 0 To CheckedListBox12.Items.Count - 1


'Déterminer si l'élément est sélectionné.
If CheckedListBox12.GetSelected(i) = False Then
'Désélectionner tous les objets qui sont sélectionnés.
CheckedListBox12.SetItemChecked(i, True)
'CheckedListBox13.SetSelected(i, False)
Else
'Sélectionner tous léléments qui ne sont pas sélectionnés.
CheckedListBox12.SetItemChecked(i, False)
End If
0
inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012
22 nov. 2011 à 15:52
excuse ici le bon code


For i = 0 To CheckedListBox12.Items.Count - 1


'Déterminer si l'élément est sélectionné.
If CheckedListBox12.GetItemChecked(i) = True Then
'Désélectionner tous les objets qui sont sélectionnés.
CheckedListBox12.SetItemChecked(i, False)

Else
'Sélectionner tous les éléments qui ne sont pas sélectionnés.
CheckedListBox12.SetItemChecked(i, True)
End If
0