Sauvegarder modification userform

fouc · 6 Mai 2009

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 · 6 Mai 2009

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 · 6 Mai 2009

Re : Sauvegarder modification userform

PascalXLD à dit:
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 · 6 Mai 2009

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 · 7 Mai 2009

Re : Sauvegarder modification userform

Bonjour Fouc, Pascal

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

dans un module standard, une variable public :

Code:

Option Explicit
Public c As Long

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

Code:

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 :

Code:

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.
@+

Sauvegarder modification userform

fouc

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

fouc

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pièces jointes

Discussions similaires