Excel VBA / Fonction Clic, copier valeur d'une cellule Résolu/Fermé

Question

Bonjour, 

J'utilise cette fonction:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then

Ma macro?

End If
End Sub


J'aimerais que lorsque j'appuie sur une cellule dans la colonne B exemple B5 que la valeur dans C5 soit copier et coller ailleur sur ma feuille, exemple H1

Quel code que je pourrais rajouter qui exécuterait cette fonction?

voici mon fichier:

https://www.cjoint.com/c/FJgoZGnXA4I


merci à l'avance pour votre aide!

Configuration: Windows 7 / Chrome 53.0.2785.143

Patrice33740 · Answer

Bonjour,

Il est préférable d'utiliser le clic droit au double clic (qui lance le mode édition de la cellule) :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Application.Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
[H1].Value = Target.Offset(0, 1).Value
End Sub

 
Cordialement
Patrice

Excel VBA / Fonction Clic, copier valeur d'une cellule

1 réponse

Discussions similaires