Discussion :

[Nico820]

Bonjour à tous,

je cherche un moyen de savoir si une cellule contient une valeur booleen sur VBA/Excel.
En effet, le programme peut être utilisé par plusieurs pays, donc les valeurs "vrai" ou "faux" ne sont pas valides.

J'ai cherché sur le net, et il n'y a pas de fonction type "is boolean"

Enfin, je dois utiliser la fonction Cells(1,3) au lieu du range à cause de boucles..

Merci d'avance pour vos réponses, je suis sûr qu'il y a un moyen tout bête, mais le dieu tout puissant Google n'a pas donné de solution

Nicolas

[Invité]

Bonjour

Que veux-tu dire par Booléen dans une cellule Excel , car cela n'existe pas comme on pourrait le dire d'un champ d'une base Access.

Philippe

[Nico820]

C'est un texte qui contient "VRAI" ou "FAUX"
Si on ouvre ce même document en anglais, ça change à "TRUE" et "FALSE"
Bref, il doit y avoir une logique interne excel qui traduit en fonction de la langue.

[jfontaine]

Bonjour,

Est ce que cette fonction t'irait

Code :

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

1
2
3
4
5
6
7
8
9
10
Function Isboolean(Rg As Range)
On Error Resume Next
 
If IsError((CBool(Rg.Value))) Then
    Isboolean = False
Else
    Isboolean = True
End If
 
End Function

[Nico820]

Merci Jérôme,

malheureusement non, car la fonction retourne Vrai si la cellule contient un "8"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function Isboolean(Rg As String)
On Error Resume Next
 
If IsError((CBool(Rg))) Then
    Isboolean = False
Else
    Isboolean = True
End If
 
End Function

Remarque: j'utilise pas Range mais cells

[Invité]

Re

C'est un texte qui contient "VRAI" ou "FAUX"
Si on ouvre ce même document en anglais, ça change à "TRUE" et "FALSE"
Bref, il doit y avoir une logique interne excel qui traduit en fonction de la langue.

Il faudrait éclaircir ce point.

Je pense plus à un code inclus dans le fichier qui ferait la transformation.

Philippe

[Philippe Tulliez]

Bonjour,
As-tu essayé ceci ?

Code :

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

MsgBox Application.WorksheetFunction.IsLogical(Range("B4"))

[jfontaine]

Et pourquoi ne pas adapter le code proposé pour traiter le cas des valeurs numériques ???

[rjamin]

Bonjour,

Le booléen c'est du binaire 0 ou 1
Ainsi si on écrit VRAI dans une cellule A1 par exemple
Si j'écrit en B1
=A1*1 j'ai en réponse 1

Avec FAUX j'aurais 0
Donc un test pour vérifier le si le contenu d'une cellule est VRAI ou TRUE ou ...
donnerait toujours 1 ou 0 si FAUX si cela donne autre chose c'est que ce n'est pas booléen me semble-t-il.
Donc en VBA on peut également tester cela de la même manière.