double clique sur cellule colle valeur 1ere cell

[carlos]

Bonsoir
j'ai trouvé sur le forum et c'est genial

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target = 'X'
Cancel = True
End Sub

comment faire pour que:

1- le X soit en faite le titre de la colonne ou cellule 'g1' par exemple
2- chaque titre soit exclusivement réservé à chaque colonne

En d'autre termes si 'g1'= coucou alors le double clique en g8 me colle coucou
et aussi si 'h1'= c'est moi alors le double clique en h8 me colle c'est moi

MERCI

 

[carlos]

bonsoir

g avancé un peu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim titrecolf As Variant

titrecolf = Cells(1, 6)
Target = titrecolf
Cancel = True

End Sub

je voudrais qu ece soit propre à chaque colonne

Merci

 

[Eric C]

Bonsoir le forumù
Bonsoir Carlos

TitreColf = Cells(1, ActiveCell.Column)
...

Tu vas bien dormir, je pense

 

[carlos]

Bonjour
c'est si compliqué quand on est seul mais si si simple avec vous.

MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIII