value d'une cellule fusionnée

[Seb]

Bonjour,
dans une macro j'essaie de récupérer la valeur de la cellule sélectionnée mais il se passe une erreur (Erreur d'exécution '13' : type incompatible) quand il s'agit d'une cellule fusionnée...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Value
End Sub
Merci si vous pouvez me corriger.

 

[Alain]

Bonjour,


Ci-dessous code corrigé :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Adr
Adr = Target.Address
DeuxPoints = InStr(1, Adr, ":")
If DeuxPoints <> 0 Then
Adr = Left(Adr, DeuxPoints - 1)
End If
MsgBox Range(Adr)
End Sub


@+

 

[pyrof]

Bonjour,

autre solution

msgbox cells(target.row,target.column)