Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel formule fonctionne dans les deux langue

formule fonctionne dans les deux langue

4 réponses
Avatar
Daniel
Bonjour AV

Cette formule que tu ma donné fonctionne bien sur mon laptop
mais lorsque un de mes collègue l'ouvre elle ne fonctionne plus.
sont excel est en anglais.
Comment faire pour que cela fonctionne dans les deux langue ??

=NOMPROPRE(TEXTE(D1;"jjj jj"))&" "&E1&" "&NOMPROPRE(TEXTE(F1;"jjj
jj-mmm-aa"))&" "&G1
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir Daniel

Une solution en VBA peut-être

[a1] = Application.Proper(Format([d1], "ddd dd")) & " " & [e1] & " " &
Application.Proper(Format([f1], "ddd dd-mmm-yy")) & " " & [g1]

Salutations
JJ

"Daniel" a écrit dans le message de news:
%
Bonjour AV

Cette formule que tu ma donné fonctionne bien sur mon laptop
mais lorsque un de mes collègue l'ouvre elle ne fonctionne plus.
sont excel est en anglais.
Comment faire pour que cela fonctionne dans les deux langue ??

=NOMPROPRE(TEXTE(D1;"jjj jj"))&" "&E1&" "&NOMPROPRE(TEXTE(F1;"jjj
jj-mmm-aa"))&" "&G1




Avatar
Jacky
Plutôt:

[a1] = WorksheetFunction.Proper(Format([d1], "ddd dd")) & " " & [e1] & " " &
WorksheetFunction.Proper(Format([f1], "ddd dd-mmm-yy")) & " " & [g1]

JJ
Avatar
JB
Bonjour,

=NOMPROPRE(TEXTE(AUJOURDHUI();SI(Langue()36;"mmmm aa";"mmmm dd")))

Fonction à placer dans un module:

Function Langue()
Langue = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
End Function

JB
Avatar
Daniel
Bonjour Jacky

Je modiffie ma vba et je vérifier sur d'autre laptop.

Merci

"Jacky" a écrit dans le message de news:

Plutôt:

[a1] = WorksheetFunction.Proper(Format([d1], "ddd dd")) & " " & [e1] & " "
& WorksheetFunction.Proper(Format([f1], "ddd dd-mmm-yy")) & " " & [g1]

JJ