Discussion :

[Boris_Gem]

Bonjour à tous,

J'ai une ListBox à choix multiple qui contient les 4 Valeurs : "France", "USA", "Angletterre" et "Italie".

J'aimerai pouvoir effectuer un test dans une macro du type :
SI France est selectionnée alors Action 1
Si USA est selectionnée alors Action 2
...

Pour cela j'ai utilisé la collections SelectedObjectCollection, et la méthode contains :

Code :

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

1
2
3
4
5
6
 
Dim AreaSelected As SelectedObjectCollection
AreaSelected = AreaList.SelectedItems
returnValue = AreaSelected.Contains("USA")
If returnValue Then Action 1 
End if

Le problème c'est dès la définition de la collection AreaSelected, j'ai un message d'erreur du type "User defined type non defined".

Quelqu'un aurait-il une idée du problème ?

[delphine35]

Dans la listbox "ListBox1" du userform "UserForm1" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    With UserForm1.ListBox1        
        If .Selected(0) Then  'France
            action1
        End If
        If .Selected(1) Then  'USA
            action2
        End If
        If .Selected(2) Then  'Angleterre
            action3
        End If
        If .Selected(3) Then  'Italie
            action4
        End If        
    End With

J'ai une ListBox à choix multiple qui contient les 4 Valeurs : "France", "USA", "Angletterre" et "Italie".

Donc ici

si UserForm1.ListBox1.List(0) = "France"
UserForm1.ListBox1.Selected(0) sera à vrai si "France" est selectionné


ou version 2 :

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
     With UserForm1.ListBox1
        For i = 0 To .ListCount
            If .Selected(i) Then
                Select Case .List(i)
                Case "France"
                    Action1
                Case "Italie"
                    Action2
                Case "Angleterre"
                    Action3
                Case "USA"
                    Action4
                Case Else
                    Action5
                End Select
            End If
        Next i
    End With

----
Ce soir je suis en vacances