Macro et Date au format anglosaxon

Version imprimable

Bonjour,
J'ai un petit pépin,
j'utilise un code qui me demande une date via inputbox, et qui la renvoi dans une cellule. Le probleme c'est que soudainement, il retranscrit la date en inversant le mois et les jours. Ex si je tape 11/09/2015 il écrit dans la cellule 9 Novembre 2015 ! :?

Voici le code que j'utilise:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Demande_Confirmation = MsgBox("Livraison pour le:" & Chr(10) & Chr(10) & _
    Worksheets("Aide a la commande").Range("C3").Value & "?" & Chr(10) & Chr(10) & Chr(10) & Chr(10) _
    , vbQuestion + vbYesNo + vbDefaultButton1, "Confirmer ?")
 
' si la date est OK continuer 
    If (Demande_Confirmation) = vbYes Then GoTo Suite
 
 
' si la date est incorrecte entrer une nouvelle date
saisie_date:
 
    Date_Liv = InputBox(Chr(13) & Chr(10) & Chr(13) & Chr(10) & "      Saisissez la date de livraison", _
            "Date de livraison")
 
 
        If Not IsDate(Date_Liv) Then
            MsgBox "Format de date saisie incorrect !"
            GoTo saisie_date
            End If
 
 
        If CDate(Date_Liv) < Date Then
            MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
            GoTo saisie_date
            End If
 
 
        If Date_Liv <> Format(Date_Liv, "dd/mm/yyyy") And Date_Liv <> Format(Date_Liv, "dddd dd/mm") And Date_Liv <> Format(Date_Liv, "dd/mm/yy") _
            Then
            MsgBox "le format doit être jj/mm/aaaa !"
            GoTo saisie_date
            End If
 
        Range("C3").Select
        Range("C3") = Date_Liv
        Range("C3") = Format(ActiveCell.Value, "dddd dd mmm")

Une idée?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
do
    Date_Liv = InputBox(vbcrlf & vbcrlf & "      Saisissez la date de livraison",  "Date de livraison")
    if Date_Liv <>"" then
      If CDate(format(Date_Liv,"yyyy-mm-dd")) >= Date Then exit do
   end if
   MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
loop
 
 
       ' If Date_Liv <> Format(Date_Liv, "dd/mm/yyyy") And Date_Liv <> Format(Date_Liv, "dddd dd/mm") And Date_Liv <> Format(Date_Liv, "dd/mm/yy") _
        '    Then
       '     MsgBox "le format doit être jj/mm/aaaa !"
       '     GoTo saisie_date
      '      End If
 
       ' Range("C3").Select
        Range("C3") = Format(Date_Liv,"yyyy-mm-dd")
       ' Range("C3") = Format(ActiveCell.Value, "dddd dd mmm")

11/09/2015, 10h23
alolaterre

Merci pour ta réponse rapide.

Mais ca ne fonctionne pas. Le seul cas ou la date est dans le bon ordre, c'est quand les jours sont supérieurs à 12 (ex 13/09/2015)

fais ce teste la pour accéder à la fenêtre d’exécution raccourci clavier [Ctrl] + [G]
Code:

1 2 3 4 5 Sub Test() Date_Liv="1/2/15" debug.print Format(Date_Liv,"yyyy-mm-dd") debug.print cdate(Format(Date_Liv,"yyyy-mm-dd")) end sub

11/09/2015, 10h55
alolaterre

J'ai pas bien compris ce que je doit faire de ce code? Je le mets où?
11/09/2015, 10h59
Invité
tu colle ce code dans un module
Code:

1 2 3 4 5 Sub Test() Date_Liv="1/2/15" debug.print Format(Date_Liv,"yyyy-mm-dd") debug.print cdate(Format(Date_Liv,"yyyy-mm-dd")) end sub
tu l’exécute touche [F5]

et tu regarde le résultat dans la fenêtre d’exécution touche clavier [Ctrl] + [g]
11/09/2015, 11h09
alolaterre

Voici le résultat:

2015-02-01
01/02/2015
11/09/2015, 11h21
Invité
donc le format international fonctionne "yyyy-mm-dd"! il n'y a pas d'inversion "mm/jj"
Code:

1 2 Range("C3").NumberFormat = "General" Range("C3") = Format(Date_Liv,"yyyy-mm-dd")
11/09/2015, 11h47
alolaterre

Oufff ca fonctionne.

J'ai pas bien compris pourquoi mais c'est parfait !

Merci beaucoup
11/09/2015, 11h55
kiki29

Salut, toujours consultable : Comprendre et gérer les dates sous Excel et en VBA

Code:

1
2
3
 
Range("C3").NumberFormat = "General" 'ici tu suprime ton format à la [C] [O] [N] en le passant à standard!
Range("C3") = Format(Date_Liv,"yyyy-mm-dd")'ici tu passe ta date au format internationale et tu laisse Excel interpréter le format de cellule!

là tu fais une boucle tant que la date n'est pas valide car un goto c'est pas joli et à proscrire!

Code:

