Réinitialisation de champs sur userform

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:

---

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

Bonjour Tchebichef, et bienvenu sur ce Forum.

Tout bête.
Respecter les majuscules et minuscules

Code:

---

Case "ComboBox"

---

"Box" et non pas "box"

Remarque :

Code:

---

Case Is =

---

peut se simplifier par

Code:

---

Case

---

Re Salut,

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

Code:

---

Option Compare Text

---

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

Code:

---

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

---

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

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.