OVH Cloud OVH Cloud

date dans combobox

6 réponses
Avatar
rene.calvinhac
J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique RowSource:
Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je veux,
sauf que lorsque je fait la validation de mes saisies par un Command bouton
"validation des saisies" la date s'inscit sous format chiffre (38985) alors
que dans ma combobox apparaissait (25 sept 2006). Pourtant j'ai bien mis ma
colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-

6 réponses

Avatar
Michel Gaboly
Bonsoir,

Un ComboBox combine un TextBox et un ListBox. Comme avec un TextBox, une conversion est nécessaire pour récupérer une
valeur numérique et non du texte :

ActiveCell = CDate(ComboBox1)


J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique RowS ource:
Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je ve ux,
sauf que lorsque je fait la validation de mes saisies par un Command bo uton
"validation des saisies" la date s'inscit sous format chiffre (38985) a lors
que dans ma combobox apparaissait (25 sept 2006). Pourtant j'ai bien mi s ma
colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
isabelle
bonjour René,

x = Format(combobox1.value, "yyyy-mm-dd")

isabelle


J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique RowSource:
Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je veux,
sauf que lorsque je fait la validation de mes saisies par un Command bouton
"validation des saisies" la date s'inscit sous format chiffre (38985) alors
que dans ma combobox apparaissait (25 sept 2006). Pourtant j'ai bien mis ma
colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-




Avatar
rene.calvinhac
J'ai collé la ligne de commande dans ma combobox mais pas de résultat

Private Sub ComboBox1_Change()
x = Format(ComboBox1.Value, "yyyy-mm-dd")
End Sub

J'ai essayé aussi:
Private Sub ComboBox1_Change()
ActiveCell = CDate(ComboBox1)
End Sub

La date est toujours au format chiffre "38980"

"isabelle" a écrit dans le message de news:

bonjour René,

x = Format(combobox1.value, "yyyy-mm-dd")

isabelle


J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique RowSource:
Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je
veux, sauf que lorsque je fait la validation de mes saisies par un
Command bouton "validation des saisies" la date s'inscit sous format
chiffre (38985) alors que dans ma combobox apparaissait (25 sept 2006).
Pourtant j'ai bien mis ma colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-




Avatar
isabelle
bonjour René,

si tu essai la combinaison des deux réponses, est ce que c'est mieux ?

Private Sub ComboBox1_Change()
ActiveCell = Format(CDate(ComboBox1), "yyyy-mm-dd")
End Sub

isabelle


J'ai collé la ligne de commande dans ma combobox mais pas de résultat

Private Sub ComboBox1_Change()
x = Format(ComboBox1.Value, "yyyy-mm-dd")
End Sub

J'ai essayé aussi:
Private Sub ComboBox1_Change()
ActiveCell = CDate(ComboBox1)
End Sub

La date est toujours au format chiffre "38980"

"isabelle" a écrit dans le message de news:


bonjour René,

x = Format(combobox1.value, "yyyy-mm-dd")

isabelle



J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique RowSource:
Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je
veux, sauf que lorsque je fait la validation de mes saisies par un
Command bouton "validation des saisies" la date s'inscit sous format
chiffre (38985) alors que dans ma combobox apparaissait (25 sept 2006).
Pourtant j'ai bien mis ma colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-









Avatar
michdenis
Private Sub ComboBox1_Change()
With ActiveCell
.NumberFormat = "dd/MM/YY"
.Value = CDate(Me.TextBox1)
End With

End Sub




"rene.calvinhac" a écrit dans le message de news:
451aa0e7$0$25954$

J'ai collé la ligne de commande dans ma combobox mais pas de résultat

x = Format(ComboBox1.Value, "yyyy-mm-dd")
End Sub

J'ai essayé aussi:
Private Sub ComboBox1_Change()
ActiveCell = CDate(ComboBox1)
End Sub

La date est toujours au format chiffre "38980"

"isabelle" a écrit dans le message de news:

bonjour René,

x = Format(combobox1.value, "yyyy-mm-dd")

isabelle


J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique RowSource:
Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je
veux, sauf que lorsque je fait la validation de mes saisies par un
Command bouton "validation des saisies" la date s'inscit sous format
chiffre (38985) alors que dans ma combobox apparaissait (25 sept 2006).
Pourtant j'ai bien mis ma colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-




Avatar
rene.calvinhac
J'ai toujours le Pb avec la ligne de commande que tu m'as donné. Pourtant
lorsque je veut sélectionner dans ma liste les dates apparaissent mais une
fois la date sélectionnée le chiffre apparait.
Merci pour ton aide.


"isabelle" a écrit dans le message de news:
%
bonjour René,

si tu essai la combinaison des deux réponses, est ce que c'est mieux ?

Private Sub ComboBox1_Change()
ActiveCell = Format(CDate(ComboBox1), "yyyy-mm-dd")
End Sub

isabelle


J'ai collé la ligne de commande dans ma combobox mais pas de résultat

Private Sub ComboBox1_Change()
x = Format(ComboBox1.Value, "yyyy-mm-dd")
End Sub

J'ai essayé aussi:
Private Sub ComboBox1_Change()
ActiveCell = CDate(ComboBox1)
End Sub

La date est toujours au format chiffre "38980"

"isabelle" a écrit dans le message de news:


bonjour René,

x = Format(combobox1.value, "yyyy-mm-dd")

isabelle



J'ai créé une liste de dates sur une feuille EXCEL de AUJOUDHUI() à
AUJOURDHUI -10.
Dans un userform, j'ai créé une combobox avec dans la rubrique
RowSource: Feuil2!A1:A22 (emplacement de ma liste)
Tout fonctionne bien , dans ma combobox apparait bien la date que je
veux, sauf que lorsque je fait la validation de mes saisies par un
Command bouton "validation des saisies" la date s'inscit sous format
chiffre (38985) alors que dans ma combobox apparaissait (25 sept 2006).
Pourtant j'ai bien mis ma colonne du tableau sous format date.
Merci de votre aide

René CALVINHAC - Toulouse-