Copie de cellule fusionnée par click ou double-click

[Eric D]

Bonjour les EXCELLENTS,

Au programme du jour, copie de cellules fusionnées :

Explication :
Je souhaiterais copier le contenu d'une cellule fusionnée (parmis trois) dans une autre cellule fusionnée, et ceci en cliquant (ou double cliquant) sur celle-ci.
Voir sur le petit exemple joint.

Merci d'avance pour votre coup de main et bonne journée,
Eric

 

[jon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.MergeCells Then [D11].Value = Target.Value: Cancel = True
End Sub

 

[Eric D]

Merci Jon pour ta solution.
C'est effectivement ce que je recherchais.
Cependant, ma feuille de calcul comprend une vingtaine de cellules fusionnées et j'aimerais limiter le fonctionnement de ce code aux 3 cellules mentionnées.
Est-ce possible ?

Merci d'avance pour ta réponse,
Eric

 

[jon]

cherche les anciens messages de ce site avec le moteur de recherche www.google.com

ou lis un peu les sites web qui présentent des ressources sur vba

<http://xlbysteph.free.fr/aideinformatique/actioncellule.htm>
<http://ericrenaud.free.fr>

 

[Eric D]

Merci pour ta réponse !

Eric