Discussion :

[TSAFACK-M]

Salut à tous !

Je souhaiterais savoir s'il est possible de sauvegarder une modification sur un
UserForm. Pour la sauvegarde des valeurs des contrôles c'est possible.
Je veux construire une interface utilisateur personnalisable du moins au niveau des
couleurs du formulaire et de l'arrière plan des feuilles comme exemple
ce code permet de changer le BackColor du UserForm a chaque clique mais je
je voudrais que si l'utilisateur applique une couleur Vert Claire, qu'il puisse appuyer sur un
bouton pour sauvegarder ses modifications et que a la prochaine ouverture,
qu'il retrouve son interface personnalisée avec ce fond Vert Claire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CmbPersonaliserForm_Click()
    Red = Int(Rnd * 255)
    Green = Int(Rnd * 255)
    Blue = Int(Rnd * 255)
    UserForm1.BackColor = RGB(Red, Green, Blue)
End Sub

Merci D'avance de votre réponse


Cordialement.

[unparia]

Bonjour
Plusieurs possibilités, parmi lesquelles :
- en utilisant les fonctions Savesetting et Getsetting (à lire dans ton aide VBA où elles sont accompagnés d'un exemple)
- en enregistrant ces données dans un fichier texte et en les y récupérant pour les appliquer à l'ouverture de ton userform
- en enregistrant ces données sur une feuille de ton classeur et en les y récupérant à l'ouverture de ton userform.

[kiki29]

Salut, tu peux également utiliser les bons vieux fichiers *.ini. Ceci évitant d'aller encombrer la base de registre.

[Theze]

Bonjour,

Une autre possibilité, celle d'utiliser un Nom caché dans le classeur (ici, "CouleurFond"). A la première ouverture de la Form le nom n'existe pas, il sera créé. A la fermeture de la Form la valeur sera stockée dans le nom et à l'ouverture suivante la couleur de fond de la Form sera chargée. Tu peux créer autant de Noms que tu as besoin pour stocker tes différentes valeurs.
Attention, la valeur du Nom est sous la forme =49152 d'où l'utilisation de "Right()" pour supprimer le signe "=" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub UserForm_Initialize()
 
    Dim Nom As Name
 
    On Error Resume Next 'gère l'erreur de la non existance du nom
    Set Nom = ThisWorkbook.Names("CouleurFond")
 
    'si il existe...
    If Err.Number = 0 Then
 
        'la couleur de fond est définie pour la Form
        Me.BackColor = CLng(Right(Nom.Value, Len(Nom.Value) - 1))
 
    Else
 
        'le nom est créé et est invisible dans la boite "Gestionnaire de noms"
        ThisWorkbook.Names.Add "CouleurFond", Me.BackColor, False
 
    End If
 
    On Error GoTo 0
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    Dim Nom As Name
 
    On Error Resume Next
    Set Nom = ThisWorkbook.Names("CouleurFond")
 
    'stocke la valeur dans le nom
    If Err.Number = 0 Then
 
        Nom.Value = Me.BackColor
 
    End If
 
End Sub

[unparia]

Pour résumer :
- un userform perd à sa fermeture ses paramètres et variables modifiés en mode exécution
- il faut alors :
---- les stocker ailleurs. Cet "ailleurs" est à choisir selon ce qui te convient le mieux (plusieurs "ailleurs ont déjà été évoqués... on pourrait en ajouter d'autres, dont par exemple un fichier xml)
---- les extraire de cet "ailleurs" lors de l'ouverture du userform et les appliquer.

[patricktoulon]

bien vu theze
je n'y aurais jamais pensé sans utiliser une cellule sur un sheets en plus pour une transportabilité c'est sans équivalent
bravo pour l'astuce!

[Oliv-]

Bonjour,

Une autre possibilité, celle d'utiliser un Nom caché dans le classeur (ici, "CouleurFond"). A la première ouverture de la Form le nom n'existe pas, il sera créé. A la fermeture de la Form la valeur sera stockée dans le nom et à l'ouverture suivante la couleur de fond de la Form sera chargée. Tu peux créer autant de Noms que tu as besoin pour stocker tes différentes valeurs.

dans le même genre on peut utiliser CustomDocumentProperties

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    'Récupération de la valeur de la propriété personnalisée (Autoexec_done) du classeur dans la variable p
    Set p = ActiveWorkbook.CustomDocumentProperties("Autoexec_done")
 
    'Test si la valeur récupérée dans p est vide ou non : si oui, on rentre dans la condition, ce qui signifie alors que c'est la première fois que l'on ouvre le classeur.
    If p Is Nothing  Then
 
 
        'Affectation de la valeur "done" à la propriété personnalisée (Autoexec_done) du classeur
        Set p = ActiveWorkbook.CustomDocumentProperties.Add("Autoexec_done", False, msoPropertyTypeString, "done")
end if

[patricktoulon]

BIEN VU OLIV AUSSI

ON Y PENSE PAS A CES PETITES ASTUCES QUAND ON VEUT PAS UTILISER UN SHEETS DE MEMO