Demande selection commande

Question

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

yg_be · Answer

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à.

cs_Le Pivert · Answer

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à

Demande selection commande

2 réponses

Discussions similaires

Newsletters