aubelix
XLDnaute Impliqué
Bonjour à tous les Amis du Forum.
J'ai besoin de nouveau de vos lumières.
J'ai récupéré la macro ci-dessous qui fonctionne très bien
pour vider tous les Textbox d'un userform.
J'aurais aussi souhaité masquer tous les webBrowser code à ajouter à cette macro..
Mais je ne trouve pas la syntaxe.
Merci pour votre aide.
Cordialement.
Sub Raffraichir()
Dim CTRL As Control
'On Vide tous les Textbox
For Each CTRL In UsF_Consultation.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = ""
End If
Next CTRL
End Sub
' Syntaxe pour Masquer tous les WebBrowser ci-dessous à la suite de la macro ci-dessus.
WebBrowser01.Visible = False
WebBrowser02.Visible = False
WebBrowser03.Visible = False
WebBrowser04.Visible = False
WebBrowser05.Visible = False
WebBrowser06.Visible = False
WebBrowser07.Visible = False
WebBrowser08.Visible = False
WebBrowser09.Visible = False
WebBrowser10.Visible = False
WebBrowser11.Visible = False
WebBrowser12.Visible = False
J'ai besoin de nouveau de vos lumières.
J'ai récupéré la macro ci-dessous qui fonctionne très bien
pour vider tous les Textbox d'un userform.
J'aurais aussi souhaité masquer tous les webBrowser code à ajouter à cette macro..
Mais je ne trouve pas la syntaxe.
Merci pour votre aide.
Cordialement.
Sub Raffraichir()
Dim CTRL As Control
'On Vide tous les Textbox
For Each CTRL In UsF_Consultation.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = ""
End If
Next CTRL
End Sub
' Syntaxe pour Masquer tous les WebBrowser ci-dessous à la suite de la macro ci-dessus.
WebBrowser01.Visible = False
WebBrowser02.Visible = False
WebBrowser03.Visible = False
WebBrowser04.Visible = False
WebBrowser05.Visible = False
WebBrowser06.Visible = False
WebBrowser07.Visible = False
WebBrowser08.Visible = False
WebBrowser09.Visible = False
WebBrowser10.Visible = False
WebBrowser11.Visible = False
WebBrowser12.Visible = False
Dernière édition: