Discussion :

[THCH66]

bonjour tout le monde ,
j'essaye de faire des boucles sur des TextBox_AfterUpdate() (dans mon SF j'ai 12 TextBox) mais je bloque
voici mon code simplifié
dans une classe Classe1

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public WithEvents ListeTextMontant As MSForms.TextBox
 
Private Sub ListeTextMontant_AfterUpdate()
 
ListeTextMontant = Format(ListeTextMontant.Value, "#,##0.000")
 
End Sub

dans mon USF

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
Dim Liste() As New Classe1
Private Sub UserForm_Initialize()
 
Dim Ctrl As Control
Dim I As Integer
 
For Each Ctrl In Me.Controls
   If TypeName(Ctrl) = "TextBox" Then
     I = I + 1
     ReDim Preserve Liste(1 To I)
     Set Liste(I).ListeTextMontant = Ctrl
   End If
   Next Ctrl
   Set Ctrl = Nothing
End Sub

alors est ce qu'il y a dépanneur pour me débloquer

merci d'avance

[Belga16]

Où est-ce que ça bloque ?

[Pierre Fauconnier]

Salut.

Je vois deux problèmes:
1. A aucun moment tu ne passes le textbox à l'objet de la classe 1;
2. Un textbox géré de cette manière ne gère pas l'évènement AfterUpdate.

Pour ce qui est de la mécanique:

Voici le code de la classe (que j'ai renommée TboWithEvents):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private WithEvents mTbo As MSForms.TextBox
 
Private Sub mtbo_Change()
  MsgBox "Gagné"
End Sub
 
Sub Add(tbo As MSForms.TextBox)
  Set mTbo = tbo
End Sub

Et voici le code du UserForm:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private tbos() As TboWithEvents
 
Private Sub UserForm_Initialize()
  Dim i As Long
  Dim tbo As TboWithEvents
 
  For i = 1 To 6
    Set tbo = New TboWithEvents
    tbo.Add Controls("textbox" & i)
    ReDim Preserve tbos(1 To i)
    Set tbos(i) = tbo
  Next i
End Sub

Bien sûr, on peut boucler autrement sur les textbox ou autres contrôles et utiliser par exemple les tags pour identifier les contrôles à charger dans le tableau. Utiliser des noms tels que TextBox1 comme je l'ai fait dans l'exemple n'est pas une bonne idée et est utilisée ici par raccourci, l'objectif étant de montrer comment gérer dynamiquement les évènements des contrôles.