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