Comment conserver les modifications faites sur un UserForm

Version imprimable

17/09/2016, 23h02
TSAFACK-M

Comment conserver les modifications faites sur un UserForm
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:

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.
17/09/2016, 23h23
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.
18/09/2016, 00h31
kiki29

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

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:

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

18/09/2016, 11h14
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.
18/09/2016, 11h57
patricktoulon

re

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!
18/09/2016, 16h41
Theze

Bonjour as tous,

Merci Patrick :D

Bonjour à tous

oui il est possible de sauvegarder une modification sur un userform
voici comment

Créer un userform nomé UserForm1.
Placer un bouton nomé CommandButton1
ajouter la référence Microsoft Visual Basic for Applications Extensibility 5.3

insérer ce code dans un module

Code:

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
Sub test()
 
'******************************************************************
'NOTE: Vous devez définir une référence
'Microsoft Visual Basic for Applications Extensibility 5.3
'******************************************************************
 
    Dim Mon_User_Form As Object
    Dim Nom_de_la_Form As String
    Dim Button_a_Modifier As MSForms.CommandButton
 
 
 
    Application.VBE.MainWindow.Visible = False
    Application.ScreenUpdating = False
 
    Nom_de_la_Form = "UserForm1"
 
    Set Mon_User_Form = ThisWorkbook.VBProject.VBComponents(Nom_de_la_Form)
 
    'Set nouvelle propriete de la userform
    With Mon_User_Form
        .Properties("Caption") = "Bonjour"
        .Properties("Width") = 200
        .Properties("Height") = 100
    End With
 
    'Modifier le caption du bouton choisi
    Set Button_a_Modifier = Mon_User_Form.Designer.Controls("CommandButton1")
    With Button_a_Modifier
        .Caption = "Je suis modifié"
        .Left = 60
        .Top = 40
        .BackColor = vbGreen
    End With
 
    MsgBox "Fin"
 
End Sub

démarrer ce macro
ensuite aller voir le userform1

18/09/2016, 22h20
TSAFACK-M

Salut a vous !

Merci infiniment pour toutes vos contributions assez prompt et pertinentes.
j'ai trouver la solution du Nom caché dans le classeur et celle de gnain
assez simple et pratique ça répond nettement a mon cas et
ça marche parfaitement. lorsque j'exécute le code, les paramétrés sont
bien appliquées a l'ouverture du userform. par contre la
solution du fichier ' ini ' un peu complexe pour un début.

merci encore pour votre apport.:P

Cordialement:merci::chin:
18/09/2016, 22h36
patricktoulon

re

re
attention il y a méprise!!!!!

la solution de theze sera vraiment effective que si tu sauvegarde le classeur après modification sinon les modifs seront perdu après fermeture et réouverture du classeur

et je ne comprends pas bien la démarche de gnain
avant ouverture de l'userform on peut faire
exemple

Code:

nom_userform.controls("toto").backcolor=vbred

ce qui fait exactement la même chose mais la non il n'y aura pas possibilité de sauvegarder comme avec la solution de gnain

la solution de theze reste la plus appropriée et la plus propre

Citation:

Envoyé par 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.

dans le même genre on peut utiliser CustomDocumentProperties
Code:

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

19/09/2016, 21h15
patricktoulon

RE

BIEN VU OLIV AUSSI :plusser:

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