Bonjour,

Alors voilà,

J'ai des textbox (par ajout dynamique)

Je souhaite que chaque valeur de chaque textbox soit placé dans une cellule de la colonne A à F.

Arrivé à la colonne F, elle passe à la ligne suivante mais toujours sur les mêmes colonnes.

Exemple: Txbox 1 = eee, Txbox 8 = GGG et Txbox 16 = 555

Alors je dois avoir A1 = eee, B2 = GGG et D3 = 555

Voilà mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton2_Click()
Dim h As Integer
Dim j As Integer
Dim i As Integer
 
        For h = 1 To 18
            For i = 1 To 60
                For j = 1 To 6
                Feuil1.Cells(i, j) = Me.Controls("TextBox" & h)
                Next j
            Next i
        Next h
End Sub
Si quelqu'un peut me dire ou corriger mon code svp, je bloque un peu.