<<  < |    Page 3 of 4    | >  >>

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

' Remplit les contrôles TextBox du formulaire

' avec les valeurs contenues dans les cellules A1, A2, etc...,

' lors de l'ouverture du formulaire.

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

Private Sub UserForm_Initialize()

     Dim i As Integer

     For Each Ctrl In Me.Controls

          If TypeOf Ctrl Is MSForms.TextBox Then

               i = i + 1

               Controls( "TextBox" & i).Value = Cells(i, 1 ).Value

          End If

     Next Ctrl

End Sub




<<  < |    Page 3 of 4    | >  >>