Discussion :

[david-lt]

Bonjour,
je travaille actuellement sur l'amélioration de macros VBA. Je souhaite ajouter du texte en fonction de la valeur d'une combobox, les fonctions GetSetting et SaveSetting sont appliqués sur cette combobox.

Voilà le code utilisé

Code :

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

ComboBox1.Value = GetSetting("Mes parametres", "ComboBox1", "Valeur ComboBox1")

puis dans une autre fonction

Code :

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

1
2
3
4
5
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Value
    SaveSetting "Mes parametres", "Textbox3", "Valeur TextBox3", TextBox3.Value
    SaveSetting "Mes parametres", "ComboBox1", "Valeur ComboBox1", ComboBox1.Value
End Sub

Comment puis-je faire pour récupérer la valeur de la combobox afin de l'utiliser comme condition ?

Les deux fonctions sont des fonctions Private Sub, cela a-t-il une influence sur l'utilisation de la valeur de la combobox dans un autre module ?

merci d'avance pour vos réponse

[patricktoulon]

Bonsoir
oui forcement ta variable qui recupere le gezt setting dois etre en public et dans un module standard
dans un module standard

Code :

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

1
2
 
public valeur

dans n'importe quel module

Code :

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

1
2
3
Sub regs()
SaveSetting "monprograme", "base1", "item1", "75"
End Sub

Code :

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

1
2
3
Sub readvaleur()
valeur=(GetSetting("monprograme", "base1", "item1"))
End Sub

mais entre nous je préfère l'Object wscript shell avec read ou write qui me permet de mémoriser dans le registre ou je veux et non pas que dans la section VBA