Excel - Copier et coller des données au clic

Problème

J'ai un ensemble de données sur A2 à A10. Lorsque je frappe la cellule B1 qui contient le mot "Janvier", les données seront copiées dans B2 à B10. Si je frappe dans la cellule D1 qui contient le mot "March", les données seront alors copiées dans les répertoires D2 à D10.

En un mot, j'aimerais que les données soient copiées et collées dans les colonnes sur lesquelles j'ai cliqué.

Solution

J'ai supposé que vous aviez une colonne pour chaque mois, donc le code ne sera activé que lorsqu'une cellule de la plage B1: M1 est sélectionnée.

Ce code devrait faire l'affaire:

 Private Sub Worksheet_SelectionChange (plage cible ByVal en tant que plage) si intersection (cible, plage ("B1: M1")) n'est rien, sous-plage de sortie, par exemple "A2: A10". Sous 

Si vous souhaitez que le code fonctionne pour toute la première ligne, modifiez alors:

 Rangez ("B1: M1") en rangées (1).