Intercepter un changement de valeur dans une variable pour exécuter une action.

Est-t-il possible de lancer une procédure à chaque changement de valeur d'une variable ? Si oui, quelle méthode utiliser pour intercepter cet événement ?
La solution simple consistant à tester un variable globale avant la ligne modifiant la variable est à écarter.
Merci de vos lumières.

personnellement, je crerais une classe avec evenement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Private mInternalValue As Variant 'copie locale Public Event Change() Public Property Let InternalValue(ByVal vData As Variant) mInternalValue = vData RaiseEvent Change End Property Public Property Set InternalValue(ByVal vData As Variant) Set mInternalValue = vData RaiseEvent Change End Property Public Property Get InternalValue() As Variant If IsObject(mInternalValue) Then Set InternalValue = mInternalValue Else InternalValue = mInternalValue End If End Property

---

Et dans la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Dim WithEvents mText As MaVariable   Private Sub Form_Load() '' End Sub   Private Sub mText_Change() MsgBox "La variable mText a changé" End Sub

---

Merci de ta réponse, Delbeke. C'est exactement ce que j'attendais sans savoir le réaliser. Je teste tout de suite.

Sur cette ligne,

Citation:

---

Dim WithEvents mText As MaVariable

---

j'ai le message "Type défini par l'utiisateur non défini.
Il ne manquerait pas un déclaration ?
A+

Tu dois mettre le code suivant dans ta feuille en supposant que tu as sauvegardé ton module de classe sous le nom Class1 évidemment. ;) Autnt dire que si tu sauvegarde ton module de classe sou sle nom "MaVariable", le code donné auparavant fonctionne parfaitement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Dim WithEvents mText As Class1   Private Sub Command1_Click() mText.InternalValue = 2 End Sub   Private Sub Form_Load() Set mText = New Class1 End Sub   Private Sub mText_Change() MsgBox "La variable mText a changé" End Sub

---

Ohmonbato a raison, désolé de cette imprecision :oops:

Bonjour Delbeke.
Je tiens à te remercier, car cette question me préocupait également.
Voila.
Merci donc.

Il serait opportun de flagger le post comme résolu :)

T'en fait pas, Delbeke, avec ouskel', on risque d'avoir la solution en long, en large et en travers en plus du :resolu: ;)

Salut ouskel'