userform

Traitement dates et nombres:

Pour les €, formatter la colonne dans le tableur.

http://cjoint.com/?hkv6GCGCbz

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
If IsNumeric(Me("combobox" & i)) Then
ActiveCell.Offset(0, i - 1) = CDbl(Me("combobox" & i))
Else
ActiveCell.Offset(0, i - 1) = Me("combobox" & i)
End If
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 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 feu ille?
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 -

Cells(lig,4)=Clng(Textbox2)

ce qui correspond à un entier long mais c'est à mettre où et à quoi
correspond cells(lig,4)?

ce qui correspond à un entier long

oui!

Cells(lig,4)=Clng(Textbox2)

C'est un exemple! ce peut être Cells(lig,i)
ou Cells(24,2513)
peu importe c'est pour répondre à ton souci:

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

Cells(lig,4)=Clng(Textbox2)

ce qui correspond à un entier long mais c'est à mettre où et à quoi
correspond cells(lig,4)?

Là je comprends pas tout.
en fait c'est pour les textbox5 et 8 du code suivant:

Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0) = Me.TextBox13
If Controls("Textbox13") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre nom !", vbExclamation, _
"ERREUR ... votre prénom SVP !"
Controls("Textbox13").SetFocus
Exit Sub
End If
[A65000].End(xlUp).Offset(0, 1) = Me.TextBox14
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 3) = Me.TextBox3
[A65000].End(xlUp).Offset(0, 4) = Me.TextBox4
[A65000].End(xlUp).Offset(0, 5) = Me.TextBox5
[A65000].End(xlUp).Offset(0, 6) = Me.TextBox6
[A65000].End(xlUp).Offset(0, 7) = Me.Calendar1
[A65000].End(xlUp).Offset(0, 8) = Me.Calendar2
[A65000].End(xlUp).Offset(0, 9) = Me.TextBox7
[A65000].End(xlUp).Offset(0, 10) = Me.TextBox8
End Sub

où textbox5 est u code postal et textbox8 des numéro de téléphone

encore merci de t'occuper de mon cas et merci aussi à JB

ce qui correspond à un entier long

oui!

Cells(lig,4)=Clng(Textbox2)

C'est un exemple! ce peut être Cells(lig,i)
ou Cells(24,2513)
peu importe c'est pour répondre à ton souci:

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

Cells(lig,4)=Clng(Textbox2)

ce qui correspond à un entier long mais c'est à mettre où et à quoi
correspond cells(lig,4)?

...
end if
With [A65536].End(xlUp)
.Offset(0, 1) = Me.TextBox14
.Offset(0, 2) = Me.ComboBox1
.Offset(0, 3) = clng(Me.TextBox3)
.offset(0,3).NumberFormat = "00000"
.Offset(0, 4) = Me.TextBox4
.Offset(0, 6) = Me.TextBox6
.Offset(0, 7) = Me.Calendar1
.Offset(0, 8) = Me.Calendar2
.Offset(0, 9) = Me.TextBox7
.Offset(0, 10) = clng(Me.TextBox8)
.offset(0, 10).NumberFormat = "00 00 00 00 00"
End with
...

Là je comprends pas tout.
en fait c'est pour les textbox5 et 8 du code suivant:

Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0) = Me.TextBox13
If Controls("Textbox13") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre nom !", vbExclamation, _
"ERREUR ... votre prénom SVP !"
Controls("Textbox13").SetFocus
Exit Sub
End If
[A65000].End(xlUp).Offset(0, 1) = Me.TextBox14
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 3) = Me.TextBox3
[A65000].End(xlUp).Offset(0, 4) = Me.TextBox4
[A65000].End(xlUp).Offset(0, 5) = Me.TextBox5
[A65000].End(xlUp).Offset(0, 6) = Me.TextBox6
[A65000].End(xlUp).Offset(0, 7) = Me.Calendar1
[A65000].End(xlUp).Offset(0, 8) = Me.Calendar2
[A65000].End(xlUp).Offset(0, 9) = Me.TextBox7
[A65000].End(xlUp).Offset(0, 10) = Me.TextBox8
End Sub

où textbox5 est u code postal et textbox8 des numéro de téléphone

encore merci de t'occuper de mon cas et merci aussi à JB

ce qui correspond à un entier long

oui!

Cells(lig,4)=Clng(Textbox2)

C'est un exemple! ce peut être Cells(lig,i)
ou Cells(24,2513)
peu importe c'est pour répondre à ton souci:

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

Cells(lig,4)=Clng(Textbox2)

ce qui correspond à un entier long mais c'est à mettre où et à quoi
correspond cells(lig,4)?

AAAhhh , Okayyyyy

merci beaucoup je prts a taf et je teste ce soir

