effacer certaines valeurs de textbox

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:

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)

bonjour

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

Code:

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

Merci pour ta reponse

cela va parfaitement

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

Tu peux tester Ctrl.name
Code:

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:

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

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