Mise à zero et selection d'un text box

[Nicko]

Bonjour à tous,

J'ai une boite de dialogue avec plusieurs text box et je souhaiterais qu'à l'action d'un bouton l'ensemble des text box soit vidés et que le premier soit selectionné (avec le curseur à l'interieur) pour pouvoir saisir à nouveaux les elements.

en esperant avoir ete assez clair, merci d'avance.

 

[michel]

bonsoir Nicko

j'espere que cette macro pourra t'aider


Private Sub CommandButton1_Click()
Dim Cible As Control

For Each Cible In Controls 'boucler sur les TextBox pour les vider
If TypeOf Cible Is MSForms.TextBox Then Cible = ""
Next

With TextBox1 'focus sur Textbox1
.SetFocus
.SelStart = 0
End With

End Sub


bonne soiree
MichelXld