Discussion :

[florent77]

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

[Invité]

Bonjour,

A tester :

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
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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[florent77]

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



Ça serait un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[florent77]

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, "

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
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