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?
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
 [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 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
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:
 [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
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
 [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 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
ce qui correspond à un entier long mais c'est à mettre où et à quoi correspond cells(lig,4)?
LSteph
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)?
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)?
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)?
Pierre52
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)?
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)?
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)?
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)?
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)?
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)?
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)?
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)?
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)?
Pierre52
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
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
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
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)?
