Discussion :

[smartbis]

bonjour,

je viens d'essayer ce morceau de programme dans mon application est cela fonctionne a merveille

neammoins je souhaiterais n'effacer que les valeurs des dix premieres textbox et pas celle de tous ma userform

et c'est la que cela coince

merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Dans un Module
Public Sub EffaceTextBox(ByRef UForm As UserForm)
    Dim Ctrl As Control
    'Boucle pour tout les contrôle de UForm
    For Each Ctrl In UForm.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = VbNullString
    Next
    Set Ctrl = Nothing
End Sub
--------------------------------------------------------------------------------
'N'importe ou dans un USerForm
Call EffaceTextBox(Me)

[SilkyRoad]

bonjour

Si par exemple tes Textbox sont nommés TextBox1 à TextBox10:

Code :

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

1
2
3
4
5
6
7
Public Sub EffaceTextBox(ByRef UForm As UserForm)
    Dim i As Integer
 
    For i = 1 To 10
        Me.Controls("TextBox" & i).Value = vbNullString
    Next i
End Sub

michel

[smartbis]

Merci pour ta reponse

cela va parfaitement

Encore mille merci de prendre du temps pour repondre a des evidences

[ouskel'n'or]

Tu peux tester Ctrl.name

Code :

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

1
2
3
4
5
6
    For Each Ctrl In UForm.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            If not Ctrl.name = "TextBoxNom" and not Ctrl.name = "TextBoxNom2" then
                   Ctrl.Value = VbNullString
            endif
    Next

Mais tu as plus sioux si tes textbox sont numérotés. Et là tu as plusieurs méthodes. Donne leurs noms qu'on ait une idée.
Enfin, s'ils ne sont pas numérotés, tu as la solution qui t'évite les If Ctrl.name ... and ... Ctrl.name and Ctrl.name ...

Code :

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

1
2
3
4
5
Select case Ctrl.name
     Case "TextMachin", "TextTruc", "Textechose" 'A ne pas effacer
     Case else
            Ctrl.Value = VbNullString 'on efface tous les autres
End select

[smartbis]

mes textbox ont un nom suivi d'un numero donc la la solution de silkyroad est parfait
merci d'avoir repondu