Inversion Mois Jour VBA excel macro

Version imprimable

29/07/2016, 15h59
kader15

Inversion Mois Jour VBA excel macro

Bonjour à tous,

Voilà j'ai besoin de saisir une date dans mon inputbox, jusque la tout va bien le souci c'est que lorsque je colle la date saisie dans mon fichier excel, le mois est le jour sont inversés aléatoirement.

Exemple: Dans mon inputbox je saisie 08/09/2016 et sur ma feuille je retrouve noté 09/08/2016

J'ai vu que c'était un problème courant, mais je n'arrive pas à trouver une solution concrète c'est pour cela que j'en appelle à votre aide, please Help me.

Cordialement
29/07/2016, 16h08
jerome.vaussenat

Salut,

Ton input box, tu stockes le résultat dans une variable déclarée ?
Si ce n'est pas le cas déclare la variable de type date et dis nous ce que cela donne.
29/07/2016, 16h14
kader15

Oui je stocke ma variable mais meme résultat :/
29/07/2016, 16h24
jerome.vaussenat
Re,

La question n'est pas de savoir si tu stockes ta vairable.
As tu au début de ta macro une instruction du style ?
Code:

1 2 3 Dim mavariable as date mavariable = inputbox ...
29/07/2016, 17h06
Menhir

Citation:

Envoyé par kader15

lorsque je colle la date saisie dans mon fichier excel, le mois est le jour sont inversés aléatoirement.

Il est peu probable que ce soit "aléatoire".
Corrige-moi si je me trompe mais je pense que cette inversion ne se produit que lorsque le jour est inférieur ou égale à 12, non ?

Pour ce qui est de ton problème, je viens de tester et la méthode décrite par jerome marche dans tous les cas que j'ai expérimenté.
A condition bien sûr que la cellule dans laquelle tu vas placer cette valeur soit elle-même au format date ou au format Standard (pas au format Texte).

Bonjour,

Code:

1
2
3
4
5
mavariable = inputbox
If mavariable<>"" then 
  if isdate(mavariable) then mavariable=format(mavariable,"yyyy-mm-dd")
   range("A1")=mavariable
End if

04/08/2016, 06h32
AlainTech
Bonjour à tous,

rdurupt, je vois que tu passes régulièrement par Format alors que CDate utilise les paramètres régionaux.

Je ferais
Code:

1 2 3 Dim mavariable as Date mavariable = CDate((InputBox ...)
04/08/2016, 07h43
Invité

Bonjour Alain,
Je me suis redu compte que dans nombre de cas Cdate inversait également le jour et le mois!

De plus cette écriture fonctionne dans différentes langage ce qui me permet de garder la même syntaxe!

Tout d'abord merci de votre aide,

J'ai essayé la solution de rdurupt qui a l'air de fonctionner, cependant lorsque je saisie ma date j'aimerai pouvoir la rechercher dans ma feuille excel mais sans succès, la plage sélectionnée se retrouve à la fin de mon tableau, voici mon code :

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
Sub rechercheHorizon()
 
    Application.ScreenUpdating = False                                          'Animation de macro = désactiv
    Application.DisplayAlerts = False                                           'Désactive le message d'alerte
 
     Dim MaVariable As String, CelluleDate As Range, Horizon As Range                 'Déclarations
 
MaVariable = InputBox("Renseigner la date yyyy-mm-dd", "Jour du début de l'horizon PHP")
 
    If MaVariable <> "" Then
        If IsDate(MaVariable) Then
        MaVariable = Format(MaVariable, "yyyy-mm-dd")
        End If
    End If
 
    Sheets("Planning").Activate                                                 'Active la feuille "Planning"
    Range("C3") = MaVariable
    Set CelluleDate = Sheets("Planning").Rows(6).Find(what:=C3, LookAt:=xlWhole)  'La variable "cellulemois" est égale à la cellule dont la valeur est égale à la variable Mois que l'on a saisie plus tôt
    If Not CelluleDate Is Nothing Then                                          'Si pas de résultat trouvé, la variable cellulemois est nulle
    Cells(CelluleDate.Row, CelluleDate.Column).Offset(1, 0).Select              'Selection la cellule qui se trouve 4 cases en dessous de la cellule trouvée avec la fonction ".find"
    Set Horizon = Range(ActiveCell, ActiveCell.Offset(19, 8))                   'Définir "Horizion" comme tableau. Il part de la cellule selectionnée et fait 19 lignes + 8 colonnes
    Horizon.Select
    End If                                                                      'Fin de condition
 
End Sub

11/08/2016, 10h53
Jean-Philippe André

SAlut,

pour connaitre l'ordre d'apparition des jour, mois et annee dans les dates, tu peux recuperer l'info via Application.International()

http://jpcheck.developpez.com/tutori...international/

Ton cas de fugure peut eter pris directement avec http://jpcheck.developpez.com/tutori...ional/#LIV-5-i

Bonjour.

Voici qui devrait fonctionner avec FIND:

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
37
38
39
40
41
42
43
Sub rechercheHorizon()
 
Dim MaVariable As String, CelluleDate As Range, Horizon As Range                 'Déclarations
 
Sheets("Planning").Activate
 
MaVariable = InputBox("Renseigner la date ", "Jour du début de l'horizon PHP", Date)
 
Cells(1, 1).Select
 
 ok = False
    If MaVariable <> "" Then
        If IsDate(MaVariable) Then
         ok = True
         MaVariable = Format(MaVariable, "yyyy-mm-dd")
        End If
    End If
 
 If ok = False Then
  MsgBox MaVariable & vbLf & "n'est pas valide"
  Exit Sub
 End If
 
 
    Range("C3").NumberFormat = "m/d/yyyy"
 
    Range("C3").Value = MaVariable
 
    Dim Quoi As Date
 
     Quoi = Range("C3").Value
 
     Rows(6).NumberFormat = "m/d/yyyy"
 
     Set CelluleDate = Sheets("Planning").Rows(6).Find(What:=Quoi, LookIn:=xlFormulas, LookAt:=xlWhole) 'La variable "cellulemois" est égale à la cellule dont la valeur est égale à la variable Mois que l'on a saisie plus tôt
 
    If Not CelluleDate Is Nothing Then                                          'Si pas de résultat trouvé, la variable cellulemois est nulle
     Cells(CelluleDate.Row, CelluleDate.Column).Offset(1, 0).Select              'Selection la cellule qui se trouve 4 cases en dessous de la cellule trouvée avec la fonction ".find"
     Set Horizon = Range(ActiveCell, ActiveCell.Offset(19, 8))                   'Définir "Horizion" comme tableau. Il part de la cellule selectionnée et fait 19 lignes + 8 colonnes
     Horizon.Select
    End If                                                                      'Fin de condition
 
End Sub

11/08/2016, 18h22
eriiic

Bonjour,

Citation:

alors que CDate utilise les paramètres régionaux

Je ne suis pas sûr de ça même si on le trouve sur MSDN, ayant également eu des surprises avec.
Par contre pour dateValue() :
la fonction DateValue associe ces valeurs au mois, au jour et à l'année selon le format Date courte que vous avez défini pour votre système.
Je ne me rappelle pas avoir eu de soucis
eric
12/08/2016, 20h06
kader15

Merci infiniment Docmarti ça marche nickel, encore merci. :)

Résolu