Préfixer du signe +, les éléments sélectionnés de ma listbox

[cibleo]

Bonjour le forum,

Dans un formulaire, je dispose d'une liste dans ListBoRDV.
J'aimerais insérer les éléments sélectionnés de cette liste dans ListBox1 sous cette forme (Voir l'image ci-dessous)
Soit un signe "+" en préfixe à partir du 2ème élément sélectionné.



Pour voir ce que j'obtiens : afficher le formulaire
Sélectionner des items dans ListBoRDV
Cliquez sur le bouton "Créer la course" puis sour OK dans la MsgBox

Voyez le résultat dans ListBox1 😱
Faut-il passer par un tableau ?

Voici le début de code associé au bouton "Créer la course"

Private Sub CommandButton1_Click() 'Créer la course
Dim Ctrl As Control, i As Integer
Dim Txt As String
  [COLOR=blue]With Me.ListBoRDV[/COLOR]
  Txt = ""
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then Txt = Txt & .List(i) & Chr(10) & Chr(43) & " "
    Next i
  Txt = Trim(Txt)
  Txt = Left(Txt, Len(Txt) - 1)
  MsgBox [COLOR=blue]Txt[/COLOR]
 [COLOR=blue]End With[/COLOR]
'
  If ListBox1.ListCount > 0 Then Me.ListBox1.AddItem "" 'Ligne blanche lors du rajout d'une course
 [COLOR=blue]ListBox1.AddItem Txt[/COLOR]
[B][COLOR=black]..../....[/COLOR][/B]

J'attire l'attention que cela doit-être le 1er élément sélectionné qui ne doit pas être préfixé.
Les items qui seront affichés dans Listbox1 devront l'être dans l'ordre des clics et non pas dans l'ordre affiché dans ListBoRDV.
Exemple:
1er clic sur Transfert
2ème clic sur Ambulatoire
3ème clic sur Hospitalisation


Doit s'afficher :
Transfert
+ Ambulatoire
+ Hospitalisation

Pas simple 😎

Merci de votre aide
A+ Cibleo

 

[Odesta]

Re : Préfixer du signe +, les éléments sélectionnés de ma listbox

Bonjour

je me suis penché en peu sur le problème

Et je me suis pris au jeu :
Donc voici une proposition d'amélioration en fonction de ce que vous demandiez. Il reste beaucoup à adapter, mais je pense que vous l'aviez prévu.

En résumé (il manque pas mal de commentaire, que je vous laisse rajouter) : je créé une procédure qui me détermine l'ordre de selection des élements de la liste.
une fois un tableau remplis avec les élements et leur ordre d'aparation, je les bascule dans les listbox. de là c'est à vous de jouer.

Sinon, de manière général, bravo pour ce programme il est très intuitif à utiliser et assez clair. je serais bien intéressé pour voir le final.


A++
Cdt
Olivier

 

[cibleo]

Re : Préfixer du signe +, les éléments sélectionnés de ma listbox

Bonjour à tous,
Bonjour Odesta et merci

Je regarde cela, en attendant j'avais essayé ceci 😎

Private Sub CommandButton1_Click() 'Créer la course
Dim Ctrl As Control, i As Integer
Dim Txt As String
 
  With Me.[COLOR=blue]ListBoRDV[/COLOR]
    For i = 0 To .ListCount - 1
         If .Selected(i) = True Then [COLOR=red]ListBox1.AddItem[/COLOR] Chr(43) & " " & i
    Next i
  End With
.../...

A+ Cibleo

 

[cibleo]

Re : Préfixer du signe +, les éléments sélectionnés de ma listbox

Bonsoir à tous,
Bonsoir Odesta

Superbe travail 🙂🙂🙂
C'est exactement ce que je souhaitais.
Je vais analyser tout cela et l'incorporer dans mon projet initial.

Chapeau Odesta, sincèrement je n'imaginais pas la difficulté à laquelle j'étais confrontée.

Mille mercis
Cibleo