Etienne2323
XLDnaute Impliqué
Bonjour à tous,
je travaille actuellement avec un userform contenant une centaine de textbox. J'utilise les 4 macros suivantes pour chacun des textbox.
Les mêmes 4 macros sont ensuite répétées pour le Textbox26, ensuite le TextBox27, et ainsi de suite jusqu'à TextBox124.
J'aimerais savoir s'il existe une manière d'énumérer le nom de chacun des textbox dans un array par exemple (ou n'importe quelle autre possibilité) afin de ne pas être obligé de répéter 100 fois les mêmes codes en ne changeant que les numéros des textbox.
J'espère avoir été clair,
Merci d'avance,
Cordialement,
Étienne
je travaille actuellement avec un userform contenant une centaine de textbox. J'utilise les 4 macros suivantes pour chacun des textbox.
VB:
Private Sub TextBox25_AfterUpdate()
TextBox25.Value = Format(CDbl(TextBox25.Value / 100), "0.0%")
Call Total2
End Sub
Private Sub TextBox25_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox25.SetFocus
Me.TextBox25.SelStart = 0
Me.TextBox25.SelLength = Len(Me.TextBox25)
End Sub
Private Sub TextBox25_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox25.SetFocus
Me.TextBox25.SelStart = 0
Me.TextBox25.SelLength = Len(Me.TextBox25)
End Sub
Private Sub TextBox25_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(Point) Then
If InStr(TextBox25, Virgule) = 0 Then
KeyAscii = Asc(Virgule)
Else
KeyAscii = 0
End If
ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
ElseIf InStr(TextBox25, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
KeyAscii = 0
End If
If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
End Sub
Les mêmes 4 macros sont ensuite répétées pour le Textbox26, ensuite le TextBox27, et ainsi de suite jusqu'à TextBox124.
J'aimerais savoir s'il existe une manière d'énumérer le nom de chacun des textbox dans un array par exemple (ou n'importe quelle autre possibilité) afin de ne pas être obligé de répéter 100 fois les mêmes codes en ne changeant que les numéros des textbox.
J'espère avoir été clair,
Merci d'avance,
Cordialement,
Étienne