ListBox pour base de données

[carapaud.bleu]

Bonjour à tous,

Je reviens vers vous avec le même document qu'il y a 2 semaines. En effet, j'ai placé une Listbox que j'ai rempli. Je voudrais que le contenu (max 3 réponses) se rangent dans les colonnes E, F et G.

J'ai cherché pendant longtemps sans rien à me mettre sous la dent et il faut que j'avance😕.

Je joins le doc. Merci de votre aide

CB

 

[mromain]

Re : ListBox pour base de données

bonjour carapaud.bleu, Jean-Marcel,


Voici un essai pour limiter la sélection à trois éléments dans la ListBox.
Rajouter le code "au début" du UserForm :

Private memSelections(1 To 3) As String



Private Sub DemandeListBox_Change()
Dim iList As Long, iTab As Long, boolPresent As Boolean, mem1 As Long
    
    For iList = 0 To DemandeListBox.ListCount - 1
        If DemandeListBox.Selected(iList) Then
            boolPresent = False
            For iTab = 1 To 3
                If memSelections(iTab) = DemandeListBox.List(iList) Then boolPresent = True
            Next iTab
            If Not boolPresent Then
                memSelections(1) = memSelections(2)
                memSelections(2) = memSelections(3)
                memSelections(3) = DemandeListBox.List(iList)
            End If
        End If
    Next iList
    
    mem1 = Application.EnableEvents: Application.EnableEvents = False
    For iList = 0 To DemandeListBox.ListCount - 1
        boolPresent = False
        For iTab = 1 To 3
            If memSelections(iTab) = DemandeListBox.List(iList) Then boolPresent = True
        Next iTab
        If (boolPresent And Not DemandeListBox.Selected(iList)) Then DemandeListBox.Selected(iList) = True
        If (Not boolPresent And DemandeListBox.Selected(iList)) Then DemandeListBox.Selected(iList) = False
    Next iList
    Application.EnableEvents = mem1
End Sub

a+

 

[carapaud.bleu]

Re : ListBox pour base de données

Merci Jean-Marcel et MRomain, c'est ce que je voulais. A mon avis ça servira à d'autre😀.

Merci, CB