alimenter une feuille excel par une textbox

[khephrens]

bonjour

dans l'exemple ci joint j'alimente les cellules a1, a2, a3, c'est a dire verticalement au moyen de textbox via un formulaire.

j'aimerais alimenter les cellules a1,b1,c1 etc c'est a dire horizontalement.. il y a une astuce surement. mais je ne trouve pas je suis novice je précise..
merci bcp

 

[Staple1600]

Re : alimenter une feuille excel par une textbox

Bonsoir à tous

khephrens
Il suffit de bouger le i
Private Sub CommandButton1_Click()

Dim i As Integer
For i = i + 1 To 3
Cells(1, i) = Me.Controls("textbox" & i)
Next i
End Sub

EDITON: Pour varier les plaisirs, je l'écrirai comme ci-dessous

Private Sub CommandButton1_Click()
Dim t(2): t(0) = TextBox1: t(1) = TextBox2: t(2) = TextBox3
[A1].Resize(, UBound(t) + 1) = t
End Sub

 

[khephrens]

Re : alimenter une feuille excel par une textbox

merci staple .génial
dis moi pourquoi l'écrirais tu autrement .. est ce plus efficace?