Effacer toutes les données inscrites dans une userform

Question

Salut,

Niveau : Débutant

J'aimerais par un bouton de commande, effacer toutes les données que j'ai pu inscrire auparavant dans une userform. Dans ma userform j'ai des "frame" (cadre) où on retrouve des listes déroulantes et textboxs. J'ai pas vraiment envie de me taper 36 lignes de codes pour cela. Si vous pourriez me montrer en quelques lignes comment effacer toutes mes données (vider ma userform sans les intitulés)?

Merci d'avance

ucfoutu · Answer

Bonjour,

si tu entends par là retrouver ton userform dans l'état dans lequel il se trouvait à l'ouverture de ton appli, il suffit :
1) de le décharger (unload)
2) de le remontrer (Show)

Si, par contre tu veux le vider entièrement (y compris donc de ce qu'il contenait à l'ouverture de ton appli), il te faut vider chacun des contrôle (syntaxe dépendant du type de contrôle)

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Si tu es dans le cas 2 : exemple de code (à continuer pour chaque type présent) :
  Dim C As Control
  For Each C In UserForm1.Controls
    Select Case TypeName(C)
      Case "TextBox"
        MsgBox C.Name
        C.Text = ""
      Case "ListBox"
        C.Clear
      'Case .... etc..
      
    End Select
  Next



____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Effacer toutes les données inscrites dans une userform

2 réponses

Votre réponse

Discussions similaires