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

Résolu/Fermé

supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 6 oct. 2016 à 17:00
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 6 oct. 2016 à 17:18

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!

A voir également:

Excel VBA / Fonction Clic, copier valeur d'une cellule
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Excel fonction si et - Guide
Verrouiller cellule excel - Guide
Copier une vidéo youtube - Guide

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 6/10/2016 à 17:15

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

supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
6 oct. 2016 à 17:18

Ca fonctionne à merveille, merci beaucoup pour ton aide Patrice.

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Dessiner avec son clavier et avec des lettres

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters