[VBA Excel] - Vider toutes les TextBox d'un UserForm

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Excel] - Vider toutes les TextBox d'un UserForm

karoli

'jour all

Voila je cherche à réinitialiser la value de toutes les TextBox présentes sur un multipage, lui meme positionné sur un UserForm...mais voilà, je ne suis pas dev et je galère un p'tit poil

J'ai bien pensé à créer Une NewCollection, laquelle regroupe toutes les textbox, mais je coince sur la syntaxe.

Code :

Sub ViderForm()
Dim Boites As newCollection
Dim Boite As TextBox
For each .... ?????
End Sub

Si je pouvais avoir un coup de main

Merci d'avance

Publicité

JihemAir

Je sais pas

Code :

Dim objControl As Control
For Each objControl In UserForm1.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
Next

En fait, la collection des controles existe dans UserForm. Reste à filtrer pour le controle recherché.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

karoli

JihemAir a écrit :

Code :

Dim objControl As Control
For Each objControl In UserForm1.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
Next

En fait, la collection des controles existe dans UserForm. Reste à filtrer pour le controle recherché.

Super ! merci
mais j'avais trouvé sans la collection, en testant le nom de mes Controls, tous mes TextBox commencant par TB => If Left(objControl,2) = "TB" Then...

Ca fait un peu bricolage
Vais donc remplacer par ton code !
Encore merci :jap:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA Excel] - Vider toutes les TextBox d'un UserForm

Sujets relatifs
[VBA] Créer un saut de page	[VBA] Lister tout les fichiers d'un répertoire
[excel] copie et insertion de colonnes	Petit pb simple de macro excel
Prob Vba Docmd.OpenForm	[VBA][Excel] Rollover
double pb vb excel	Changer le couleur d'une cellule d'un fichier Excel
Passage de ligne dans un textbox (messagerie privée)
Plus de sujets relatifs à : [VBA Excel] - Vider toutes les TextBox d'un UserForm

Page générée en 0.035 secondes