supprimer un type de contrôle dans USF

Option Explicit

Private Sub CommandButton1_Click()
Dim Tableau() As String
Dim i As Byte, T As Byte, L As Byte
Dim TextBoxing As Variant

Tableau = Split(Range('A1'), ';')
    For i = 0 To 10
        Set TextBoxing = Me.Controls.Add('Forms.TextBox.1')
            L = 10
                With TextBoxing
                .Left = L: .Top = T: .Width = 45: .Height = 15
                .Value = i
                .Tag = 'Toto'
                End With
            T = T + 15
    Next i
Set TextBoxing = Nothing
End Sub

Private Sub CommandButton2_Click()
Dim CTRL As Control
For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then
        If CTRL.Tag = 'Toto' Then
            CTRL.Visible = False
        End If
    End If
Next
End Sub

Cliquez pour agrandir...