Worksheet_SelectionChange

[Delcourt]

Bonjour

Ma macro événementielle :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = Range("b1") Then
MsgBox ("OK")
End If
End Sub
----------------------------------------------------------------------------------------
Type incompatible (erreur 13)
-----------------------------------------------------------------------------------------
Ce message apparaît parce que la cellule b1 est fusionnée avec c1.
Quelle bonne âme me donnera le moyen de l'éviter?

MERCI

 

[Robert]

Salut Delcourt, Salut le forum,

Il y a la solution de défusionner C1😀1, puis de sélectionner à nouveau C1😀1 et...
Menu Format / Cellule, onglet "Alignement", champ "Horizontal", sélectionner l'option "Centré sur plusieurs colonnes".

Visuellement c'est le même effet que la fusion sans ses inconvénients.

À plus,

Robert

 

[LaurentTBT]

Bonsoir à tous.
Remplace
If Target = Range("b1") Then
par
If Target.Address = "$B$1:$C$1" Then

D'aprés mon essai, cela fonctionne.

Bonne soirée.