Discussion :

[moniteur41]

bonjour à tous.
j'ai réussi a sauvegarder mes modification des optionbuttons avec la fonction savesetting et j'arrive à les relire avec getsetting.
Seulement voilà j'ai un multipage de 7 page qui contient 5 frames qui cintiennent chacune 5 optionbutton. Ce qui me fait 140 option de modif.
Existerait il pas une méthode pour sauvegarder les 140 elements et les relire lors de l'initailisation ?
merci de votre lecture.
bonne journée.

voici mon bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton6_Click()
 
'...
    SaveSetting "parametres", "Optionbutton13", "Valeur Optionbutton13", OptionButton13.Caption...
 
Private Sub UserForm_Initialize()
'...
'Récupère la valeur de la clé lors de l'ouverture du UserForm
'lecture dans HKEY_CURRENT_USER\Software\VB and VBA Program Settings
    OptionButton13.Caption = GetSetting("parametres", "OptionButton13", "Valeur OptionButton13")
 
'...

[jfontaine]

je n'ai pas testé ave le getsetting mais ca devrait être quelque chose comme ca

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
 
Private Sub UserForm_Initialize()
Dim Cont As Control
 
For Each Cont In Me.Controls
 
    If TypeOf Cont Is MSForms.OptionButton = True Then
 
        Cont.Object.Caption = GetSetting("parametres", Cont.Object.Name, Cont.Object.Value)
 
    End If
 
Next
 
End Sub

[ouskel'n'or]

If TypeOf Cont Is MSForms.OptionButton = True Then

N'y aurait-il pas un true de trop ? (c'est une question, pas testé...)
A+

Edit
Je veux dire : Est-ce que ça ne fonctionnerait pas avec

Code :

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

If TypeOf Cont Is MSForms.OptionButton Then