Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remettre tous les controles d'un UserForm aux valeurs par défaut

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pilote301152

XLDnaute Occasionnel
Bonjour,

Une fois différentes valeurs saisies dans un UF, je voudrais permettre à l'utilisateur d'effectuer de nouvelles entrées SANS quitter cet UF.
Comment puis-je faire à partir de l'affichage d'un UF remettre tous ses contrôles à leur valeur par défaut (identique à xxxx - Initialize) et ce afin de permettre une nouvelle saisie?

Merci de votre aide et bon WE à tous
 
Re : Remettre tous les controles d'un UserForm aux valeurs par défaut


Bonjour pilote301152,

Il te suffit de rappeler ta macro Initialize, ex :

Code:
Userform1_Initialize

Espérant avoir répondu.

Cordialement.
 
Re : Remettre tous les controles d'un UserForm aux valeurs par défaut

Bonjour Pilote et Papou.

Ou alors pour "vider" tous les contrôles :

Code:
Private Sub B_raz_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
 
Re : Remettre tous les controles d'un UserForm aux valeurs par défaut

merci PapouNet mais je ne veux pas quitter le UF actif !
En revanche la solution de Jean-Bernard est parfaite.

Merci à vous pour vos réponses et Bon WE
Jean-Luc
 
Re : Remettre tous les controles d'un UserForm aux valeurs par défaut

merci PapouNet mais je ne veux pas quitter le UF actif !
En revanche la solution de Jean-Bernard est parfaite.

Merci à vous pour vos réponses et Bon WE
Jean-Luc

Re: la solution que je t'ai proposée n'oblige pas de quitter ton USF : vois le fichier de démonstration ci-joint.

Un autre avantage est que si certains contrôles doivent contenir une valeur par défaut, ceux-ci seront rétablis à l'identique (avec une seule de code). Idem si tu ajoutes ou retires des contrôles, pas de code à modifier.

Cordialement.
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
409
Réponses
8
Affichages
1 K
M
Réponses
3
Affichages
2 K
MONADESIGN82
M
P
Réponses
16
Affichages
2 K
P
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…