Bonsoir.
J'utilise un Userform composé de 13 Textbox. Je souhaite que ma première Texbox soit alimentée à l'ouverture de l'userform par une des cellules de la colonne "c".
Mon code commence toujours à la "A" même si je change la valeur de i. Comment puis je faire svp pour commencer à la colonne "c"?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
Dim hWnd As Long
Dim lig As String
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
' Chargement des valeurs de la Feuil1 dans les TextBox et les ComboBox
With Sheets("BASE")
lig = ActiveCell.Row
    For i = 1 To 13 ' boucle sur les contrôles
        If (i = 1 Or i = 2 Or i = 3 Or i = 4 Or i = 5 Or i = 6 Or i = 7 Or i = 8 Or i = 9 Or i = 10 Or i = 11 Or i = 12 Or i = 13) And .Cells(lig, i) <> "" Then
        Me.Controls("TextBox" & i) = .Cells(lig, i)
        End If
    Next i
End With
End Sub