Suppression De Donnees Ds Textbox

[gds35]

Bonjour , tous les AMIS du forum ,
J'ai un USF ds lequel j'ai 10 TextBox .... Un bouton "SUPPRIMER" , je cherche à effacer toutes les données présentent ds les TextBox en même temps ,
pour effacer une seule TextBox je fais par Exemple Nom.Value = "" mais ne trouve la solution pour effacer toutes le autres.
Merci de votre aide.
GDS35(GéGé)

 

[Staple1600]

Re : Suppression De Donnees Ds Textbox

Bonjour


Avec ce code tous les texbox de l'userform seront traités

Dim C As Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then 
C.Object.Value=vbNullString
End If
Next C

EDITION :Une petite question pour les VBAistes du forum
Cette variante est-elle toujours fonctionnelle ?

Private Sub CommandButton1_Click()
Dim C As Control
For Each C In Me.Controls
C.Object.Value = _
IIf(TypeOf C Is MSForms.TextBox, vbNullString, C.Object.Value)
Next C
End Sub

 

[abtony]

Re : Suppression De Donnees Ds Textbox

Bonjour gds35.

dans cet exemple 8 textbox par une boucle

For X = 1 To 8
Controls("Textbox" & X) = ""
Next X

le numero des textbox doivent se suivre

bonne journée

edit: oups bonjour staple