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

J

jon

Guest

• 10 Mai 2003

• #2

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

 

Vote positif 0 Vote négatif

E

Eric D

Guest

• 10 Mai 2003

• #3

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

 

Vote positif 0 Vote négatif

J

jon

Guest

• 12 Mai 2003

• #4

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>

 

Vote positif 0 Vote négatif

E

Eric D

Guest

• 13 Mai 2003

• #5

Merci pour ta réponse !

Eric

 

Vote positif 0 Vote négatif