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.