Demande selection commande

Fermé
Jeff - 16 oct. 2020 à 15:27
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 oct. 2020 à 16:56
Bonjour,

Je cherche à récupérer les valeurs d'une colonne qui est susceptible de varier en fonction du fichier, pour les coller dans une autre colonne dans un même onglet.

L'idée étant de demander à l'utilisateur d'indiquer une colonne, et de copier la colonne sélectionnée à un emplacement donné.

Par exemple : Je selectionne la colonne/cellule D6, et après la sélection elle se copie colle automatiquement en colonne AJ.

J'ai essayé l'éditeur de macro mais je ne sais pas comment demander à l'utilisateur de sélectionner une colonne.

Merci d'avance pour votre aide
Configuration: Android / Chrome 86.0.4240.99

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
16 oct. 2020 à 16:56
Bonjour,

a mettre dans le module de la feuille concernée
se déclenche à la sélection

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim debut, fin As String
Dim colonne As Integer
On Error Resume Next
With Selection
debut = .Item(1).Address
fin = .Areas(.Areas.Count)(.Areas(.Areas.Count).Count).Address
End With
colonne = InputBox("Entrer votre numero de colonne :", "Numéro de colonne", "10")
Range(debut & ":" & fin).Copy Worksheets("Feuil1").Cells(1, colonne) 'adapter nom de la feuille
End Sub


Voilà
1
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
16 oct. 2020 à 16:01
bonjour,
la macro pourrait être mise en route via une combinaison de touches, et travailler sur base de l'élément sélectionné à ce moment-là.
0