Combo et Textbox

Le
Pascal
Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 5).Value = CboHor


La première textBox est une date et me renvoie une valeur d'erreur (Date
avec année a 2 chiffres)
La seconde textBox est une quantité et me renvoie une valeur d'erreur aussi
(Nombre stocké sous forme de texte)

Comment je peux faire
Merci
Pascal







Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000733-2, 14/04/2007
Analyse le : 15/04/2007 10:39:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLuc
Le #4446421
*Bonjour Pascal*,

ActiveCell.Offset(0, 0) = CDate(TextBox1)
ActiveCell.Offset(0, 4).Value = Val(TextBox2)

Devrait convenir, dis nous




Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 5).Value = CboHor


La première textBox est une date et me renvoie une valeur d'erreur (Date avec
année a 2 chiffres)
La seconde textBox est une quantité et me renvoie une valeur d'erreur aussi
(Nombre stocké sous forme de texte)

Comment je peux faire
Merci
Pascal






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000733-2, 14/04/2007
Analyse le : 15/04/2007 10:39:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Pascal
Le #4446381
Merci
J'ai trouvé avec:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
Pascal
"JLuc"
*Bonjour Pascal*,

ActiveCell.Offset(0, 0) = CDate(TextBox1)
ActiveCell.Offset(0, 4).Value = Val(TextBox2)

Devrait convenir, dis nous




Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 5).Value = CboHor


La première textBox est une date et me renvoie une valeur d'erreur (Date
avec année a 2 chiffres)
La seconde textBox est une quantité et me renvoie une valeur d'erreur
aussi (Nombre stocké sous forme de texte)

Comment je peux faire
Merci
Pascal






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000733-2, 14/04/2007
Analyse le : 15/04/2007 10:39:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000733-2, 14/04/2007
Analyse le : 15/04/2007 12:34:19
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000733-2, 14/04/2007
Analyse le : 15/04/2007 12:35:23
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Publicité
Poster une réponse
Anonyme