Discussion :

[Godzestla]

Bonsoir,
je butte lamentablement sur un code destiné a testé la valeur d'une cellule exportée d'un champ Boolean depuis access.

A la vision dans Excel le champ vaut FAUX ou VRAI.
J'ai pu déterminer que le type de la cellule est Vbboolean, mais je ne parviens pas à tester FALSE ou TRUE, ou quoi que ce soit de Boolean.

Si quelqu'un peut m'éclairer

Voici l'extrait de mon code

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
'Convert Status of UM (Unacompanied Minor) from FAUX(FALSE)/VRAI(TRUE) to *BLANC ou UM
 
    Dim IDx         As Long
    Dim cell_test   As Boolean
 
    For IDx = 2 To lrow
        Select Case VarType(Range("A" & lrow))
            Case vbBoolean
                cell_test = Range("A" & lrow)
                Select Case cell_test
                    Case True
                         Range("A" & IDx) = "UM"
                    Case Else
                         Range("A" & IDx) = ""
                End Select
            Case Else
                Range("A" & IDx) = ""
        End Select
    Next

J'obtiens invariablement une mise à blanc de mes cellule à TRUE ou FALSE.

Merci d'avance.

[Invité]

Bonjour

A mon avis tu devrais tester la chaine (String) VRAI ou FAUX, et non un booléen, car même si je ne suis pas un spécialiste Excel, je ne pense pas que cela soit applicable dans ce cas.

Philippe

[ucfoutu]

Bonjour, Godzestla

A tenter :

1) on regrde bien ce que fait ceci :

Code :

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

1
2
3
4
5
6
toto = "FAUX"
  MsgBox CBool(0) = toto
  MsgBox CBool(1) = toto
  toto = "VRAI"
  MsgBox CBool(0) = toto
  MsgBox CBool(1) = toto

2) on essaye alors de voir ce que ferait cela (je n'ai pas essayé)

Code :

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

1
2
3
4
5
Case vbBoolean
                cell_test = Range("A" & lrow)
                Range("A" & IDx) = iif(cbool(1) = cell_test,"UM","")
           Case Else
                Range("A" & IDx) = ""

EDIT : je préfère tenter cette approche plutôt que de comparer avec "VRAI" ou "FAUX" (strings) pour éviter des mauvaises surprises en cas de distribution sur une version non française.

[Abed_H]

Bonjour
remplace ces lignes de code

Code :

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

1
2
3
Select Case VarType(Range("A" & lrow))
            Case vbBoolean
                cell_test = Range("A" & lrow)

par

Code :

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

1
2
3
Select Case TypeName(Range("A" & lrow).Value)
            Case "Boolean"
                cell_test = Range("A" & lrow).Value

Bonne journée

[Pierre Fauconnier]

Salut

VRAI = 1 en Excel, mais VRAI = TRUE = -1 en VBA

Donc,

Code :

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

Cellule.Value = IIf(Cellule.Value = -1, "UM", "")

Tu peux alléger ton code en te passant de compteur de boucle et de variable Range... et je me demande si, dans ton code, tu utilises la bonne variable sur la ligne "Select case" en utilisant lrow, car je pense que tu dois utiliser idx... Me trompé-je?

Tu peux avoir un code qui serait

Code :

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

1
2
3
for each Cellule in range("a2:a" & idx) ' idx à déterminer d'une manière ou d'une autre
    Cellule.Value = IIf(Cellule.Value = -1, "UM", "")
next cellule

[ucfoutu]

Bonjour, Pierre Fauconnier,

Oui.

Encore que, sous VBA, toute valeur différente de 0 est TRUE et qu'on pourrait donc tester sur Cellule.Value <> 0

Une chose me titille toutefois depûis le début :
Godzestla est-il certain de bien rentrer dans le

Code :

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

Case vbBoolean

?

Pour en être certain, il devrait, dans son test, ne pas donner la même valeur dans le cas "booléen" et dans le cas "non booléen" ....
Si confirmé ===>> OK . Si non confirmé ===>>> tout à repenser ...

[Pierre Fauconnier]

Encore que, sous VBA, toute valeur différente de 0 est TRUE et qu'on pourrait donc tester sur Cellule.Value <> 0

Cette assertion est fausse car on est en Excel, et on doit donc tester ce qui est VRAI dans Excel.

De plus, en Excel, tester ce qui est explicitement VRAI (-1) ne revient à tester ce qui n'est pas FAUX (<>0), même si l'on peut considérer que la remontée de données d'Access est conforme à nos attentes (VRAI, FAUX ou VIDE(=0 pour Excel)). Car, par une extension de ton raisonnement, on pourrait considérer comme FAUX tout ce qui vaut 0 (ou que tout ce qui n'est pas vrai est faux), alors qu'une donnée vide n'est pas une donnée dont la valeur est FAUX, mais plutôt une donnée dont la valeur est indéterminée.

[ucfoutu]

La VRAIE (puisqu'on discute ici de booléens ) question est : est-il certain de tester (ou de pouvoir le faire) le type de sa variable ?