Discussion :

[Tchebichef]

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

[MarcelG]

Bonjour Tchebichef, et bienvenu sur ce Forum.

Tout bête.
Respecter les majuscules et minuscules

Code :

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

Case "ComboBox"

"Box" et non pas "box"

Remarque :

Code :

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

Case Is =

peut se simplifier par

Code :

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

Case

[MarcelG]

Re Salut,

On peut cependant passer outre cette distinction majuscule/minuscule en codant en entête de module

Code :

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

Option Compare Text

D'où, si l'on reprend ton écriture

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
Option Compare Text
 
Public Sub essai_usf()
Dim c As Control
 
Load Usf1
With Usf1
    For Each c In .Controls
        MsgBox TypeName(c)
        Select Case TypeName(c)
            Case "TextBox"
                c.Value = ""
            Case "Combobox"
                c.ListIndex = -1
        End Select
    Next
    .Show
End With
End Sub

[Tchebichef]

Je suis un blaireau...
et je vous prie de bien vouloir m'excuser de vous avoir déranger pour un truc si bête...
Merci +++

[MarcelG]

On a tous été un blaireau.
Moi le premier. A mes débuts et bien-entendu encore maintenant, j'ai bien apprécié la rencontre des Ousskelnor, Leforestier et autres mercatog.

Le principal reste que tu comprennes et que tu apprennes afin de progresser.

Relis bien les codes proposés, et reviens si nécessaire.

Bonne continuation.