[VBA] Listbox : Empêcher plus de 10 sélections

F22Raptor

XLDnaute Impliqué
Hello
J'aimerais dans une Listbox à sélection multiple (qui contient quelques centaines d'items), que l'utilisateur ne puisse pas sélectionner plus de 10 items.
Donc, un onzième click sur la longue liste d'items ne devrait pas 'bleuter' la ligne.

Savez-vous si c'est possible ?

Merci !
 

F22Raptor

XLDnaute Impliqué
Hello
Il ne l'est pas encore ! :D

Ma réflexion a précédé la création ... Je suis en train de le créer, mais avant de commencer, je m'interrogeais pour savoir si c'était possible.

Peut-être avec une combinaison de .Selected et de .ListIndex

Si je trouve la soluce, je la mettrai ici : ça pourra servir à d'autres ... Sinon, je reviendrai penaud (mais avec un fichier !)
 

F22Raptor

XLDnaute Impliqué
VICTOIRE ! :D

Code:
    Dim i As Integer, Cptr As Integer

    For i = 0 To Me.ListBoxSource.ListCount - 1

        If Me.ListBoxSource.Selected(i) = True Then
            Cptr = Cptr + 1
        End If

    Next i

    If Cptr > 5 Then
        Me.ListBoxSource.Selected(Me.ListBoxSource.ListIndex) = False
    End If
 

F22Raptor

XLDnaute Impliqué
bon, je partais sur une petite idée ... qui comme d'habitude est en train de grossir ... Et le coup de la sélection limitée à 10 (résolu avec ma boucle, donc, mais je suis preneur d'autres méthodes) n'est finalement qu'un petit souci face aux nouveaux qui arrivent !!! :D

A bientôt minuit, je verrai ça demain !
Salut les gens
 

Discussions similaires

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T