Vider TextBox

[Temjeh]

Salut et Bonsoir le forum

Juste un petit rensiegnement

J'ai un form avec plusieur TextBox(43) je voudrais si possible un code pour tous les viders au lieu de mettre 43 fois : TextBox1=("")...ect

Merci et bon travail

Temjeh

 

[Myta]

Salut temjeh

Essaye ceci voir

Sub Effacer()
Dim CTRL as Control
For Each CTRL in Userform1.Controls
if type of CTRL is Msforms.TextBox then
CTRL=""
end if
next CTRL
end sub

Mytå

 

[Temjeh]

Merci pour ce code mais il me fait un bug sur la ligne:


if type of CTRL is Msforms.TextBox then


Merci Myta

 

[Myta]

Re Temjeh

Donne un exemple en piece jointe

Mytå

 

[Temjeh]

Mon fichier est trop volumineux
Je te montre le code
Je veux vider après le Yes!!!!!!!!!!!!!!!!!!!!!!!!!
Private Sub CommandButton3_Click()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le No de la nouvelle facture*")

If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut

Else

Sheets("Model").Copy

ActiveWorkbook.SaveAs Filename:= _
"C:\Program Files\Factures 2004.1.1\Factures\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False



MsgBox "Votre facture sera créer dans le répertoire: C:\Program Files\Factures 2004.1.1\Factures\"
YesNo = MsgBox("Voulez-vous faire une autre facture ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
'vider TextBox ici!!!!!!!!!!!!!!!!!!!!!!!!ici

Case vbNo
ActiveWorkbook.Close
UserForm3.Hide

End Select
End If
End Sub

Merci de ton temps

 

[myDearFriend]

Bonjour Temjeh, Myta, le Forum.


Temjeh, la syntaxe à utiliser est :

if TypeOf CTRL...

et non : if type of CTRL.... (pas d'espace pour "TypeOf")


Sinon, si le problème subsiste, tu peux aussi utiliser :

If TypeName(CTRL) = "TextBox" Then...


Cordialement.
Didier_mDF

 

[Yeahou]

Bonjour Temjeh, mita, mydearfriend, le forum

On peut aussi utiliser une boucle sans test du type

For compteur = 1 To 43
Userform1.Controls("textbox" & compteur).Value = ""
Next compteur

A+

 

[Temjeh]

Wow merci a tous si j'ai bien compris:

Sub Effacer()
Dim CTRL as Control
For Each CTRL in Userform1.Controls
if type of CTRL is Msforms.TextBox then
CTRL=""
end if
If TypeName(CTRL) = "TextBox" Then...
next CTRL
For compteur = 1 To 43
Userform1.Controls("textbox" & compteur).Value = ""
Next compteur
if TypeOf CTRL...
et non : if type of CTRL.... (pas d'espace pour "TypeOf")
end sub

C'est juste une blague merci a tous je démêle le tout

Temjeh

A++