Bonjour,

Voici mon petit soucis, je dispose d'une frame dans un userform.

Ce frame contient des listbox, et je souhaiterais tester tous les listbox de ce frame sans avoir à rentrer manuellement leurs nom.

En gros, si une valeur du listbox est sélectionnée, afficher "Tototata"

J'ai la procédure pour un OptionButton, mais je n'arrive pas à l'adapté pour les listbox.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
For Each c In Me.Frame1.Controls
If TypeName(c) = "OptionButton" Then
Select Case c.Value
Case True
MsgBox c.Name
Exit For
End Select
End If
Next
Merci d'avance