David69400
XLDnaute Junior
Bonsoir/Bonjour
selon l'heure à laquelle vous lirer le message.
C'est un petit post simple qui j'espère attirera l'attention d'un membre du forum:
Pour la saisie de Fiches Visites Magasins, j'ai créé un UF Visite_Saisie.
Les valeurs saies en date s'inscrivent bien dans la colonne A de mon onglet visite comme souhaité.
En revanche, elle s'inscrivent à l'envers de la saisie :
ex 11 fev devient 2 novembre
ou quand le mois ne peut être inversé, ex 24 janvier,
l'insertion se fait en chiffre 24/01/14, mais sans être une date...
cf photo:
voici les codes liés à la date que j'ai utilisés pour le moment:
Question: : je pense que le format DATE n'est pas défini suffisamment, mais je n'ai pas trouvé la solution...
Merci de votre aide !!!
David
ps : fichier joint
selon l'heure à laquelle vous lirer le message.
C'est un petit post simple qui j'espère attirera l'attention d'un membre du forum:
Pour la saisie de Fiches Visites Magasins, j'ai créé un UF Visite_Saisie.
Les valeurs saies en date s'inscrivent bien dans la colonne A de mon onglet visite comme souhaité.
En revanche, elle s'inscrivent à l'envers de la saisie :
ex 11 fev devient 2 novembre
ou quand le mois ne peut être inversé, ex 24 janvier,
l'insertion se fait en chiffre 24/01/14, mais sans être une date...
cf photo:
voici les codes liés à la date que j'ai utilisés pour le moment:
' Vérifie que c'est bien une date qui a été saisie dans la textbox1
i = 1
If Not IsDate(Me.Controls("Textbox" & i).Value) Then
MsgBox "Le format de la date est incorrect ou la date est manquante, veuillez la saisir de la manière suivante: JJMMAA ", vbExclamation
Me.Controls("Textbox" & i).Value = ""
Cancel = True
Exit Sub
End If
Private Sub TextBox1_Change()
' controle du remplissage de la Date
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
'Si la saisie date est OK
If Len(TextBox1.Value) = 8 Then ComboBox4.SetFocus 'donne le focus au COMBOBOX4
End Sub
Question: : je pense que le format DATE n'est pas défini suffisamment, mais je n'ai pas trouvé la solution...
Merci de votre aide !!!
David
ps : fichier joint