Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Combo et Textbox

Combo et Textbox

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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

Avatar
Pascal
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" a écrit dans le message de news:

*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