1
2
3
4
5
6
7
do
    Date_Liv = InputBox(vbcrlf & vbcrlf & "      Saisissez la date de livraison",  "Date de livraison")
    if Date_Liv <>"" then
      If CDate(format(Date_Liv,"yyyy-mm-dd")) >= Date Then exit do
   end if
   MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
loop

un informaticien c'est un fainéant et je sais de quoi je parle; évite le code inutile!

Code:

1
2
3
 
if MsgBox("Livraison pour le:" & Chr(10) & Chr(10)  &    Worksheets("Aide a la commande").Range("C3").Value & "?" & Chr(10) &   
Chr(10) & Chr(10) & Chr(10)   , vbQuestion + vbYesNo + vbDefaultButton1, "Confirmer ?") = vbNo then exit sub

ton code doit être tassé pour le visualiser d'un seule regard! supprime les retours chariots et indente ton code!

bien sur ce code n'est pas le bon c'est pour l'exemple!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Demande_Confirmation = MsgBox("Livraison pour le:" & Chr(10) & Chr(10) & _
Worksheets("Aide a la commande").Range("C3").Value & "?" & Chr(10) & Chr(10) & Chr(10) & Chr(10) _
, vbQuestion + vbYesNo + vbDefaultButton1, "Confirmer ?")
' si la date est OK continuer
If (Demande_Confirmation) = vbYes Then GoTo Suite
' si la date est incorrecte entrer une nouvelle date
saisie_date:
Date_Liv = InputBox(Chr(13) & Chr(10) & Chr(13) & Chr(10) & "      Saisissez la date de livraison", _
"Date de livraison")
If Not IsDate(Date_Liv) Then
    MsgBox "Format de date saisie incorrect !"
    GoTo saisie_date
End If
If CDate(Date_Liv) < Date Then
    MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
    GoTo saisie_date
End If
If Date_Liv <> Format(Date_Liv, "dd/mm/yyyy") And Date_Liv <> Format(Date_Liv, "dddd dd/mm") And Date_Liv <> Format(Date_Liv, "dd/mm/yy") _
Then
    MsgBox "le format doit être jj/mm/aaaa !"
    GoTo saisie_date
End If
Range("C3").Select
Range("C3") = Date_Liv
Range("C3") = Format(ActiveCell.Value, "dddd dd mmm")

un code aéré est incompréhensible!

autant que faire ce peu on placera le commentaire en fin de ligne et on tentera de réduire la taille du code!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Demande_Confirmation = MsgBox("Livraison pour le:" & Chr(10) & Chr(10) & _
Worksheets("Aide a la commande").Range("C3").Value & "?" & Chr(10) & Chr(10) & Chr(10) & Chr(10) _
, vbQuestion + vbYesNo + vbDefaultButton1, "Confirmer ?")
If (Demande_Confirmation) = vbYes Then GoTo Suite ' si la date est OK continuer
saisie_date:
Date_Liv = InputBox(Chr(13) & Chr(10) & Chr(13) & Chr(10) & "      Saisissez la date de livraison", _
"Date de livraison") ' si la date est incorrecte entrer une nouvelle date
If Not IsDate(Date_Liv) Then MsgBox "Format de date saisie incorrect !":         GoTo saisie_date
If CDate(Date_Liv) < Date Then MsgBox "La date doit être supérieure à la date d'aujourd'hui !":        GoTo saisie_date
End If
If Date_Liv <> Format(Date_Liv, "dd/mm/yyyy") And Date_Liv <> Format(Date_Liv, "dddd dd/mm") And Date_Liv <> Format(Date_Liv, "dd/mm/yy") Then _
    MsgBox "le format doit être jj/mm/aaaa !": GoTo saisie_date
Range("C3").Select
Range("C3") = Date_Liv
Range("C3") = Format(ActiveCell.Value, "dddd dd mmm")

si il faut utiliser la barre de défilement pour lire la totalité du la sub ça veut dire qu'il faut découper le code!

Code:

1
2
3
4
5
if a=false then
       call subAfalse(argument)
else
      call SubAtrue(argument)
end if

Code:

1
2
3
4
5
6
7
8
9
10
11
If MsgBox("Livraison pour le:" & Chr(10) & Chr(10) & Worksheets("Aide a la commande").Range("C3").Value & "?" & Chr(10) & _
Chr(10) & Chr(10) & Chr(10), vbQuestion + vbYesNo + vbDefaultButton1, "Confirmer ?") = vbNo Then Exit Sub 'On demande à l 'utilisateur si il veut exécuter l'action !
Do 'Ici on saisie une date de livraison et on boucle tant que ce n'est pas une date valide !
    Date_Liv = InputBox(vbCrLf & vbCrLf & "      Saisissez la date de livraison", "Date de livraison")
    If Date_Liv <> "" Then
      If CDate(Format(Date_Liv, "yyyy-mm-dd")) >= Date Then Exit Do
   End If
   MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
Loop
Range("C3").NumberFormat = "General" 'ici tu suprime ton format à la [C] [O] [N] en le passant à standard!
Range("C3") = Format(Date_Liv, "yyyy-mm-dd") 'ici tu passe ta date au format internationale et tu laisse Excel interpréter le format de cellule!