<<  < |    Page 2 of 4    | >  >>

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

' Exporte les valeurs des différentes TextBox

' dans les cellules A1, A2, A3, etc..., lors

' de la validation par le bouton OK.

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

Private Sub cmdOK_Click()

     Dim i As Integer

     For Each Ctrl In Me.Controls

          If TypeOf Ctrl Is MSForms.TextBox Then

               i = i + 1

               Cells(i, 1 ) = Ctrl

          End If

     Next Ctrl

End Sub




<<  < |    Page 2 of 4    | >  >>