Efface Box ? [Résolu]

[herve62]

Bonsoir
Bon déjà , j'ai laissé passer 2Min ... PUB ?? j'ai HORREUR c'est Quoi ce nouveau BIZ ????
Donc Messieurs les annonceurs je fais ma PUB
Ici c'est un forum TECHNIQUE .. on est pas à AUCHAN CARREFOUR .etc donc REMEDE ANTI PUB :
je mets la fenetre en barre ( masque )
je reviens .. clique DIRECT sur la "X" et voilà j'ai rien vu de VOS TRUCS !!
ON n'AVAIT PAS CA AVANT ??? ( on perd juste 1minute !!)

bon .. mon Pb , peut-être tout ballot !
Je joins le fichier , pas d'explication puisque vous verrez le Pb
Y en a plein qui explique et ne mettent pas le fichier ..
La c'est Clair donc y aura pas confusion dans les réponses
Merci

 

[JCGL]

Re : Efface Box ?

Bonjour à tous,

Salut Hervé,

Tu te fais du mal tout seul...

• Edite ton profile par Tableau de Bord
• Mes paramètres > Options Générales
• Tout en bas : vérifie la case à cocher :

A+ à tous

 

[Dranreb]

Re : Efface Box ?

Bonsoir

Mettez votre procédure clearbox dans le code de l'userform.
Les contrôles de ce dernier y sont bien des objets Public, mais comme toute variable Public dans n'importe quelle sorte de module autre qu'un module ordinaire, ils en sont des propriétés (une Public Sub en serait une méthode).

 

[herve62]

Re : Efface Box ?

Bonjour
Merci à vous
Jean-Claude : les pubs ??? mon œil !!!! la case n'est pas cochée , et même là à 6h du mat
faut attendre 2min30 !!! c'est pour ca que je commence à 6h ! ahaahaha
Sinon je me suis lancé , t'enverrai un MP
----
Sinon pour me rafraichir la mémoire (6 mois) , j'avais repris la structure d'une de mes grosses appli
j'avais un USF , et dans le bouton 'OK' , j'avais mis CALL CLEAR_BOX
Et Oui , le Call va chercher la Sub dans le même module que USF
Donc maintenant c'est OK
Faut que je remémorise tout ca ! ( "Function", là ca doit marcher si ailleurs)
A+

 

[13GIBE59]

Re : Efface Box ? [Résolu]

Bonjour à tous

Sinon, pour vider un userform, quel que soit l'objet :

Private Sub Remisezero Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub