userform

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses
Edit et comment faire pour queles datesdes combo et les nombresdes

textbox s'écrivent au format date et nombre et non au format texte

Bonjour,

[A65000].End(xlUp).Offset(1, 0) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 1) = Me.ComboBox2
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox3

ou

[A65000].End(xlUp).Offset(1, 0).Select
For i = 1 To 3
ActiveCell.Offset(0, i - 1) = Me("combobox" & i)
Next i

JB

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

Bonjour,
tu pourrais en avoir bien plus seul le 3 de For i = 1 to 3 à changer

Private Sub CommandButton1_Click()
dim i as byte, lig as long
lig=[A65536].End(xlUp) (2).row
For i = 1 to 3
Cells(lig,i)=Me.controls("ComboBox"&i)
next
End Sub

'lSteph

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

Merci beaucoup de cette réponse hyper rapide (13 minutes) un record pour moi
et comme d'hab c'est parfait
encore merci

Bonjour,

[A65000].End(xlUp).Offset(1, 0) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 1) = Me.ComboBox2
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox3

ou

[A65000].End(xlUp).Offset(1, 0).Select
For i = 1 To 3
ActiveCell.Offset(0, i - 1) = Me("combobox" & i)
Next i

JB

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

Merci beaucoup,
j'ai aussi des textbox
dans 2 des combo j'ai des dates mais elles arrivent sous forme de
nombre(39207 par ex. ce qui correspond bien à une date) au format texte
j'ai beau formater mes cellules, rien n'y change.pareil pour les nombres
des textbox qui se transforment en format texte .

Bonjour,
tu pourrais en avoir bien plus seul le 3 de For i = 1 to 3 à changer

Private Sub CommandButton1_Click()
dim i as byte, lig as long
lig=[A65536].End(xlUp) (2).row
For i = 1 to 3
Cells(lig,i)=Me.controls("ComboBox"&i)
next
End Sub

'lSteph

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

..de rien ce fut un plaisir!

Merci beaucoup de cette réponse hyper rapide (13 minutes) un record pour
moi
et comme d'hab c'est parfait
encore merci

Bonjour,

[A65000].End(xlUp).Offset(1, 0) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 1) = Me.ComboBox2
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox3

ou

[A65000].End(xlUp).Offset(1, 0).Select
For i = 1 To 3
ActiveCell.Offset(0, i - 1) = Me("combobox" & i)
Next i

JB

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

Re,
...oui tu peux mélanger pour la saisie à raison
des besoins mais on peut aussi uniformiser le type de contrôles
destinés à la restitution
et le cas échéant convertir la valeur à entrer ou adapter le format de
la cellule.

On peut aussi procèder au cas par cas comme ce que te proposait JB

Une boucle n'est utile que si tu as des contrôles assez nombreux
ensuite tu re-formate les un ou deux cas particulier,
Exemple un peu absurde :


Private Sub CommandButton1_Click()
Dim i As Byte, lig As Long
lig = [A65536].End(xlUp)(2).Row
For i = 1 To 15
On Error Resume Next
Cells(lig, i)= Me.Controls("ComboBox" & i)
Cells(lig, i + 15) = Me.Controls("TextBox" & i)
On Error GoTo 0
Next
Cells(lig, 3) = CLng(Cells(lig, 3))
Cells(lig, 17) = Format(Cells(lig, 17), "dd-mmm-yyyy")

End Sub


Cordialement.

lSteph

Merci beaucoup,
j'ai aussi des textbox
dans 2 des combo j'ai des dates mais elles arrivent sous forme de
nombre(39207 par ex. ce qui correspond bien à une date) au format texte
j'ai beau formater mes cellules, rien n'y change.pareil pour les nombres
des textbox qui se transforment en format texte .

Bonjour,
tu pourrais en avoir bien plus seul le 3 de For i = 1 to 3 à changer

Private Sub CommandButton1_Click()
dim i as byte, lig as long
lig=[A65536].End(xlUp) (2).row
For i = 1 to 3
Cells(lig,i)=Me.controls("ComboBox"&i)
next
End Sub

'lSteph

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

Merci de ton aide
j'ai résolu le problème de date en utilisant u2 control calendar (je
sais pas pourquoi le dt picker ne fonctionne pas)
le problème reste des nombre en € ou des code postaux ou des numéros de
téléphone qui restent en texte malgré le formatage des cellules ou
colonnes dans mon cas

Re,
...oui tu peux mélanger pour la saisie à raison
des besoins mais on peut aussi uniformiser le type de contrôles
destinés à la restitution
et le cas échéant convertir la valeur à entrer ou adapter le format de
la cellule.

On peut aussi procèder au cas par cas comme ce que te proposait JB

Une boucle n'est utile que si tu as des contrôles assez nombreux
ensuite tu re-formate les un ou deux cas particulier,
Exemple un peu absurde :


