Discussion :

[jo385]

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 :

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

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

[ilcocodrillo]

tu peux essayer de mettre ça dans ton code

Code :

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

1
2
 
   Application.DecimalSeparator = "."

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

[jo385]

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...

[ilcocodrillo]

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é

[jo385]

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

[ucfoutu]

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...)