Discussion :

[romain31200]

Bonjour à tous,

Existe t-il un moyen de savoir si une cellule est au format date "dd/mm/yyyy" ou "mm/dd/yyyy" ou autrement dit est-ce qu'une formule est au format Français ou Anglais?
J'ai besoin de savoir pour chaque cellule sous quel format elle se trouve et si elle est au format date anglais la remettre au format français, j'ai tenté quelque chose comme ci-dessous mais ca ne fonctionne pas:

Code :

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

1
2
3
4
5
     For j = 2 To nb_lignes
        If Cells(j, i).NumberFormat = "dd/mm/yyyyy" Then
        Cells(j, i).NumberFormat = "mm/dd/yyyy"
        End If
        Next j

Merci d'avance pour votre aide!!

Bonne journée,

Romain

[GastonLagaffe25]

Bonjour,

Si c'est la langue utilisateur que tu veux gérer, tu as le lien ci-dessous:
http://excel.developpez.com/faq/?pag...#xlCountryCode

Cordialement.

[Invité]

bonjour,
une cellule qui contient une date c'est bien un date l'inversion du jour et du mois ce fait en amont, soit a l'ouverture du fichier soit à son importation!

l'information n'est pas transmise avec le fichier! impossible de faire le distinguo!

[romain31200]

Merci pour vos réponses.

Mais quand je sélectionne ma cellule où il y a une date JJ/MM/AAAA, que je change les paramètres régionaux de mon format date (je mets par exemple Anglais (Caraîbes)): cela inverse bien le jour et le mois.
Il n'y a aucune possibilité via macro de déceler si les paramètres régionaux sont Anglais ou Français?

[Invité]

Code :

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

If UCase(WeekdayName(1)) = "LUNDI" Then MsgBox "Français" Else MsgBox "Anglais"

[GastonLagaffe25]

Il n'y a aucune possibilité via macro de déceler si les paramètres régionaux sont Anglais ou Français?

Il me semble, sur ce point, t'avoir proposé une solution...(cf. le lien du post précédent !)

[Invité]

Il me semble, sur ce point, t'avoir proposé une solution...(cf. le lien du post précédent !)

Bonjour,
Oui même une super solution!

[romain31200]

Bonjour Messieurs,

Merci beaucoup pour vos réponses et votre aide.
Malheureusement cela ne fonctionne pas de mon coté, avec vos deux solutions même si la cellule a comme paramètres régionaux "Anglais (Caraîbes)", le msgBox reste "Français".
Comment faire pour que votre formule test les paramètres régionaux d'une seule cellule à la fois?

Encore merci de votre patience et de votre aide. Vous aurez compris que mon niveau est très basique et vos réponses m'aident à avancer

Bonne journée

[GastonLagaffe25]

Malheureusement cela ne fonctionne pas de mon coté, avec vos deux solutions même si la cellule a comme paramètres régionaux "Anglais (Caraîbes)", le msgBox reste "Français".

Je ne comprends pas...
Tu as bien identifié le paramètre régional donc tu peux récupérer le contenu de la cellule (type texte) et le travailler comme tu veux...non ?
A moins que j'ai mal compris ton besoin.

Comment faire pour que votre formule test les paramètres régionaux d'une seule cellule à la fois?

Ce n'est pas possible car cette donnée n'est pas liée à une cellule mais à EXCEL (ou peut être au classeur...).

[Invité]

effectivement, moi en tous les cas j'ai fait une confusion dans ta question et j'en suis confus!

si le NumberFormat permet de formater la cellule, il permet également de connaitre son format!

Code :

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

 Debug.Print  Range("a1").NumberFormat

[romain31200]

Tu vois sur le printscreen, les paramètres régionaux de ma cellule sont bien "Anglais Caraîbes".
Ensuite quand je copie colle, ta formule ou celle de Mr rDurupt ca me retourne la valeur "Français"...

Comment cela est-il possible?

[Invité]

Code :

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

1
2
3
4
5
Range("a2").NumberFormat = "dd.mm.yyyy;@"
Range("a2") = Date
 
range("C2").NumberFormat =Range("a2").NumberFormat 
range("C2")="2016-12-25"

[romain31200]

C'est bon ca marche!!
Merci pour votre aide et bonne journée

[GastonLagaffe25]

M'enfin...autant pour moi aussi !