problème de transfert date en vba

[bruno66]

bonjour, je vous joint le feuille de mon fichier sur laquelle je rencontre un souci quand j'ajoute l'affaire sur la feuille de commande il me converti le jour en mois et le mois en jour...
exemple date aujourd'hui 11/07/2012 sur la fenetre de sasie... au transfert sur la feuille je me retrouve avec le 7 novembre 2012... pas cool!!!!!!!!!!!!!!!!!!!! meme si ca peut faire rire merci de votre aide

 

[Pierrot93]

Re : problème de transfert date en vba

Bonjour,

pas ouvert ton fichier, mais regarde du coté de la fonction "CDate", devrait peut être résoudre ton problème...

bonne journée
@+

 

[bruno66]

Re : problème de transfert date en vba

je mets le code de la feuille concernat la date


Private Sub TxtBox4Date_Change()
TxtBox4Date.Value = Format(Date, "dd/mm/yyyy")


et pour le bouton ajouter
Private Sub cmdAjouter_Click()
Dim umLigneVide As Integer
'On active la feuille "Vos commande"
Worksheets("Vos commandes").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numèro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If TxtBox4Date.Text = "" Then
MsgBox "Veuillez Saisir la date", vbCritical, "Champs manquant"
TxtBox4Date.SetFocus
ElseIf TxtBox2CDE.Text = "" Then
MsgBox "Veuillez Saisir le N°CDE ", vbCritical, "Champs manquant"
TxtBox2CDE.SetFocus
ElseIf TxtBox1N°Affaire.Text = "" Then
MsgBox "Veuillez Saisir le N°'affaire", vbCritical, "Champs manquant"
TxtBox1N°Affaire.SetFocus
ElseIf ComboBox3.Text = "" Then
MsgBox "Veuillez Saisir le nom du Client", vbCritical, "Champs manquant"
ComboBox3.SetFocus
ElseIf TxtBox5Chantier.Text = "" Then

 

[Pierrot93]

Re : problème de transfert date en vba

Re,

pour renvoyer une date dans une cellule à partir d'un textbox :

 Range("A1").value = CDate(TxtBox4Date.Value)

 

[bruno66]

Re : problème de transfert date en vba

Re- bonjour
essaie toutes les methodes .. toujours identique je pensais aussi que suite a une mise a jours windows... aussi
si quelq'un peut ouvrir le fichier et regarder un grand merci .. et me noter eventuellement en post la modification faite que je puisse la faire sur mes fichiers dans lequels je rencontre ce problème ...
un grnad merci d'avance à vous

 

[Pierrot93]

Re : problème de transfert date en vba

Re,

as tu essayé de remplacer ceci :

        ActiveSheet.Cells(numLigneVide, 2) = TxtBox4Date.Text

par cela :

        ActiveSheet.Cells(numLigneVide, 2) = CDate(TxtBox4Date.Text)