Visual Basic For Applications
Double clique sur une cellule pour copier son contenu !

Encore une macro simple d’utilisation qui permet de copier/coller une valeur dans une autre cellule simplement en double cliquant sur une autre cellule.

Principe

Sur le même principe qu’ajouter une valeur par défaut dans une cellule, cette macro fonctionne lorsque l’utilisateur effectue une action sur une ou plusieurs cellules.

Cette macro peut être utile notamment pour éviter d’avoir besoin de faire des actions de copier/coller manuellement, ou bien de permettre de choisir une valeur simplement en double cliquant dessus au lieu d’utiliser une liste déroulante.







La macro

Adapter et utiliser le code

Le code utilise une procédure appelée « évènement » qui permet de déclencher la macro automatiquement aussitôt qu’une action spécifique est réalisée. Il existe plusieurs procédures d’évènements que vous pouvez retrouver ici.

Puisqu’il s’agit d’un évènement qui s’applique au niveau de la feuille de calcul (et non pas au niveau du classeur), le code doit être inscrit dans le module d’objet de la feuille en question et pas dans un module.

Pour utiliser le code ci-dessous, il vous suffit de copier/coller puis de modifier les différentes informations :

  • Indiquez vos cellules cibles dans le Range de l’instruction For Each : vous pouvez indiquer une ou plusieurs cellules adjacentes.
  • Indiquez ou votre valeur sera copiée à la place du « B1 ».

l’instruction Cancel = True permet d’éviter de rentrer dans l’éditeur de la cellule lorsqu’on double clique dessus.


Le code

'Auteur : www.Indexmatch.fr
'Date : 07/2018
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim cell As Object
 
        For Each cell In Range("A2:A10")
 
               Range("B1").Value = ActiveCell.Value
 
        Next cell
 
        Cancel = True
 
End Sub
Notez nous !
[Moyenne : 5]