ListBox sélection multiple

[Bpasq]

Bonjour le Forum,

Je suis bloqué depuis plusieurs jours, deux questions:

1 Je n'arrive pas à afficher l'ensemble des éléments dans ma listbox, éventuellement sans la première colonne qui me sert de sélection depuis le controle ComboBox,

2 Je souhaite aprés avoir sélectionné les lignes dans la listbox insérer la date du label5, dans la colonne date_de_déb sur le feuille excel.

Vous trouverez mon ficher en pièce jointe.

Merci

 

[Robert]

Bonsoir Bpasq, bonsoir le forum,

Pour parvenir à résoudre la deuxième partie de ton problème, j'ai rajouté dans la colonne Q un code pour chaque donnée de ta base car j'avais besoin d'une référence unique pour pouvoir la retrouver pour y insérer la date. Il te faudra donc mettre à jour ce code si tu rajoutes des données.

À plus,

Robert

 

[Bruno]

Bonjour le forum,

Un grand merci à Robert pour son aide.
J'ai encore besoin de vous, j'arrive à faire de la multi sélection, mais quand je valide, une seule ligne est prise en compte.

Merci de toute l'aide apportée.

 

[@+Thierry]

Bonjour Bruno, Robert, le Forum

Je te conseille cette démo Lien supprimé qui traite de la méthode à appliquer pour le retour des items sélectionnés dans une ListBox en mode MultiSelect...

Tu trouveras dans le fichier lui-même d'autre liens de téléchargement vers des Démos "Rudiments Basics ListBox" pour apprendre à maîtriser le retour de données de ListBox...

Bonne Après Midi
@+Thierry

 

[Hervé]

Bonjour tout me monde

Je profite de ce fil sur les listbox multiple pour poser une question :

For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Sheets("FeuilleCible").Range("A" & L) = Me.ListBox1.List(i)
L = L + 1
Me.ListBox1.Selected(i) = False 'ICI pour "Dé-sélectionner les Items"
End If

Cette macro tiré de la démo de @+Thierry récupere la valeur de la selection pour la renvoyé dans un range.

Mais si on voulait récupérer l'index de la sélection ?

du style : listbox1.listindex+1 mais pour une selection multiple.

D'avance je vous remercie de l'attention

Salut
Hervé

 

[@+Thierry]

Bonjour Hervé, re Bruno, Robert, le Forum

Désolé je n'étais plus par ici... Mais je viens de repasser vite fait...

Voici une méthode par une Dynamic Array (basic en mono dimmension) :

Private Sub CommandButton1_Click()
Dim i As Byte, x As Byte
Dim TabIndex() As Byte
Dim IndexSelected As String

    For i = 0 To Me.ListBox1.ListCount - 1
       If Me.ListBox1.Selected(i) = True Then
         ReDim Preserve TabIndex(x)
         TabIndex(x) = i
         x = x + 1
       End If
    Next

    For i = 0 To UBound(TabIndex)
        IndexSelected = IndexSelected & vbTab & "Index" & TabIndex(i) & vbCrLf
    Next

MsgBox "Liste des Index Sélectionnés :" & vbCrLf & IndexSelected

End Sub


On pourrait aussi le faire sans passer par un tableau séquentiellement mais directement dans la string, tout dépend de ce que tu dois faire et comment tu dois traîter le résultat du retour d'info...

Private Sub CommandButton1_Click()
Dim i As Byte
Dim IndexSelected As String

    For i = 0 To Me.ListBox1.ListCount - 1
       If Me.ListBox1.Selected(i) = True Then
          IndexSelected = IndexSelected & vbTab & "Index" & i & vbCrLf
       End If
    Next

MsgBox "Liste des Index Sélectionnés :" & vbCrLf & IndexSelected

End Sub


Bon Après Midi
@+Thierry

 

[Robert]

Bonjour à tous, bonjour le forum,

Enfin le revoilou l'extra-terrestre !!! Ça fait plaisir de te lire Thierry et surtout de savoir encore actif dans ce forum.

À plus,

Robert

 

[Hervé]

Re

Merci @+thierry pour cette réponse parfaite, ne te fait pas trop rare sur le forum, on à encore soif de connaissance.

Pour m'excuser auprès de Bruno d'avoir squatter son post, une autre solution à son problème via une collection d'adresse.


Par contre, bruno, qu'entends tu par : "j'arrive à faire de la multi sélection, mais quand je valide, une seule ligne est prise en compte".

Salut
Hervé