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.
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