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

[pilote301152]

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

 

[Papou-net]

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

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

Bonjour pilote301152,

Il te suffit de rappeler ta macro Initialize, ex :

Userform1_Initialize

Espérant avoir répondu.

Cordialement.

 

[13GIBE59]

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 :

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

 

[pilote301152]

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

 

[Papou-net]

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.