Regueiro
XLDnaute Impliqué
Bonsoir le Forum
Je cherche à appliquer sur certain Textbox la valeur numérique.
Voici mes codes
Modules de classes :
Le code dans mon USF
Le code fonctionne si je supprime la boucle i.
Pour info mes Textbox sont créer dynamiquement.
MErci de votre Aide
A+
Je cherche à appliquer sur certain Textbox la valeur numérique.
Voici mes codes
Modules de classes :
Code:
Public WithEvents TboxNum As MSForms.TextBox
Private Sub TboxNum_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 44
If InStr(TboxNum, ".") = 0 Then KeyAscii = 46 Else KeyAscii = 0
Case 46
If InStr(TboxNum, ".") > 0 Then KeyAscii = 0
Case Is < 48, Is > 57
MsgBox "Touche non autorisée !"
KeyAscii = 0
End Select
End Sub
Le code dans mon USF
Code:
Private Sub CB_RAZ_Click()
Dim Ctrl As Control
Dim k As Byte
For Each Ctrl In Me.Controls
Select Case TypeName(Ctrl)
Case "TextBox"
Ctrl.Value = ""
End Select
Next Ctrl
Me.Controls("Textbox100").SetFocus
'Boucle sur les TextBox jq 105,102 a été supprimer par le Combobox
' Récupère les zones de texte à formater en décimales ("." ou "," comme séparateurs)
For Each i In Array(101, 103, 104, 105)
For Each Ctrl In Me.Frame1.Controls
If TypeName(Ctrl) = ("TextBox" & i) Then
ReDim Preserve TBNum(k)
Set TBNum(k).TboxNum = Ctrl
k = k + 1
End If
Next Ctrl
Next i
End Sub
Pour info mes Textbox sont créer dynamiquement.
MErci de votre Aide
A+