encore merci

...
end if
With [A65536].End(xlUp)
.Offset(0, 1) = Me.TextBox14
.Offset(0, 2) = Me.ComboBox1
.Offset(0, 3) = clng(Me.TextBox3)
.offset(0,3).NumberFormat = "00000"
.Offset(0, 4) = Me.TextBox4
.Offset(0, 6) = Me.TextBox6
.Offset(0, 7) = Me.Calendar1
.Offset(0, 8) = Me.Calendar2
.Offset(0, 9) = Me.TextBox7
.Offset(0, 10) = clng(Me.TextBox8)
.offset(0, 10).NumberFormat = "00 00 00 00 00"
End with
...

Là je comprends pas tout.
en fait c'est pour les textbox5 et 8 du code suivant:

Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0) = Me.TextBox13
If Controls("Textbox13") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre nom !", vbExclamation, _
"ERREUR ... votre prénom SVP !"
Controls("Textbox13").SetFocus
Exit Sub
End If
[A65000].End(xlUp).Offset(0, 1) = Me.TextBox14
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 3) = Me.TextBox3
[A65000].End(xlUp).Offset(0, 4) = Me.TextBox4
[A65000].End(xlUp).Offset(0, 5) = Me.TextBox5
[A65000].End(xlUp).Offset(0, 6) = Me.TextBox6
[A65000].End(xlUp).Offset(0, 7) = Me.Calendar1
[A65000].End(xlUp).Offset(0, 8) = Me.Calendar2
[A65000].End(xlUp).Offset(0, 9) = Me.TextBox7
[A65000].End(xlUp).Offset(0, 10) = Me.TextBox8
End Sub

où textbox5 est u code postal et textbox8 des numéro de téléphone

encore merci de t'occuper de mon cas et merci aussi à JB

ce qui correspond à un entier long

oui!

Cells(lig,4)=Clng(Textbox2)

C'est un exemple! ce peut être Cells(lig,i)
ou Cells(24,2513)
peu importe c'est pour répondre à ton souci:

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

Cells(lig,4)=Clng(Textbox2)

ce qui correspond à un entier long mais c'est à mettre où et à quoi
correspond cells(lig,4)?

Parfait
je viens de tster et à part une petite erreur de textbox où j'ai adapté
c'est nickel
encore merci
je repasserai bientot car j'ai d'autres choses sur lequelles je cale
mais j'ai pas encore approfondi.
encore merci de ton aide et de celle de JB

...
end if
With [A65536].End(xlUp)
.Offset(0, 1) = Me.TextBox14
.Offset(0, 2) = Me.ComboBox1
.Offset(0, 3) = clng(Me.TextBox3)
.offset(0,3).NumberFormat = "00000"
.Offset(0, 4) = Me.TextBox4
.Offset(0, 6) = Me.TextBox6
.Offset(0, 7) = Me.Calendar1
.Offset(0, 8) = Me.Calendar2
.Offset(0, 9) = Me.TextBox7
.Offset(0, 10) = clng(Me.TextBox8)
.offset(0, 10).NumberFormat = "00 00 00 00 00"
End with
...

Là je comprends pas tout.
en fait c'est pour les textbox5 et 8 du code suivant:

Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0) = Me.TextBox13
If Controls("Textbox13") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre nom !", vbExclamation, _
"ERREUR ... votre prénom SVP !"
Controls("Textbox13").SetFocus
Exit Sub
End If
[A65000].End(xlUp).Offset(0, 1) = Me.TextBox14
[A65000].End(xlUp).Offset(0, 2) = Me.ComboBox1
[A65000].End(xlUp).Offset(0, 3) = Me.TextBox3
[A65000].End(xlUp).Offset(0, 4) = Me.TextBox4
[A65000].End(xlUp).Offset(0, 5) = Me.TextBox5
[A65000].End(xlUp).Offset(0, 6) = Me.TextBox6
[A65000].End(xlUp).Offset(0, 7) = Me.Calendar1
[A65000].End(xlUp).Offset(0, 8) = Me.Calendar2
[A65000].End(xlUp).Offset(0, 9) = Me.TextBox7
[A65000].End(xlUp).Offset(0, 10) = Me.TextBox8
End Sub

où textbox5 est u code postal et textbox8 des numéro de téléphone

encore merci de t'occuper de mon cas et merci aussi à JB

ce qui correspond à un entier long

oui!

Cells(lig,4)=Clng(Textbox2)

C'est un exemple! ce peut être Cells(lig,i)
ou Cells(24,2513)
peu importe c'est pour répondre à ton souci:

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

Cells(lig,4)=Clng(Textbox2)

ce qui correspond à un entier long mais c'est à mettre où et à quoi
correspond cells(lig,4)?