VBA Copier en plage variable

Résolu/Fermé
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 23 nov. 2018 à 22:21
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 23 nov. 2018 à 23:19
Bonjour,

J'ai une macro qui me permet de mettre en surbrillance un tableau via la valeur d'une cellule.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("V3:AM502")) Is Nothing Then

Range("S1").Value = Target.Row

End If

End Sub

(j'ai raccourci la macro mais en gros c'est ça)



J'aimerais faire une chose similaire, c'est pour ça que je l'ai prise en exemple.
Je souhaite copier et coller le contenu d'une plage quand je clique sur la ligne

en gros:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("V3:AM502")) Is Nothing Then

Range("Feuille2, A1:O1 ").Value = Colonne W Target.Row:Colonne AK Target.Row

...
En gros:
Quand je clique dans la zone V3:AM502
Les valeurs contenues depuis la colonne W jusque à la colonne AK, dans la ligne sur laquelle j'ai cliqué, soit copiées sur la plage A1:O1 située en feuille 2

Es-ce possible? Auriez vous une piste?

Merci beaucoup!

1 réponse

Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
23 nov. 2018 à 23:19
En fait j'aurais juste besoin de ça, à la limite:

Range("W&(Target.Row):AK&(Target.Row)").Copy

Je crois que je l'ai très mal formulé...
0