OVH Cloud OVH Cloud

Problème de date

2 réponses
Avatar
Albert
Bonsoir à tous,

Au travail je suis sous réseau, Win 2000 Pro et excell 97.
J'ai crée (avec votre aide des UserForm et dans un des USF j'ai des textBoxs
dont je peux modifier ou inscrire des dates.
Au début cela marchais bien puis d'un coup les dates se sont mises en
anglais.
A mon code j'ai alors ajouté
Dim MyDay
MyDay=Format("dd:mm:yyyy")
Rienh n'a changé.
Je suis allé voir dans paramètre régionaux c'est OK.
J' ai posé la question à la cellule informatique mais elle ne sait pas me
répondre non plus.
Voici le code:
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
Cellule(2, 25) = Modifier.CP.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste
Internes").Range("A65536").End(xlUp).Row).Address
Ici, sous excell 2003 ça tourne bien.
Peux-t-on me dépanner ?
Merci d'avance.

2 réponses

Avatar
Starwing
Bonjour,

MyDay=Format("dd:mm:yyyy") ???

Ton format est des heures ou des dates??

Essaie:

"dd/mm/yyyy"


Starwing

-----Message d'origine-----
Bonsoir à tous,

Au travail je suis sous réseau, Win 2000 Pro et excell 97.
J'ai crée (avec votre aide des UserForm et dans un des
USF j'ai des textBoxs

dont je peux modifier ou inscrire des dates.
Au début cela marchais bien puis d'un coup les dates se
sont mises en

anglais.
A mon code j'ai alors ajouté
Dim MyDay
MyDay=Format("dd:mm:yyyy")
Rienh n'a changé.
Je suis allé voir dans paramètre régionaux c'est OK.
J' ai posé la question à la cellule informatique mais
elle ne sait pas me

répondre non plus.
Voici le code:
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)

Cellule(2, 25) = Modifier.CP.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE"
& Sheets("Liste

Internes").Range("A65536").End(xlUp).Row).Address
Ici, sous excell 2003 ça tourne bien.
Peux-t-on me dépanner ?
Merci d'avance.



.



Avatar
Albert
Merci
c'est des dates

"Starwing" a écrit dans le message news:
17cac01c44991$04f299b0$
Bonjour,

MyDay=Format("dd:mm:yyyy") ???

Ton format est des heures ou des dates??

Essaie:

"dd/mm/yyyy"


Starwing

-----Message d'origine-----
Bonsoir à tous,

Au travail je suis sous réseau, Win 2000 Pro et excell 97.
J'ai crée (avec votre aide des UserForm et dans un des
USF j'ai des textBoxs

dont je peux modifier ou inscrire des dates.
Au début cela marchais bien puis d'un coup les dates se
sont mises en

anglais.
A mon code j'ai alors ajouté
Dim MyDay
MyDay=Format("dd:mm:yyyy")
Rienh n'a changé.
Je suis allé voir dans paramètre régionaux c'est OK.
J' ai posé la question à la cellule informatique mais
elle ne sait pas me

répondre non plus.
Voici le code:
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)

Cellule(2, 25) = Modifier.CP.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE"
& Sheets("Liste

Internes").Range("A65536").End(xlUp).Row).Address
Ici, sous excell 2003 ça tourne bien.
Peux-t-on me dépanner ?
Merci d'avance.



.