alimenter une feuille excel par une textbox

khephrens · 7 Mai 2014

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 · 7 Mai 2014

Re : alimenter une feuille excel par une textbox

Bonsoir à tous

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

Code:

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

Code:

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 · 7 Mai 2014

Re : alimenter une feuille excel par une textbox

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

alimenter une feuille excel par une textbox

khephrens

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

khephrens

XLDnaute Occasionnel

Discussions similaires