Discussion :

[manufer]

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.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manufer]

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.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[manufer]

C'est Super,

Merci beaucoup.