userform

Le
Pierre52
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pierre52
Le #4899871
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

JB
Le #4899831
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
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


lSteph
Le #4899821
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
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


Pierre52
Le #4899811
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
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






Pierre52
Le #4899641
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
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






LSteph
Le #4899621
..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
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








LSteph
Le #4618621
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
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








Pierre52
Le #4618571
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
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










JB
Le #4618551
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
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
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 -




LSteph
Le #4618531
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
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












Publicité
Poster une réponse
Anonyme