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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Select Case .ListBoxIADL.Selected(i)
     Case i = 0 AND i=1 AND i= 2
         Txt = A & B & C

Merci d'avance