Textbox valeur cellules

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:

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.

Code:

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim h As Integer
For h = 1 To 18
   Feuil1.Cells(Int((h - 1) / 6) + 1, h Mod 6) = Me.Controls("TextBox" & h)
Next h
End Sub

Salut Menhir,

Merci pour cette réponse,

Mais j'ai un message d'erreur "Erreur définit par l'objet ou par l'application",

De plus Je n'ai que le résultat de la première Txbox pleine et non les autres.

Code:

1 2 3 4 5 6 Private Sub CommandButton2_Click() Dim h As Integer For h = 1 To 18 Feuil1.Cells(Int((h - 1) / 6) + 1, ((h - 1) Mod 6) + 1).Value = Me.Controls("TextBox" & h) Next h End Sub
J'ai oublié que le Mod pouvait être égal à 0.
Cela dit, si l'erreur venait de là, VBA aurait sans doute parlé de mauvais indice.

C'est Super,

Merci beaucoup.