Sauvegarder modification userform

[fouc]

Bonjour,

Je cherche à sauvegarder les modifications faites sur un userform.

En effet, sur mes userform, lorsque je coche une case, cela change la couleur d'une listbox et je voudrais conserver ce changement pour que lorsque j'ouvrirais de nouveau ce userform la listbox soit toujours modifiée...

J'ai trouvé ca mais j'arrive pas à l'appliquer à mon cas:
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

Merci pour votre aide.

 

[PascalXLD]

Re : Sauvegarder modification userform

Bonjour

Je pense que le plus simple serait d'avoir une feuille cachée pour tes paramètres qui permettrait de t'y référer pour l'initialisation de ta listbox

 

[fouc]

Re : Sauvegarder modification userform

Bonjour

Je pense que le plus simple serait d'avoir une feuille cachée pour tes paramètres qui permettrait de t'y référer pour l'initialisation de ta listbox

Salut, tu veux dire que je devrais sauvegarder la valeur de la listbox sur une feuille et d'y faire appel lors de l'ouverture de la userbox?

 

[PascalXLD]

Re : Sauvegarder modification userform

Re

En fait c'est l'idée
La valeur de ta listbox doit être gardée quelque part
De même pour la couleur

Ensuite tu remplis ta listbox en suivant ce tuto
https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/

 

[Pierrot93]

Re : Sauvegarder modification userform

Bonjour Fouc, Pascal

une autre piste peut être, le mode "designer" :

dans un module standard, une variable public :

Option Explicit
Public c As Long

dans le module de l'USF, valorisation de cette variable lors de la fermeture de l'USF :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
c = ListBox1.BackColor
End Sub

dans le module "thisworkbook", initialisation de la variable publuc lors de l'ouverture et enregistrement de la couleur lors de la sauvegarde :

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim u As Object
Set u = ThisWorkbook.VBProject.VBComponents("UserForm1")
u.Designer.Controls("ListBox1").BackColor = c
End Sub
Private Sub Workbook_Open()
c = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("ListBox1").BackColor
End Sub

ci joint fichier avec les codes.

bonne journée.
@+