Private Sub CommandButton1_Click()
Dim i As Byte, lig As Long
lig = [A65536].End(xlUp)(2).Row
For i = 1 To 15
On Error Resume Next
Cells(lig, i)= Me.Controls("ComboBox" & i)
Cells(lig, i + 15) = Me.Controls("TextBox" & i)
On Error GoTo 0
Next
Cells(lig, 3) = CLng(Cells(lig, 3))
Cells(lig, 17) = Format(Cells(lig, 17), "dd-mmm-yyyy")

End Sub


Cordialement.

lSteph

Merci beaucoup,
j'ai aussi des textbox
dans 2 des combo j'ai des dates mais elles arrivent sous forme de
nombre(39207 par ex. ce qui correspond bien à une date) au format
texte j'ai beau formater mes cellules, rien n'y change.pareil pour les
nombres des textbox qui se transforment en format texte .

Bonjour,
tu pourrais en avoir bien plus seul le 3 de For i = 1 to 3 à changer

Private Sub CommandButton1_Click()
dim i as byte, lig as long
lig=[A65536].End(xlUp) (2).row
For i = 1 to 3
Cells(lig,i)=Me.controls("ComboBox"&i)
next
End Sub

'lSteph

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses

Pour les dates:

http://cjoint.com/?hkvPybYhcu

Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(Me.ComboBox1, "dd/mm/yy")
End Sub

Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
For i = 1 To 5
If IsDate(Me("combobox" & i)) Then
ActiveCell.Offset(0, i - 1) = CDate(Me("combobox" & i))
Else
ActiveCell.Offset(0, i - 1) = Me("combobox" & i)
End If
Next i
End Sub

JB

On 10 juil, 19:02, Pierre52 <pierr...@tiscali.fr> wrote:

Merci beaucoup de cette réponse hyper rapide (13 minutes) un record pou r moi
et comme d'hab c'est parfait
encore merci

Bonjour,

[A65000].End(xlUp).Offset(1, 0) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 1) = Me.ComboBox2
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox3

ou

[A65000].End(xlUp).Offset(1, 0).Select
For i = 1 To 3
ActiveCell.Offset(0, i - 1) = Me("combobox" & i)
Next i

JB

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses- Masquer le texte des messages préc édents -

- Afficher le texte des messages précédents -

Si le format y est déjà, faut savir qu'un textbox c'est en texte
essaie par exemple

Cells(lig,4)=Clng(Textbox2)

Merci de ton aide
j'ai résolu le problème de date en utilisant u2 control calendar (je
sais pas pourquoi le dt picker ne fonctionne pas)
le problème reste des nombre en € ou des code postaux ou des numéros de
téléphone qui restent en texte malgré le formatage des cellules ou
colonnes dans mon cas

Re,
...oui tu peux mélanger pour la saisie à raison
des besoins mais on peut aussi uniformiser le type de contrôles
destinés à la restitution
et le cas échéant convertir la valeur à entrer ou adapter le format de
la cellule.

On peut aussi procèder au cas par cas comme ce que te proposait JB

Une boucle n'est utile que si tu as des contrôles assez nombreux
ensuite tu re-formate les un ou deux cas particulier,
Exemple un peu absurde :


Private Sub CommandButton1_Click()
Dim i As Byte, lig As Long
lig = [A65536].End(xlUp)(2).Row
For i = 1 To 15
On Error Resume Next
Cells(lig, i)= Me.Controls("ComboBox" & i)
Cells(lig, i + 15) = Me.Controls("TextBox" & i)
On Error GoTo 0
Next
Cells(lig, 3) = CLng(Cells(lig, 3))
Cells(lig, 17) = Format(Cells(lig, 17), "dd-mmm-yyyy")

End Sub


Cordialement.

lSteph

Merci beaucoup,
j'ai aussi des textbox
dans 2 des combo j'ai des dates mais elles arrivent sous forme de
nombre(39207 par ex. ce qui correspond bien à une date) au format
texte j'ai beau formater mes cellules, rien n'y change.pareil pour
les nombres des textbox qui se transforment en format texte .

Bonjour,
tu pourrais en avoir bien plus seul le 3 de For i = 1 to 3 à changer

Private Sub CommandButton1_Click()
dim i as byte, lig as long
lig=[A65536].End(xlUp) (2).row
For i = 1 to 3
Cells(lig,i)=Me.controls("ComboBox"&i)
next
End Sub

'lSteph

On 10 juil, 18:29, Pierre52 <pierr...@tiscali.fr> wrote:

Bonsoir à toutes et tous,

j'ai un user form avec 3combobox et plusieurs textbox.
comment mettre tout ça dans la dernière ligne vide de ma feuille?
j'ai fais ça pour 1 seul combobox

Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0).Select
With Selection.Value = ComboBox1
End With
End Sub

n'y aurait t'il pas un moyen de tout s'écrive d'un coup?

merci beaucoup de vos réponses