Demande selection commande
Jeff
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Demande selection commande
- Invite de commande - Guide
- Commande terminal mac - Guide
- Commande dism - Guide
- Diskpart commande - Guide
- Commande scannow - Guide
2 réponses
Bonjour,
a mettre dans le module de la feuille concernée
se déclenche à la sélection
Voilà
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à
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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à.
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à.