Bonjour à tous,
J'ai un Userform avec plusieurs types de contrôles et plusieurs contrôles par type.
Je souhaite permettre la réinitialisation du Userform et donc vider les textbox, réinitialiser les combobox etc...
Mon bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim c As Control
    For Each c In Saisie.Controls
    MsgBox TypeName(c)
        Select Case TypeName(c)
            Case Is = "TextBox"
                c.Value = ""
            Case Is = "Combobox"
                c.ListIndex = -1
        End Select
    Next
fonctionne parfaitement pour les textbox, mais pas pour les combobox.
J'ai positionné des msgbox et bizarrement, le case is = "TextBox" est bien détecté mais pas le case is = "ComboBox", alors que quand je mets une msgbox Typename(c) il trouve bien mes combobox...
Une idée ?
D'avance merci