Demande selection commande

Signaler
-
Messages postés
6974
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 octobre 2020
-
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

Messages postés
6974
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 octobre 2020
561
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à
Messages postés
12634
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
701
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à.