Discussion :

[ouskel'n'or]

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.

[Delbeke]

personnellement, je crerais une classe avec evenement

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
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 :

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

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

[ouskel'n'or]

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

[ouskel'n'or]

Sur cette ligne,

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+

[OhMonBato]

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 :

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

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

[Delbeke]

Ohmonbato a raison, désolé de cette imprecision

[RogerLapin]

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

[Delbeke]

Il serait opportun de flagger le post comme résolu

[zazaraignée]

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

Salut ouskel'