Envoyer dans la feuille les textbox de manière horizontale
7 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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
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
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
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
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
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" <didier.nova...@club-internet.fr>
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
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
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
Bonsoir Isabelle,
Le pb est que cela envoie les donnes n'importe comment dans la feuille.
Merci
Didier
"isabelle" <i@v> a écrit dans le message de news:
e4jXXw3%23HHA.5840@TK2MSFTNGP03.phx.gbl...
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
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
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" a écrit dans le message de news:
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
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" <gmLSteph@gmail.com> a écrit dans le message de news:
1190290878.681136.203610@r29g2000hsg.googlegroups.com...
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" <didier.nova...@club-internet.fr>
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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" <gmLSteph@gmail.com> a écrit dans le message de news:
1190290878.681136.203610@r29g2000hsg.googlegroups.com...
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" <didier.nova...@club-internet.fr>
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
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" a écrit dans le message de news:
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
Bonsoir LSteph, Je te remercie beaucoup encore une fois ! Très bonne journée Didier
"LSteph" a écrit dans le message de news: 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" a écrit dans le message de news:
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
Bonsoir LSteph,
Je te remercie beaucoup encore une fois !
Très bonne journée
Didier
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eZAQAh8%23HHA.3548@TK2MSFTNGP06.phx.gbl...
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" <gmLSteph@gmail.com> a écrit dans le message de news:
1190290878.681136.203610@r29g2000hsg.googlegroups.com...
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" <didier.nova...@club-internet.fr>
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
Bonsoir LSteph, Je te remercie beaucoup encore une fois ! Très bonne journée Didier
"LSteph" a écrit dans le message de news: 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" a écrit dans le message de news:
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