Bonjour tout le monde,

Voici le code dans mon UserForm :
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
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
 
Public WithEvents GroupeTxt As MSForms.TextBox
Public Event ValeurChange(Valeur As String)
 
Private Sub GroupeTxt_Change()
 
    RaiseEvent ValeurChange(GroupeTxt.Text)
 
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 ?

Bonne journée à vous toutes et tous !