Discussion :

[shkyo]

Bonjour,

J'ai un petit soucis avec ma macro VBA, voilà, je demande une date à l'utilisateur, la met dans une variable.
Ensuite je m'en sers pour me caler sur la bonne ligne dans un fichier, tout ça fonctionne très bien, mais quand j'affiche la date dans une cellule elle se met au format US, alors que si je l'affiche dans une MsgBox elle est bien au format FR...

Voici le bout de code concerné :

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
    ' quelle date le user veut-il récupérer ?
    date_jour = InputBox("Quelle date voulez-vous afficher ? Merci de l'écrire au format JJ/MM/AAAA", "Question...", 0)
    'msg = MsgBox(date_jour, vbInformation, Test)
 
    Workbooks("XXXX 2009.xls").Worksheets("Feuil1").Activate
    Range("C1").Value = date_jour
 
    ' on ouvre le fichier qui va bien et active la feuille où sont les données
    Workbooks.Open("XXXX 2009.xls").Worksheets("XXXX").Activate
    ' on cherche la date du jour correspondant
    For Each j In [B:B]
        If j Like date_jour Then
            num_ligne = j.Row
            Exit For  ' pas la peine de continuer si l'on a touvé la valeur recherchée !!
        End If
    Next

Quelqu'un a-t-il une idée pour remédier à ça ??

[shkyo]

Une petite précision dont je viens de me rendre compte, cela ne le fait qu'entre le 01 et le 12 du mois !

Exemple : je tape 10/03/2009 => il affichera 03/10/2009
par contre si je tape 17/03/2009 => il affiche bien 17/03/2009...

C'est louche...

[shkyo]

En attendant, j'ai continué mes recherches et j'ai trouvé, c'était tout bête (comme d'habitude...), au début du code j'ai ajouté :

Code :

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

Dim date_jour As Date

et hop ça fonctionne impec !