Public WithEvents TxtB As MSForms.TextBox
Public WithEvents check As MSForms.CheckBox
Dim cls() As New Select_PGM
Private Sub check_Change()
TxtB.Visible = check.Value
End Sub
Private Sub txtb_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9-,]" Then KeyAscii = 0
End Sub
Sub UserForm_Activate()
Dim index As Long, ctrl As Object, ok As Boolean
With Me
'classement jumelé
For Each ctrl In Me.Controls
nom = ctrl.Name
ok = ctrl.Name Like "Pneu_T*" Or ctrl.Name Like "Elec_T*"
If ok Then
Debug.Print ctrl.Name & " jumelé à " & .Controls(Replace(ctrl.Name, "T_", "")).Name 'voir dans le debug
ctrl.Visible = False
Set ch = .Controls(Replace(ctrl.Name, "T_", ""))
index = index + 1: ReDim Preserve cls(1 To index)
Set cls(index).TxtB = ctrl
Set cls(index).check = ch: ch.Value = False
End If
Next
End With
End Sub