Discussion :

[Mic13710]

Bonjour à tous,

La question a sans doute été posée des milliers de fois mais je n'ai pas trouvé la réponse sur la toile.

Je rencontre un problème de langue entre Excel et VBA concernant les Vrai Faux et True False

Je m'explique. J'ai un userform dans lequel il y a plusieurs checkbox. Une fois les saisies terminées, je sauvegarde les différentes valeurs dans une chaine de caractère dans laquelle les entrées sont séparées par une chaine de split (ClefSplit) comme ceci :

Code :

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

.TextBoxPrenom.Value & ClefSplit & .TextBoxNom.Value & ClefSplit & .CheckBox1.Value & ClefSplit & .CheckBox2.Value & ClefSplit & .CheckBox3.Value & ClefSplit & .CheckBox4.Value & ClefSplit & .CheckBox5.Value & ClefSplit & .CheckBox6.Value

Le problème c'est que les valeurs enregistrées pour les checkbox sont "Vrai" ou "Faux" et quand je veux les restituer dans mon userform, elles ne s'affichent pas puisque le checkbox ne comprend que "True" ou "False".

Je contourne le problème en faisant un if "Vrai" then True else False, mais si un utilisateur travaille avec une version en anglais, ça ne pourra pas fonctionner.

Comment puis-je faire pour que la valeur enregistrée dans ma chaine de caractère pour chaque checkbox soit directement exploitable sans avoir à passer par une conversion via un if ?

Merci d'avance pour votre aide

Michel

[Thumb down]

bonjour,

Code :

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

.TextBoxNom.Value & ClefSplit & abs(.CheckBox1.Value) & ClefSplit & abs(.CheckBox2.Value) &

[Mic13710]

Je m'auto réponds.

Il faut enregistrer les valeurs numériques équivalentes. Pour cela, il suffit de rajouter un "-" devant la valeur booléenne à enregistrer. Ma chaine corrigée :

Code :

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

.TextBoxPrenom.Value & ClefSplit & .TextBoxNom.Value & ClefSplit & -.CheckBox1.Value & ClefSplit & -.CheckBox2.Value & ClefSplit & -.CheckBox3.Value & ClefSplit & -.CheckBox4.Value & ClefSplit & -.CheckBox5.Value & ClefSplit & -.CheckBox6.Value

Si Vrai, la valeur -CheckBoxX.Value est égale à 1, qui sera interprété comme True
Si Faux, la valeur -CheckBoxX.Value est égale à 0, qui sera interprété comme False

[Menhir]

Je contourne le problème en faisant un if "Vrai" then True else False, mais si un utilisateur travaille avec une version en anglais, ça ne pourra pas fonctionner.

Je ne comprends pas ta description.
Normalement, en VBA, un code du style If .CheckBox1.Value = "Vrai" Then ne devrait pas fonctionner, à moins que .CheckBox1.Value soit une chaine de caractère.
Il faudrait écrire If .CheckBox1.Value ThenLes valeurs des CheckBox1 ne sont pas des chaines mais des booléen, elles ne dépendent donc pas de la langue.

Donc, pour sortir "Vrai" et "Faux", il faudrait écrire : IIf(.CheckBox1.Value, "Vrai", "Faux").

[Mic13710]

Merci Thumbdown,

Je viens de voir ta réponse qui est arrivée pendant que je rédigeais la mienne.
Je viens d'essayer et ça marche aussi. Je l'adopte car ça me semble plus propre et compréhensible que le "-"

Merci.

Michel

[Thumb down]

plus propre non mais plus compréhensible oui!

[Mic13710]

@Menhir,

Mon If Then n'est pas construit comme cela. J'ai fait un raccourci pour dire que je passais par là pour avoir les valeurs true ou false.

Il est bien évident que ça vient après une instruction du type MaVariableTableau = Split(MaChaine, ClefSplit).

L'instruction est donc de cette forme :

Code :

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

If MaVariableTableau(x) = "Vrai" Then .CheckboxX.Value = True Else .CheckBoxX.Value = False

Est-ce que c'est plus compréhensible ?

Par contre, ta réponse n'est pas tout à fait exacte. La valeur de la CheckBox enregistrée dans ma chaine texte dépend malheureusement de la langue et ce qui était enregistré dans ma chaine était bien des "Vrai" et "Faux". D'où ma question sur ce forum.

Et pour être plus précis, avec un Excel en anglais, les valeurs textes sont bien "True" et "False" qui même en texte sont bien comprises par la CheckBox lors de la restitution.

Avec le "-" ou le abs, ce sont des valeurs numériques qui sont enregistrées dans la chaine, et ces valeurs sont correctement interprétées comme des True ou des False, donc indépendantes de la langue de l'application.

[Thumb down]

tester un valeur booléenne pour affecter la même valeur à un autre valeur booléenne est inutile!

Code :

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

1
2
3
 
'if (MaVariableTableau(x) = "Vrai")=true then 
.CheckboxX.Value = MaVariableTableau(x) = "Vrai"

[Mic13710]

tester un valeur booléenne pour affecter la même valeur à un autre valeur booléenne est inutile!

Code :

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

 .CheckboxX.Value = MaVariableTableau(x) = "Vrai"

Merci Thumbdown, je ne connaissais pas ce raccourci.