Formule de Date

Le
pellet15
Bonjour à tous

J'ai une formule qui fonctionne bien sur certain ordi mais pas sur
d'autre ???
Voici la formule
=A1&" "&D1&"( "&NOMPROPRE(TEXTE(F1,SI(langue()=1036,"jjj jj","ddd
dd")))&" "&G1&" "&NOMPROPRE(TEXTE(H1,SI(langue()=1036,"jjj jj-mmm-
aa","ddd dd-mmm-yy")))&" )"

Bonne réponce
Turcot Liste de Garde ( Ven 23 au Lun 26-Janv-09 )

Mauvait résulta
Turcot Liste de Garde ( Jjj Jj au Jjj Jj-Jan-Aa )

ou est l'érreur
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18465331
Le problème s'il en est un, c'est que certains usagers n'ont pas
défini la "même" langue dans leur panneau de configuration.
Il y a plusieurs "Français" possible. Je te mets la liste plus bas ;

Dans ta formule 1036 représente le code page du pays que
windows charge lorsqu'il s'ouvre selon les paramètres définis
dans le panneau de configuration. 1036 fait référence aux
français de France... si quelqu'un a eu la brillante idée d'utiliser
le code page du Canada(Français), le code page est 3084.

En fait, tu as probablement un problème avec ta fonction "langue()"
qui doit être défini en VBA... faudrait peut-être que tu l'affiche sur
ce fil. Faudrait aussi que tu spécifies les langues des pays que tu
voudrais que ta fonction tienne compte.


Language (Locale) LCID Decimal LCID


English (Jamaica) 8201 2009 1252 JAM
French (Canada) 3084 0c0c 1252 CAN
French (France) 1036 040c 1252 FRA
French (Luxembourg) 5132 140c 1252 LUX
English (New Zealand) 5129 1409 1252 NZL
English (Ireland) 6153 1809 1252 IRL
English (Caribbean) 9225 2409 1252 CAR
French (Switzerland) 4108 100c 1252 CHE
English (Canada) 4105 1009 1252 CAN
French (Monaco) 6156 180c 1252 MCO
French (Belgium) 2060 080c 1252 BEL
English (United States) 1033 0409 1252 USA






"pellet15"
Bonjour à tous

J'ai une formule qui fonctionne bien sur certain ordi mais pas sur
d'autre ???
Voici la formule
¡&" "&D1&"( "&NOMPROPRE(TEXTE(F1,SI(langue()36,"jjj jj","ddd
dd")))&" "&G1&" "&NOMPROPRE(TEXTE(H1,SI(langue()36,"jjj jj-mmm-
aa","ddd dd-mmm-yy")))&" )"

Bonne réponce
Turcot Liste de Garde ( Ven 23 au Lun 26-Janv-09 )

Mauvait résulta
Turcot Liste de Garde ( Jjj Jj au Jjj Jj-Jan-Aa )

ou est l'érreur
Merci
ChristianM
Le #18465311
Bonjour,
langue() ne serait pas une fonction personnalisée ?

--
ChristianM


"pellet15"
Bonjour à tous

J'ai une formule qui fonctionne bien sur certain ordi mais pas sur
d'autre ???
Voici la formule
¡&" "&D1&"( "&NOMPROPRE(TEXTE(F1,SI(langue()36,"jjj jj","ddd
dd")))&" "&G1&" "&NOMPROPRE(TEXTE(H1,SI(langue()36,"jjj jj-mmm-
aa","ddd dd-mmm-yy")))&" )"

Bonne réponce
Turcot Liste de Garde ( Ven 23 au Lun 26-Janv-09 )

Mauvait résulta
Turcot Liste de Garde ( Jjj Jj au Jjj Jj-Jan-Aa )

ou est l'érreur
Merci
michdenis
Le #18465911
Si ça te tente, essaie ceci :

Tu copies tout ce qui suit dans un module standard :

Après ta déclaration, dans ta cellule, pour formater une
date, tu modifies la formule pour obtenir le format des
dates comme ceci : =TEXTE(A1;"[$-" & TLang() &"]jjj jj-mmm-aa")

Je n'ai pas testé avec différentes pages pays dans le panneau de configuration...



'Obligatoirement dans le haut du module :Déclaration API
'----------------------------------
Declare Function SetLocaleInfo Lib "kernel32" Alias _
"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String) As Boolean
Declare Function GetUserDefaultLCID% Lib "kernel32" ()
Public Const LOCALE_ILANGUAGE = &H1
'----------------------------------

Sub LaLangue(Lang As String)
Dim Symbol As String
Dim iRet1 As Long
Dim iRet2 As Long
Dim lpLCDataVar As String
Dim Pos As Integer
Dim Locale As Long

Locale = GetUserDefaultLCID()
iRet1 = GetLocaleInfo(Locale, LOCALE_ILANGUAGE, _
lpLCDataVar, 0)
Symbol = String$(iRet1, 0)
iRet2 = GetLocaleInfo(Locale, LOCALE_ILANGUAGE, Symbol, iRet1)
Pos = InStr(Symbol, Chr$(0))
If Pos > 0 Then
Symbol = Left$(Symbol, Pos - 1)
Lang = Symbol
End If
End Sub
'-----------------------------------
Function TLang()
Dim Langue As String
LaLangue Langue
TLang = Langue
End Function
'-----------------------------------






"michdenis"
Le problème s'il en est un, c'est que certains usagers n'ont pas
défini la "même" langue dans leur panneau de configuration.
Il y a plusieurs "Français" possible. Je te mets la liste plus bas ;

Dans ta formule 1036 représente le code page du pays que
windows charge lorsqu'il s'ouvre selon les paramètres définis
dans le panneau de configuration. 1036 fait référence aux
français de France... si quelqu'un a eu la brillante idée d'utiliser
le code page du Canada(Français), le code page est 3084.

En fait, tu as probablement un problème avec ta fonction "langue()"
qui doit être défini en VBA... faudrait peut-être que tu l'affiche sur
ce fil. Faudrait aussi que tu spécifies les langues des pays que tu
voudrais que ta fonction tienne compte.


Language (Locale) LCID Decimal LCID


English (Jamaica) 8201 2009 1252 JAM
French (Canada) 3084 0c0c 1252 CAN
French (France) 1036 040c 1252 FRA
French (Luxembourg) 5132 140c 1252 LUX
English (New Zealand) 5129 1409 1252 NZL
English (Ireland) 6153 1809 1252 IRL
English (Caribbean) 9225 2409 1252 CAR
French (Switzerland) 4108 100c 1252 CHE
English (Canada) 4105 1009 1252 CAN
French (Monaco) 6156 180c 1252 MCO
French (Belgium) 2060 080c 1252 BEL
English (United States) 1033 0409 1252 USA






"pellet15"
Bonjour à tous

J'ai une formule qui fonctionne bien sur certain ordi mais pas sur
d'autre ???
Voici la formule
¡&" "&D1&"( "&NOMPROPRE(TEXTE(F1,SI(langue()36,"jjj jj","ddd
dd")))&" "&G1&" "&NOMPROPRE(TEXTE(H1,SI(langue()36,"jjj jj-mmm-
aa","ddd dd-mmm-yy")))&" )"

Bonne réponce
Turcot Liste de Garde ( Ven 23 au Lun 26-Janv-09 )

Mauvait résulta
Turcot Liste de Garde ( Jjj Jj au Jjj Jj-Jan-Aa )

ou est l'érreur
Merci
Publicité
Poster une réponse
Anonyme