Suppression De Donnees Ds Textbox

gds35

XLDnaute Impliqué
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

XLDnaute Barbatruc
Re : Suppression De Donnees Ds Textbox

Bonjour


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

Code:
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 ?
Code:
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
 
Dernière édition:

abtony

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
12
Affichages
515

Statistiques des forums

Discussions
312 017
Messages
2 084 627
Membres
102 618
dernier inscrit
Elise751