<<  < |    Page 1 of 4    | >  >>

Document

' **************************************

' Met à blanc les différentes TextBox

' contenues dans le formulaire

' **************************************

Private Sub cmdOK_Click()

     Dim i As Integer

     For Each Ctrl In Me.Controls

          If TypeOf Ctrl Is MSForms.TextBox Then

               i = i + 1

               Ctrl.Value = ""

          End If

     Next Ctrl

End Sub




<<  < |    Page 1 of 4    | >  >>