Discussion :

[Tchebichef]

Bonjour à tous,

Je cherche à simplifier mon code.
Et pour ça, j'aimerais utiliser une boucle For Each pour "vider" les textbox d'une certaine page d'un controle multipage.
J'ai écrit :

Code :

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

1
2
3
4
Dim t As TextBox
For Each t In UserForm1.MultiPage3.Pages(3)
    t.Value = ""
Next t

J'ai une erreur "Propriété ou méthode non gérée par cet objet".

Quelqu'un a une idée ?

D'avance merci

[Tchebichef]

j'ai trouvé ce bout de code qui fonctionne :

Code :

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

1
2
3
4
5
6
Dim cCont As Control
For Each cCont In Me.MultiPage3.Pages(3).Controls
    If TypeName(cCont) = "TextBox" Then
        cCont.Value = ""
    End If
Next cCont

Je passe donc en résolu.
Bonne journée