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

Signaler
Messages postés
54
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
15 décembre 2020
 -
Messages postés
54
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
15 décembre 2020
 -
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

Réponse 1 / 1
Messages postés
8535
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
9 avril 2021
 1 646
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
Signaler
Messages postés
54
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
15 décembre 2020
 1
Ca fonctionne à merveille, merci beaucoup pour ton aide Patrice.
Posez votre question