Demande selection commande
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
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
-
Contributeurbonjour,
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à. -
ContributeurBonjour,
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à
