Suprimer des Text box dans USF

Private Sub UserForm_Initialize()
Dim i As Byte
Dim ctrl As Control
For i = 1 To Application.WorksheetFunction.CountA(Range('b3:b6'))
        For Each ctrl In Controls
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ctrl.Tag <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ctrl.Tag = i Then ctrl.Visible = True
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next ctrl
Next i

End Sub

Cliquez pour agrandir...