savesetting et getsetting

Version imprimable

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:

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") '...

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

Code:

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

05/11/2007, 13h38
ouskel'n'or

Citation:

Envoyé par jfontaine

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:

If TypeOf Cont Is MSForms.OptionButton Then