Problème de format de date, jour mois inversé selon la valeur du jour [Résolu]

cs_pdj 10 Messages postés mercredi 16 novembre 2005Date d'inscription 9 décembre 2005 Dernière intervention - 5 déc. 2005 à 22:12 - Dernière réponse : psykocoic 24 Messages postés samedi 4 décembre 2004Date d'inscription 6 juin 2007 Dernière intervention
- 6 juin 2007 à 10:06
Salut la compagnie

Voilà mon pb

J'ai une userform qui me demande une date, ensuite, cette date est envoyé dans une cellule. Jusqu'ici pas de souci. Sauf que le résultat est saisissant. Dans la cellule de destination le format ne correspont pas à ce que je souhaite. Si je modifie le format de la cellule rien n'y change.
Là où c'est encore plus bizarre c'est selon late que le problème apparait.
Exemple, le 30/11/05 la date s'affiche correctement dans la case de destination.
Mais si j'ai le 05/12/05 alors je me retrouve avec le 12 mai affiché .
Ci joint mon code, (date +1 car je souhaite la date du lendemain et avoir seulement le jour en surbrillance)


Private Sub CommandButton1_Click()
Sheets("Report Caro").Range("k1").Value = TextBox1.Value

UserForm4.Hide
End Sub


Private Sub UserForm_Initialize()

TextBox1 = Date + 1
TextBox1.SelStart = 0
TextBox1.SelLength = 2
End Sub

Private Sub CommandButton2_Click()
Unload UserForm4
UserForm4.Hide
End
End Sub
Afficher la suite 

6 réponses

Meilleure réponse
nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 5 déc. 2005 à 23:04
3
Merci
Ok,

Insert et update c'est pour les bases de données j'y ai été un peu vite je vois.
c'est pour access ( du moins c'est que j'utilisais avec vb6)

Alors Sheets("Report Caro").Range("k1").Value = TextBox1.Value

devient
Sheets("Report Caro").Range("k1").Value = Format(TextBox1.Value, "m/d/yyyy")

et ca devrait fonctionner je ne sais pas.
Je ne pilote pas excel directement
mais à partir de vb6 généralement et c'est vieux ;-) 2.5 an environ ;-)

Merci nhervagault 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 83 internautes ce mois-ci

nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 5 déc. 2005 à 22:33
0
Merci
Salut
dans ta sauvegarde insert et update
utilise la fonction format

"#" & Format(DateVente, "m/d/yyyy") & "#,
et

et la normalement les problemes disparaissent
j'ai eu ce probleme pour des bases access 2000

Bon courage
cs_pdj 10 Messages postés mercredi 16 novembre 2005Date d'inscription 9 décembre 2005 Dernière intervention - 5 déc. 2005 à 22:48
0
Merci
nhervagault, je ne comprends pas ta réponse, je n'ai que qqe semaine de VBA à mon actif et j'y vais à taton peux tu donc détailler
sauvegarde insert et update ??????
Merci d'avance
FMatrix07 233 Messages postés mercredi 26 février 2003Date d'inscription 21 février 2009 Dernière intervention - 5 déc. 2005 à 22:56
0
Merci
Pour ajouter un jour faire
TextBox1 = DateAdd("d", 1, Date)
cs_pdj 10 Messages postés mercredi 16 novembre 2005Date d'inscription 9 décembre 2005 Dernière intervention - 5 déc. 2005 à 23:17
0
Merci
Je te remercie beaucoup pour ton aide
psykocoic 24 Messages postés samedi 4 décembre 2004Date d'inscription 6 juin 2007 Dernière intervention - 6 juin 2007 à 10:06
0
Merci
juste un message pour remercier nhervagault et sa dernière réponse qui m'a aider à résoudre un problème que j'avais sur des dates insérées par userform..

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.