Modifier le système de séparateurs utilisé

Salut à tous!!!!

Je vous expose mon problème.
J'ai crée un userform sur mon PC paramétré en mode Français.

Le but de mon userform est de convertir un tangente en cosinus. Dons dans une textbox j'entre la tangente et dans l'autre je vois apparaître le cosinus. Voici mon bout de code pour çà :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBoxTan_Change() If TextBoxTan.Value <> "" Then TextBoxCos.Value = convertiontc(TextBoxTan.Value) End Sub   Function convertiontc(tangente As Double) As Double Dim inter As Double inter = Atn(TextBoxTan.Value) convertiontc = Round(cos(inter), 2) End Function

---

La chose se complique car je veux utiliser cet feuille Excel avec des PC en mode américain...

Je vais donc dans le panneau de configuration pour passer en langue Anglais (Etat-Unis). Tout marche bien dans ce cas.

Mais une fois que je ferme la page Excel et que je la reouvre par la suite.
Quand j'entre ma tangente je vois apparaître le cosinus avec une virgule et la ça beug...
La seul solution que j'ai trouvé c'est de retourner dans le panneau de configuration et de rechoisisr à nouveau le mode américain puis de cliquer sur Appliquer et là...Miracle tout marche, je vois bien apparaître un cosinus avec un point.

Peut être quelqu'un peut me donner le code pour piloter le panneau de config par macro afin de ne plus avoir à repasser à chaque ouverture de mon fichier par ce menu pour recliquer sur Appliquer....

Merci de votre aide

tu peux essayer de mettre ça dans ton code

Code:

---

1 2	Application.DecimalSeparator = "."

---

et puis tu me dis quoi après.. voilà

Non ça ne marche pas...

J'ai essayé d'aller dans le menu Outil/Option/intenational pour décocher "Utiliser les séparateurs systèmes" et indiquer mon nouveau séparateur. Mais echec à nouveau.

J'ai l'impression que je suis obligé de faire comme une réinitialisation à chaque fois que je re ouvre ce fichier...

Même imposant par le code le séparateur ça ne marche pas ? La je suis dépassé alors, je pass la main à plus expérimenté que moi... désolé

Merci quand même de ton aide.

Je cherche maintenant à piloter la config de windows pour
--> dans un premier temps relever la langue de l'utilisateur.
--> Passer en mode américain
--> Effectuer mon travail
--> Puis finamement reconfib=gurer avec l'ancienne mode de l'utilisateur.

Quelqu'un pourrait peut être m'éclairer ?

Merci

Bonjour,

on ne modifie JAMAIS les paramètres de la machine cliente ... J A M A I S !!!

Tu as l'intention de les "restituer" in fine , mais :
- quid si interruption brutale, hein ?
- quid si un autre utilisateur (ou même une autre fenêtre d'une autre appli, ou encore un programme en tâche de fond) est en train de tourner et attend, lui, les paramètres habituels ? !!!

Si tu tiens à le faire, c'est largement possible mais la loi t'oblige à en prévenir expressément et de manière très claire ton client !!:!

Convertis tes propres données (Utilise Replace...)

Trés juste je suis d'accord avec tes commentaires.

Mais peux-tu me dire comment utiliser Replace dans une textbox.
Si tu remontes plus haut dans la discussion tu verras que la textboxCos se modifie au fil de la modif de textboxTan.

Je n'ai pas préciser avant que le travail inverse est possible dans ma userform. Le client peux entrer un cos pour avoir la tangente. Je pense d'ailleurs que mon beug vient de là. Comme le retour se fait avec un séparateur virgule la fonction cos ou tan ne marche plus...

Voici à nouveau le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Function convertionct(cosinus As Double) As Double Dim inter As Double inter = Application.WorksheetFunction.Acos(cosinus) convertionct = Round(Tan(inter), 2) End Function   Function convertiontc(tangente As Double) As Double Dim inter As Double inter = Atn(TextBoxTan.Value) convertiontc = Round(cos(inter), 2) End Function   Private Sub Copexcel_Click() Sheets("Tool").Cells(10, 6).Value = TextBoxCos.Value calculationtool.Hide End Sub   Private Sub TextBoxCos_Change() If TextBoxCos.Value <> "" Then TextBoxTan.Value = convertionct(TextBoxCos.Value) End Sub     Private Sub TextBoxTan_Change() If TextBoxTan.Value <> "" Then TextBoxCos.Value = convertiontc(TextBoxTan.Value) End Sub

---

Merci pour l'aide