Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Envoyer dans la feuille les textbox de manière horizontale

Envoyer dans la feuille les textbox de manière horizontale

7 réponses
Avatar
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
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
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




Avatar
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
Avatar
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


Avatar
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




Avatar
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


Avatar
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







Avatar
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