Discussion :

[gwen.s]

Bonjour,

J'essaye d'utiliser une variable booléenne et utiliser le résultat true or false dans une macro

Code :

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

1
2
3
4
5
6
Dim var_bool as boolean
If var_bool= true then 
macro1
else
macro2
end if

La variable booléenne est le résultat d'une recherche de valeur dans une colonne :

Code :

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

var_bool = wb.Sheets("Mysheet").Range("j:j").Find(what:="VALUE")

Cependant, alors que la macro récupère bien la valeur de la variable booléenne (TRUE ou FALSE), elle bloque quand même avec l'erreur
Run time error 91 - Object variable or With block variable not set
J'ai cherché à quoi pouvait correspondre cette erreur mais sans succès, ce que j'ai trouvé ne correspond pas à l'utilisation que j'en fait.

ce que je trouve étrange c'est que quand je mets des tests points, je me rends compte que ma variable a pris une valeur False correcte par rapport à l'exécution de la macro sur un exemple précis...ce qui signifie que l'écriture est correcte mais qu'il me manque quelque chose pour continuer....

Si l'un de vous peut m'aider ce serait avec grand plaisir !!

En vous remerciant

Gwen

[tototiti2008]

Bonjour gwen.s,

Code :

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

wb.Sheets("Mysheet").Range("j:j").Find(what:="VALUE")

te renverra la valeur de la cellule trouvée, s'il la trouve, ou Nothing s'il ne la trouve pas.
Je ne comprend pas bien comment le faire rentrer dans un Booléen ?

A moins que ta problématique est de savoir s'il trouve ou non le mot "VALUE" dans la colonne J, auquel cas ça devrait s'écrire :

Code :

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

var_bool = Not (wb.Sheets("Mysheet").Range("j:j").Find(what:="VALUE") Is Nothing)

Edit : Une autre remarque, quand on utilise Find, la bonne habitude est de spécifier tous les arguments si on ne veut pas de surprise, car Excel a tendance à conserver les derniers paramètres utilisés

[gwen.s]

Bonjour,

Ma problématique est en effet de savoir si cette valeur existe ou non dans la colonne J.

J'ai utilisé ton écriture de code

Code :

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

var_bool = Not (wb.Sheets("Mysheet").Range("j:j").Find(what:="VALUE") Is Nothing)

et cela semble fonctionner.
J'ai un "subscript out of range" mais qui doit venir d'ailleurs...je devrais pouvoir trouver ce problème.

Dans tous les cas, merci pour ton aide.

Gwen

[patricktoulon]

bonjour

si tu cherche une variables booleenne ne t'attend pas a recevoir une variables d'un autre type

boolean=false ou true
string= du texte
long,variant,integer =numerique


au plaisir