intitailiser totalement un userform

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 !

francois91

XLDnaute Occasionnel
Bonjours,
J'ai un probleme avec mon userform dans ma procédure je créer pas mal de chose dont 1 multipage.
Le probleme est qu'a chaque fois que je lance ma procédure un "Nouveau" multipage est créé ainsi que de nouveaux objet apparaissent.
Ce qui me pose probléme pour les noms de mes objets et de mon multipage(qui se répétent au second tour (en plus la mémoire se remplit vite du coup lol))

J ai donc mis la commande

For Each ctl In ThisUSF.Designer.Controls
ThisUSF.Designer.Controls.Remove ctl.name
Next ctl

mais ca marche 1 fois / 2 précisement (en locurrence la 1er(usf vide) , 3eme... fois)(message d'erreur: argument non valide🙁) je pense que ca vien des différents "trucs" que j ai ajouté a mon user form (voir declaration de variable)

mes variables sont

Dim ThisUSF As Object 'VBComponent
Dim Lbl, ctl, obj As Control
Dim tb As MSForms.TextBox
Dim sb As SpinButton
Dim cb As ComboBox
Dim btc As CommandButton
Dim cbr As Frame
Dim i, j, t As Integer

Si quelqu un pouvais m'expliquer comment vider entiérement mon userform au lancement de ma procedure qui est dans un module je pense que ca réglerait mon probleme
 
Dernière édition:
Re : intitailiser totalement un userform

Bonjour

Une piste

Pour éviter les messages d'erreurs il suffit de mettre On error resume next

et à la fin de la zone qui provoque une erreur On error goto 0

Pour vider un USF : unload Me

Il faut modifier cette ligne
Dim Lbl, ctl, obj As Control
Dim Lbl As Control, ctl As Control, obj As Control

jp
 
Dernière édition:
Re : intitailiser totalement un userform

Merci,
Pour le unload me je peux pas vraiment le placer (y faut le placer dans "Private Sub UserForm_Initialize" non??) et "unload UserForm3" ou "unload ThisUSF" ne marche pas non plus (message d'erreur: Impossible de charger ou de décharger cet objet)
 
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

Réponses
8
Affichages
2 K
Réponses
1
Affichages
2 K
Retour