Macro et Date au format anglosaxon

**alolaterre** · 11/09/2015, 09h00

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

Invité · 11/09/2015, 10h08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

**alolaterre** · 11/09/2015, 10h23

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)

Invité · 11/09/2015, 10h38

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**alolaterre** · 11/09/2015, 10h55

J'ai pas bien compris ce que je doit faire de ce code? Je le mets où?

Invité · 11/09/2015, 10h59

tu colle ce code dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

**alolaterre** · 11/09/2015, 11h09

Voici le résultat:

2015-02-01
01/02/2015

Invité · 11/09/2015, 11h21

donc le format international fonctionne "yyyy-mm-dd"! il n'y a pas d'inversion "mm/jj"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("C3").NumberFormat = "General"
 Range("C3") = Format(Date_Liv,"yyyy-mm-dd")

**alolaterre** · 11/09/2015, 11h47

Oufff ca fonctionne.

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

Merci beaucoup

**kiki29** · 11/09/2015, 11h55

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

Invité · 11/09/2015, 11h57

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

Macro et Date au format anglosaxon [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager