Bonsoir
Je souhaite lorsque je fermez un UserForm, sauvegarder les paramètres d'un contrôle (par exemple le dernier contenu d'un TextBox) afin de réutiliser ces informations ultérieurement, lors de la prochaine ouverture de la boîte de dialogue.
J'ai utilisé l'instruction SaveSetting (Voir codes ci-dessous) pour sauvegarder les paramètres des contrôles (contenu, position ...) en créant une entrée dans la base de registres et ensuite d'utiliser GetSetting pour lire la valeur de la clé dans la base de registres.
Ce code fonctionne bien à l'ouverture et à la fermeture du classeur. Par contre, si je quitte Excel je perds les informations saisies. Comment sauvegarder les saisies effectuées dans l'userform.
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 'Sauvegarde le contenu des TextBox lors de la fermeture du UserForm Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Value SaveSetting "Mes parametres", "Textbox2", "Valeur TextBox2", TextBox2.Value End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 'Récupère la valeur de la clé lors de l'ouverture du UserForm Private Sub UserForm_Initialize() TextBox1.Value = GetSetting("Mes parametres", "TextBox1", "Valeur TextBox1") TextBox2.Value = GetSetting("Mes parametres", "TextBox2", "Valeur TextBox2") End Sub
Partager