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

Signaler
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
-
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
-
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!

1 réponse

Messages postés
8186
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 septembre 2020
1 467
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
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
1
Ca fonctionne à merveille, merci beaucoup pour ton aide Patrice.