Envoyer dans la feuille les textbox de manière horizontale

Le
Didier NOVARIN
Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en fait
essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4744371
bonjour Didier,

ta macro me semble correct, as tu un message d'erreur, qu'est ce qui ne va pas ?

isabelle


Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en fait
essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub




lSteph
Le #4744311
Bonjour Didier,

Private Sub CommandButton1_Click()
Dim i As Byte, last As Long
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For i = 1 To 5
Cells(last, 1 + i).FormulaLocal = Me.Controls("TextBox" & i).Value
Next i
End With
End Sub

'lSteph
lSteph
Le #4744251
Re,

je remets car le point avant cells n'est pas passé
au cas où il n'apparaisse toujours pas il y a bien un point
avant Cells ainsi: .Cells(last

'LSteph

Private Sub CommandButton1_Click()
Dim i As Byte, last As Long
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For i = 1 To 5
.Cells(last, 1 + i).FormulaLocal = Me.Controls("TextBox" & i).Value
Next i
End With
End Sub


On 19 sep, 18:28, "Didier NOVARIN" wrote:
Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en fait
essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub


Didier NOVARIN
Le #4743781
Bonsoir Isabelle,
Le pb est que cela envoie les donnes n'importe comment dans la feuille.
Merci
Didier

"isabelle" a écrit dans le message de news:
e4jXXw3%
bonjour Didier,

ta macro me semble correct, as tu un message d'erreur, qu'est ce qui ne va
pas ?

isabelle


Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en
fait essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub




Didier NOVARIN
Le #4743771
Bonsoir LSteph
Je te remercie beaucoup, mais le pb est que les textbox portent des noms
parfois différent, n'y-a-t'il pas la possibilité d'avoir la même chose
quelque soit les textbox ?
Je te remercie
Didier

"lSteph"
Re,

je remets car le point avant cells n'est pas passé
au cas où il n'apparaisse toujours pas il y a bien un point
avant Cells ainsi: .Cells(last

'LSteph

Private Sub CommandButton1_Click()
Dim i As Byte, last As Long
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For i = 1 To 5
.Cells(last, 1 + i).FormulaLocal = Me.Controls("TextBox" & i).Value
Next i
End With
End Sub


On 19 sep, 18:28, "Didier NOVARIN" wrote:
Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en
fait
essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub


LSteph
Le #4743751
Bonsoir,
compris:

Private Sub CommandButton1_Click()
Dim ctl As Control, last As Long, i As Byte
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
i = i + 1
.Cells(last, 1 + i).FormulaLocal = ctl.Value
End If
Next
End With
End Sub

'lSteph

Bonsoir LSteph
Je te remercie beaucoup, mais le pb est que les textbox portent des noms
parfois différent, n'y-a-t'il pas la possibilité d'avoir la même chose
quelque soit les textbox ?
Je te remercie
Didier

"lSteph"
Re,

je remets car le point avant cells n'est pas passé
au cas où il n'apparaisse toujours pas il y a bien un point
avant Cells ainsi: .Cells(last

'LSteph

Private Sub CommandButton1_Click()
Dim i As Byte, last As Long
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For i = 1 To 5
.Cells(last, 1 + i).FormulaLocal = Me.Controls("TextBox" & i).Value
Next i
End With
End Sub


On 19 sep, 18:28, "Didier NOVARIN" wrote:
Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en
fait
essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub







Didier NOVARIN
Le #4743171
Bonsoir LSteph,
Je te remercie beaucoup encore une fois !
Très bonne journée
Didier

"LSteph" eZAQAh8%
Bonsoir,
compris:

Private Sub CommandButton1_Click()
Dim ctl As Control, last As Long, i As Byte
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
i = i + 1
.Cells(last, 1 + i).FormulaLocal = ctl.Value
End If
Next
End With
End Sub

'lSteph

Bonsoir LSteph
Je te remercie beaucoup, mais le pb est que les textbox portent des noms
parfois différent, n'y-a-t'il pas la possibilité d'avoir la même chose
quelque soit les textbox ?
Je te remercie
Didier

"lSteph"
Re,

je remets car le point avant cells n'est pas passé
au cas où il n'apparaisse toujours pas il y a bien un point
avant Cells ainsi: .Cells(last

'LSteph

Private Sub CommandButton1_Click()
Dim i As Byte, last As Long
With Sheets("Liste")
last = .[b1000].End(xlUp)(2).Row
For i = 1 To 5
.Cells(last, 1 + i).FormulaLocal = Me.Controls("TextBox" & i).Value
Next i
End With
End Sub


On 19 sep, 18:28, "Didier NOVARIN" wrote:
Bonsoir,
Je souhaite faire la chose suivante :
Envoyer dans une autre feuille en même temps les items des textbox, en
fait
essayer une structure comme celle-ci
Je vous remercie
Didier

Private Sub CommandButton1_Click()
With Sheets("Liste")
Mavar = Sheets("Liste").Range("B1000").End(xlUp)(2).Value
.Range("B1000").End(xlUp)(2).Value = (TextBox1.Value)
.Range("C" & Range("B1000").End(xlUp)(2).Row) = (TextBox2.Value)
.Range("D" & Range("B1000").End(xlUp)(2).Row) = (TextBox3.Value)
.Range("E" & Range("B1000").End(xlUp)(2).Row) = (TextBox4.Value)
.Range("F" & Range("B1000").End(xlUp)(2).Row) = (TextBox5.Value)
End With
Unload Me
End Sub








Publicité
Poster une réponse
Anonyme