Bonjour tout le monde,
Voici le code dans mon UserForm :
Le code dans le module de classe :
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
19
20
21
22
23
24
25
26
27
28
29
30 Dim Txt() As New Classe1 Private WithEvents Cls As Classe1 Private Sub UserForm_Initialize() Dim Ctrl As Control Dim I As Integer Set Cls = New Classe1 For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then I = I + 1 ReDim Preserve Txt(1 To I) Set Txt(I).GroupeTxt = Ctrl End If Next Ctrl End Sub Private Sub Cls_ValeurChange(Valeur As String) Label1.Caption = Valeur End Sub
Au changement de la valeur dans un des TextBox, on arrive bien dans "GroupeTxt_Change()" mais l'événement "ValeurChange()" n'est pas généré donc je pense que c'est parce que l'événement "GroupeTxt_Change()" n'est pas terminé qu'il ne produit pas "ValeurChange()" savez-vous si il est possible de contourner cela ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Public WithEvents GroupeTxt As MSForms.TextBox Public Event ValeurChange(Valeur As String) Private Sub GroupeTxt_Change() RaiseEvent ValeurChange(GroupeTxt.Text) End Sub
Bonne journée à vous toutes et tous !
Partager