Excel VBA / Fonction Clic, copier valeur d'une cellule
Résolu
supraman46
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
supraman46 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
supraman46 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
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!
A voir également:
- Excel VBA / Fonction Clic, copier valeur d'une cellule
- Fonction si et excel - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
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) :
Cordialement
Patrice
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
supraman46
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
1
Ca fonctionne à merveille, merci beaucoup pour ton aide Patrice.