Tester une condition avec des cellule fusionnée

[Rapheux]

Bonjour à tous,

Dans une feuille Excel, j'ai besoin de vérifier qu'un utilisateur à saisie une donnée dans une plage de cellule fusionnée. Malheuresement, chaque tentative me renvoie une erreur. Voici mon code :

Set bl_cells = Range("K6:L7").MergeArea
If bl_cells.Value <> "" Then
msgbox("Il faut saisir un BL")
else
'Suite de la macro
end if

Si quelqu'un à une idée du pourquoi sa fonctionne pas ?

Cdlt,
Rapheux

 

[Rapheux]

Re : Tester une condition avec des cellule fusionnée

Bon bah après plusieurs tentatives, truc bête, il suffisait de faire :

If [B]ActiveSheet.[/B]Range("K6").Value <> "" Then
msgbox("Il faut saisir un BL")
else
'Suite de la macro
end if