Discussion :

[eriiic]

Bonjour,

Oui mais c'est bien la qu'est mon problème! Si le lui dit d’écrire une valeur booléen il écrit VRAI/FAUX, d'ou le Cint(MaVariableBooleen).

Dans le fichier que je t'ai joint j'ai mis le format personnalisé en C3 et la ligne de code du bouton test est seulement :

Code :

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

[C3] = Not [C3]

Et j'ai bien TRUE et FALSE en C3 que ce soit sur 2003 ou 2010.

eric

[Invité]

je voie pas le problème de traiter les true en string le test ce fait de la même manière!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
    Range("A1", "C1").Clear
    Range("A1", "C1").NumberFormat = "General"
 
    Dim ValeurD As Double
    ValeurD = 2.56
    Cells(1, 1).Value = ValeurD             'Affiche 2,56 et non 2.56
 
    Dim ValeurB As String
    ValeurB = "True"
    'Cells(1, 3).NumberFormat = "@"   'Ne change rien
    Cells(1, 2).Value = "'" & ValeurB            'Affiche VRAI
 
    Cells(1, 3).NumberFormat = "@"    'Obligatoir sinon la valeur de la cellule est "VRAI"
    If ValeurB = "True" Then Cells(1, 3).Value = "'True" Else Cells(1, 3).Value = "'False"
 
End Sub

[Gouxosor]

Bonsoir,
Je vais finir par connaitre toutes les manières d’écrire un booléen dans une cellule....

rdurupt: je voie pas le problème de traiter les true en string le test ce fait de la même manière!

Sur les booléen je me complique surement la vie. Mais tant qu'il y a du répondant je me dis que j'ai des choses à apprendre...

Par contre eric dans ton code, la valeur de la cellule C3 est soit 0 soit -1, donc effectivement ton format marche. Mais si tu ecrit VRAI ou FAUX directement(ce qu'il se passe si tu affectes un booléen a cette cellule) il utilise le type "General", et la bascule se fait entre VRAI et FAUX.
Goulven

[eriiic]

Par contre eric dans ton code, la valeur de la cellule C3 est soit 0 soit -1, donc effectivement ton format marche. Mais si tu ecrit VRAI ou FAUX directement(ce qu'il se passe si tu affectes un booléen a cette cellule)

Pas d'accord.
[C3] = Not [C3] retourne un booléen au même titre que [C3] = (x>5) ou [C3] = TRUE

eric

[Philippe Tulliez]

Bonjour,
Quelque chose m'échappe dans cette discussion.
Est-ce juste pour le fait d'avoir le texte True ou False en anglais (je crois que c'est depuis longtemps résolu) ou bien est-ce un souci de traitement de booléen entre Excel et VBA. Parce-que c'est totalement transparent que l'on traite la valeur avecExcel ou avec VBA
Exemple Sur la feuille dont le CodeName est Feuil1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TestBoolean()
 Dim rng As Range, r As Long, Cel As Range
 Set rng = Feuil1.Range("A2:A26") ' Plage de la feuille 1
 With rng ' Insertion de valeurs aléatoires entre 10 et 99
 .Formula = "=RANDBETWEEN(10,99)": .Value = .Value
 .Offset(, 1).Formula = "=A2>50" ' Formule Booléenne avec Excel en colonne B
 End With
 For Each Cel In rng
  With Cel
  ' Ecriture du résultat de la formule Booléenne avec Vba dans la cellule Excel en colonne C
  .Offset(, 2) = Cel > 50
  End With
 Next
 ' Mise en couleur de la 2ème et troisième colonne
 For Each Cel In rng
  With Cel
  ' Ecriture du résultat de la formule Booléenne avec Vba dans la cellule Excel
  If .Offset(, 1) Then .Offset(, 1).Font.Color = vbBlue ' Caractère bleu si True/Vrai dans la 2ème colonne
  If .Offset(, 2) = False Then .Offset(, 2).Font.Color = vbRed '  Caractère rouge si False/Faux dans la 3ème colonne
  End With
 Next
End Sub

[eriiic]

Oui, ça tourne en rond depuis un moment.
Pour moi sa question était :
En vba je veux des résultats booléens dans des cellules avec TRUE et FALSE d'affiché pour les exports CSV, mais que ça reste numérique car plus simple pour les réutiliser sur la feuille (?).

Philippe ton exemple me gène un peu (façon de parler). Effectivement j'avais pris un exemple trop particulier et tiré une conclusion erronée.
Gougoxor a donc raison également.
Donc mauvaise piste, désolé Gougoxor. A part mettre -1 et 0 dans la cellule et modifier l'affichage avec un format personnalisé je ne vois pas. Dans la mesure où je n'ai pas trop extrapolé et que mettre directement "TRUE"/"FALSE" ne te suffise pas (comme le propose rdurupt, ce qui serait plus simple ).
A Gouxosor de faire le point.

eric

[Invité]

Personnelement je persiste tu peux tester avec la valeur True and "True" et remplacer la valeur True par "'True" et ton code fonctionne pareil!

[Gouxosor]

Je suis d'accord avec vous deux, cela tourne en rond. Pour finir, effectivement le principale pour moi et d'afficher True/False et nom VRAI/FAUX et j'ai eu de nombreuses solutions pour y arriver, mais aussi d'avoir une variable booléen dans mon code qui puisse me servir a réaliser des tests.
C'est pourquoi la solution de passer par un String ne répond par exactement à ma question puisque si dans une macro je fais:

Code :

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

Cells(1, 1).Value = True

Cela affiche VRAI et non True. Mais pour y remédier de nombreuses solutions ont été proposé.

Merci a vous deux.
Goulven

[Invité]

Pour mois la seule solution est de revoir l'export csv en faisant un replace des true/false par la methode append fichier fso ou autre