oSimplifier une suite de cnditions dans une macro

[Magic_Doctor]

Bonsoir,

Soient plusieurs cellules réparties dans une feuille et donc non contiguës.
Quand dans l'une de ces cellules on rentre une valeur erronée, grâce à une macro événementielle qui contrôle la saisie, apparaît "? ? ?".
Si dans l'une de ces cellules apparaît "? ? ?", je voudrais, dans une macro, qu'une variable, supposons "z", soit égale à 1.
Je peux en effet écrire :
If [A].value = "? ? ?" Or .value = "? ? ?" Or ... Then z=1

Mais n'existerait-il pas un moyen plus élégant du style :

If {[A], , ... } = "? ? ?" Then z=1

Merci d'avance pour tout conseil.

 

[job75]

Re : oSimplifier une suite de cnditions dans une macro

Bonsoir Magic Doctor, C-C,

A tester :

If InStr([A1] & [B1] & [C1] & [D1], "? ? ?") Then MsgBox "OK" 'z = 1

A+

 

[job75]

Re : oSimplifier une suite de cnditions dans une macro

Re,

Ou encore :

If [A1] & [B1] & [C1] & [D1] Like "*[?] [?] [?]*" Then MsgBox "OK"

Edit : j'avais oublié les crochets [?]...

A+