Discussion :

[drakkar_agfa]

Bonjour,

je sais que plusieurs personnes ont déja posé la question.
Je n'ai pas trouvé de réponse sur le forum.

Mon problème est : J'ai des formules =SI(A1="a";"Name";"Nom")
Assez simple, mais si le fichier est ouvert sur un poste anglais, à l'ouverture une macro détecte la langue et

Code :

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

1
2
3
    Selection.Replace What:="SI", Replacement:="IF", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Comme ça, je remplace les SI par des IF pour l'utiliser sur un poste anglais.

Mais après la manipulation, je dois faire F2 puis Enter pour actualiser la cellule. J'ai essayé Application.Calculate mais ça ne fonctionne pas.
Je ne ferai pas une macro qui fait Pour toutes cellules : SendKeys F2 et Enter.....

J'aurais pensé que Application.Calculate aurait fonctionné mais ce n'est pas le cas.
Est-ce qu'il a un autre moyen que celui-ci? Sinon, comment pourrais-je affecter le bon titre de colonne (francais ou anglais)?

Merci comme toujours de votre collaboration!

Mathieu

[JackOuYA]

bonsoir ,

drakkar_agfa , n'ayant pas de version anglaise d'excel sous la main, je ne peu tester, mais je suis persuadé qu'excel effectue seul la traduction des formules en fonction de la langue sélectionné.

[Godzestla]

Bonsoir,

bizarre ton problème.

Pourrais-tu un peu plus expliquer ou se trouvent tes formules et comment tu les encodes.

Si elle sont générées par VBA, tu peux utiliser

Code :

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

1
2
 
Application.evaluate

il y a un post ouvert par moi hier qui est résolu avec ce sujet ici

[drakkar_agfa]

Bonjour,

je m'excuse, je n'ai pas le temps de vérifier ta réponse sur ton poste.

Mais j'ai déja une forumle dans ma cellule : =SI(A1="a";"Name";"Nom")

Et, quand j'ouvre mon fichier, en VBA, je vérifie, si c'est un poste anglais alors le code met "a" dans la cellule A1. Tout va bien jusque la. Mais, dans un poste anglais, la formule SI n'existe pas.... alors j'utilise

Code :

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

1
2
3
Selection.Replace What:="SI", Replacement:="IF", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Apres avoir placé "a" dans la cellule A1. Comme ca, c'est rendu if(.........;....;...)

Sauf que je dois manuellement faire F2 et enter pour que le changement se fasse...

Merci!

[JackOuYA]

Re- drakkar_agfa ..

tu n'as pas répondu à mon message précédent :

Il me semble impossible que la formule ne soit pas tout simplement traduite par excel !

[Godzestla]

Bonsoir Jacques,
je suis de ton avis.