XL 2010 problème date jour et mois inversé

[elido]

Bonjour

J'ai un formulaire vba pour enregistrer des données. Sur celui-ci il y a une date et des controls de saisie.

Le but est de faire une saisie multiple pour différents clients avec une même date et recopier le tout sur une feuille sur différentes lignes. On peut saisir tous les controls ou seulement quelques uns.

Jusqu'ici tout se passe normalement, le problème vient de la date. Celle ci apparait correctement dans le control sur formulaire mais sur la feuille les jours et mois sont inversés. J'ai essayé Cdate, et autres conseils mais rien n'y fait.

Quelqu'un pour m'aider ??? Merci pour votre aide

 

[CHALET53]

Bonjour

Peut-être ainsi :

Sub Addme()
'procédure permettant de rajouter les données du formulaire dans le fichier source
Set NextRow = Sheets("source").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
For X = 1 To Cnum
If X = 1 And Me.Controls(Ref & X).Value <> "" Then NextRow = CDate(Me.Controls(Ref & X).Value) Else NextRow = Me.Controls(Ref & X).Value 'on récupère les valeurs des Controls
Set NextRow = NextRow.Offset(0, 1) 'on les insere dans le tableau
Next X

End Sub

 

[elido]

Bonjour

J'ai un formulaire vba pour enregistrer des données. Sur celui-ci il y a une date et des controls de saisie.

Le but est de faire une saisie multiple pour différents clients avec une même date et recopier le tout sur une feuille sur différentes lignes. On peut saisir tous les controls ou seulement quelques uns.

Jusqu'ici tout se passe normalement, le problème vient de la date. Celle ci apparait correctement dans le control sur formulaire mais sur la feuille les jours et mois sont inversés. J'ai essayé Cdate, et autres conseils mais rien n'y fait.

Quelqu'un pour m'aider ??? Merci pour votre aide

Bonjour

Peut-être ainsi :

Sub Addme()
'procédure permettant de rajouter les données du formulaire dans le fichier source
Set NextRow = Sheets("source").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
For X = 1 To Cnum
If X = 1 And Me.Controls(Ref & X).Value <> "" Then NextRow = CDate(Me.Controls(Ref & X).Value) Else NextRow = Me.Controls(Ref & X).Value 'on récupère les valeurs des Controls
Set NextRow = NextRow.Offset(0, 1) 'on les insere dans le tableau
Next X

End Sub

 

[elido]

Merci ça marche. Super