Vider la sauvegarde des paramètres d'un userform

Bonjour le Forum,

En adaptant le tutoriel de Silkyroad et une proposition de Jérôme sur

Cette discussion

J'ai trouvé le moyen de sauvegarder (en boucle car de nombreux contrôles), les paramètres d'un userform

Pour ceux que cela intéresserait :

Sauvegarde

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim ctrl As Control For Each ctrl In Me.Controls If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then SaveSetting "parametres", ctrl.Name, "param" & ctrl.TabIndex, ctrl.Value End If Next End Sub

---

Chargement si retour aux données saisies

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim ctrl As Control For Each ctrl In Me.Controls If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then ctrl.Value = GetSetting("parametres", ctrl.Name, "param" & ctrl.TabIndex) End If Next End Sub

---

J'aurais souhaité pouvoir vider la collection de "paramètres".

Pour cela (d'après Silkyroad), j'ai adapté:

Code:

---

1 2 3 4 5 6 7

Dim ctrl As Control For Each ctrl In monuserform.Controls If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then DeleteSetting "parametres", ctrl.Name End If Next monserform.Show

---

Le problème est que ce dernier code est sans effet. Les paramètres restent sauvés.

Par avance, Merci pour votre aide.

Bonjour MarcelG,

C'est normal puisque tu initialise ta form avant : "For Each ctrl In UserForm1.Controls" < oblige le chargement de la form, donc les valeurs sont récupérées avant d'être supprimées.
Il te faut faire :

Code:

---

1 2 3 4 5

'suppression du dossier DeleteSetting "parametres" 'création des dossiers si pas existants ">>> UserForm_Initialize()" UserForm1.Show

---

Hervé.

Bonsoir Hervé,

En effet.

Merci de cette indication. Le code est efficace.

Bonne soirée.