Discussion :

[Shuki]

Bonjour

Tout allait pour le mieux jusqu'a ce que l'on passe au 1/10/2009.
j'avais des dates à choisir via une combobox (dates avec heures sur la derniere quinzaine) . Dans la liste de la combobox s'affichaient des dates en francais (JJ/mm /aaaa... HH:mm) je choisissais une date et via un bouton la copiais dans une cellule excel .
Tout fonctionnait bien .
et depuis ce jour les dates du début de mois sont toujours visibles dans la combobox en francais mais s'écrivent dans la cellule excel sous format anglais : mm/jj/aaaa
Mon 1er octobre devient donc le 10 janvier ce qui est très très très génant .
j'avais dans ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

boite.Value = Format(boite.Value, "dd/mm/yyyy hh:mm")

Merci de vos aides pour résoudre ce pb
Shuki

[laetitia]

bonjour Shuki le forum essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"dd-mm-yyyy hh:nn:ss"

a la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"dd/mm/yyyy hh:mm"

autrement fait une recherche sur le site sur la manipulations des dates !!

[casavba]

Bonjour

j'avais des dates à choisir via une combobox (dates avec heures sur la derniere quinzaine) . Dans la liste de la combobox s'affichaient des dates en francais (JJ/mm /aaaa... HH:mm) je choisissais une date et via un bouton la copiais dans une cellule excel .

Bonjour,

Ta combobox tu la remplies comment?
Autrement dit, les dates qui s'affichent dans la combobox sont elles stockées quelque part ou tu les saisies en dur ?

[Shuki]

Bonjour

Merci à Laetitia et Casavba pour vos réponses

Mon problème persiste tout de même.
Les données visibles dans la combobox proviennent de cellules excel et sont saisies par des utilisateurs (saisie date classique avec heure). Le problème est identique si dans ces cellules excel il y a la formule : maintenant()

j'ai mis en piece jointe un exemple du pb. le bouton sur excel sert a afficher la userform. on choisit une date dans la combobox et en cliquant sur le bouton de la userform la date choisie se copie en cellule A1. On voit par exemple que la date de 2 10 2009 devient 10 2 2009

Merci de votre aide

Shuki

[jfontaine]

Bonjour,

Ca fonctionne si tu convertis la valeur en type date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Value = CDate(boite.Value)

[laetitia]

bonjour Shuki casavba jfontaine le forum

une autre possibilite supprimer .value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Range("a1") = boite
End Sub
Sub boite_Change()
toto = boite
boite = Format(boite, "dd-mm-yyyy hh:nn")
End Sub

ps tu peus mettre sous cette forme aussi!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

boite = Format(boite, "dd/mm/yyyy hh:nn")

[Shuki]

Bonjour à tous

Un grand merci à Laetitia, Casavba et Jfontaine pour leurs réponses.

Cela fonctionne comme souhaité, je ne connaissais pas l'écriture pour inclure CDate.

Mon we sera plus cool sachant que lundi tout fonctionnera.

Très bon we à tous

Shuki