boucle sur des textbox_afterupdate

Version imprimable

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:

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:

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

02/05/2022, 05h33
Belga16

Où est-ce que ça bloque ?

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:

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:

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.