Excel VBA / Fonction Clic, copier valeur d'une cellule
Résolu
supraman46
Messages postés
57
Statut
Membre
-
supraman46 Messages postés 57 Statut Membre -
supraman46 Messages postés 57 Statut Membre -
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!
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
-
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
