Concaténer choix ListBox : Select Case

Version imprimable

Bonjour à tous et à toutes,

J'essaie de créer une petite fonction qui puisse concaténer sur un format texte les choix réalisés dans une ListBox.
Ça fonctionne pour n= 0 et n= 1, la fonction renvoie bien respectivement les string A & B et A & C.
En revanche, pour n=3, elle renvoie A & C et non A & D.
Auriez-vous une idée du plantage ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Public Function ConcatenerList() As String Dim Txt As String Dim i As Integer Dim A, B, C, D As String A = "Texteeeeeee " B = "Texteeeeeeeeeeeee " C = "Texteeeeeeeeeeeeeeee, " D = "Texteeeeeeeeeee, " With UserForm1 Select Case .ListBoxIADL.Selected(i) Case i = 0 Txt = A & B Case i = 1 Txt = A & C Case i = 2 Txt = A & D End Select End With ConcatenerList = Txt End Function
J'en profite pour une autre petite question :
Le Select Case permet-il l'utilisation d'un opérateur du style AND ? Je n'ai rien trouvé sur ce sujet.
Dans mon cas ça serait un truc du genre (qui bien sûr ne fonctionne pas) :
Code:

1 2 3 Select Case .ListBoxIADL.Selected(i) Case i = 0 AND i=1 AND i= 2 Txt = A & B & C
Merci d'avance ;)

Citation:

Envoyé par florent77

Bonjour,

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Public Function ConcatenerList() As String
Dim Txt As String
Dim i As Integer, NbSelectionnes As Integer, Nb012 As Integer
Dim A, B, C, D As String
 
    A = "A "
    B = "B "
    C = "C "
    D = "D "
    Txt = ""
    NbSelectionnes = 0
    Nb012 = 0
 
    With UserForm1
 
        With .ListBoxIADL
             For i = 0 To .ListCount - 1
                 If .Selected(i) = True Then
                     NbSelectionnes = NbSelectionnes + 1
                    Select Case i
                           Case 0
                                Txt = A & B
                                Nb012 = Nb012 + 1
                           Case 1
                                Txt = A & C
                                 Nb012 = Nb012 + 1
                           Case 2
                                Txt = A & D
                                Nb012 = Nb012 + 1
                           Case Else
                                Txt = ""
                    End Select
                  End If
            Next i
            Select Case Nb012
                   Case 2
                        Txt = ""
                   Case 3
                        Txt = A & B & C & D
            End Select
 
            If NbSelectionnes > 3 Then Txt = ""
 
        End With
 
    End With
 
    ConcatenerList = Txt
 
End Function
 
 
Sub Test()
 
    With UserForm1
 
         With .ListBoxIADL
             .List = Array("Cas 1", "Cas 2", "Cas 3", "Cas 4")
         End With
 
         .Show
 
    End With
 
End Sub

27/10/2018, 18h22
patricktoulon

re
re
re
bonjour
ben c'est un pau normal que le 3° ne fonctionne pas
ta listbox index 0,1,2
.ListBoxIADL.Selected(i)renvoie true ou false 1 ou 0 forcement ca peut pas marcher
maintenant peut etre que si tu fait
Code:

1 2 3 4 5 6 7 8 9 10 Select Case .ListBoxIADL.listindex case 0:text=A & b case 1:text=A & C case 2:text=A & D case else:text="" end select
05/11/2018, 17h45
florent77

1 pièce(s) jointe(s)
De retour après quelques jours d'absence...

Bonjour à toutes et à tous,

@ Eric : merci beaucoup pour ce code astucieux qui va bien me servir

@ Patrick : je ne connaissais pas le listindex, bien pratique également, merci

Je réitère l'une de mes questions :
Existe-t-il une méthode dans le Select Case qui puisse agir comme le AND ?
Dans l'exemple ci-dessous : je coche les cas 1, 5 et 6 et je les concatène

Pièce jointe 424684

Ça serait un truc du genre :
Code:

1 2 3 Select Case ListBox.listindex Case 0 And 4 And 5 : Txt = Cas1 & Cas5 & Cas6 End Select

Citation:

Envoyé par florent77

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub Test()
 
    With UserForm1
 
         With .ListBoxIADL
             .List = Array("Cas 1", "Cas 2", "Cas 3", "Cas 4", "Cas 5", "Cas 6")
         End With
 
         .Show
 
    End With
 
End Sub
 
Public Function ConcatenerList() As String
Dim Txt As String
Dim i As Integer, NbSelectionnes As Integer, Nb012 As Integer
 
    ConcatenerList = ""
    Txt = ""
    With UserForm1
 
        With .ListBoxIADL
             For i = 0 To .ListCount - 1
                 If .Selected(i) = True Then Txt = Txt & .List(i)
            Next i
        End With
 
    End With
    ConcatenerList = Txt
 
End Function

Dans le Userform :

Code:

1
2
3
4
5
6
7
8
 
 
Private Sub CommandButton1_Click()
 
    Me.TextBox1 = ConcatenerList
    Debug.Print ConcatenerList
 
End Sub

1 pièce(s) jointe(s)

Bonjour le forum,

Bonjour Eric et merci !!:) ça fonctionne désormais impeccable !

J'ai juste rajouté :
- un Array (les sélections renvoyant à des strings différentes des intitulés)
- une constante "A, "

Pièce jointe 424796

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function ConcatenerList() As String
Dim Txt As String
Dim i As Integer
Dim Listing As Variant
 
    Listing = Array("B, ", "C, ", "D, ", "E, ", "F, ", "G, ")
    ConcatenerList = ""
    Txt = "A, "
 
    With UserForm1
 
        With .ListBoxIADL
             For i = 0 To .ListCount - 1
                 If .Selected(i) = True Then Txt = Txt & Listing(i)
            Next i
        End With
 
    End With
 
    ConcatenerList = Txt
 
End Function

Problème résolu sans le Select Case, merci encore à Eric et Patrick ;)