Copier la valeur d'une cellule fusionnée

Bonjour,

J'ai la ligne suivante qui copie la valeur d'une cellule que je sélectionne :

'Réalise les actions en selectionnant une cellule "Target"

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

OldValue = Target.Value

End Sub

Cela fonctionne bien lorsque je sélectionne une cellule "simple" (exemple : C3). mais indique "erreur d'incompatibilité de type" lorsque je sélectionne une cellule fusionnée.

Y a t'il une solution? Sachant que seule la valeur m'intéresse.

Merci.

Bonjour,

Une proposition à tester:

OldValue = Target(1).Value

=> en cas de sélection multiple, renvoie la valeur de la première cellule (fonctionne également pour une seule cellule)

Cdlt

Bouben