XL 2016 vba récuperer selection

[Calizarine]

Bonjour,
Comment récupérer en code VBA les plages préalablement sélectionnées dans un tableau avec la souri ?
Merci beaucoup

 

[Gégé-45550]

Bonjour,
dans l'évènement Worksheet_SelectionChange de la feuille en question.
Par exemple, pour colorier le fond des cellules sélectionnées en rouge.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.Interior.Color = vbRed
End Sub

C'est le mot-clé "Selection" qui représente la sélection faite préalablement.
Cordialement,

 

[Dranreb]

Bpnjour.
Le plus simple est de prendre l'argument Target d'une Sub Worksheet_SelectionChange écrite dans le module de l'objet Worksheet représentant la feuille.
Sinon, si c'est une macro d'un module standard lancée après que la sélection ait été faite, il y a Selection tout simplement.

 

[Phil69970]

Bonjour à tous

Je te propose :

Maplage = Selection.Address(0, 0)
MsgBox Maplage

Merci de ton retour

@Phil69970

 

[Calizarine]

Merci beaucoup pour vos réponses. Je suis débutante, je vais tester les différentes solutions, laissez-moi un peu de temps.

 

[Calizarine]

Bonjour,
J'ai essayé de comprendre et de chercher sur le net d'autres solutions, sans succès.
Le but serait de pouvoir recopier les lignes sélectionnées avec la souri du tableau _TAB_SARL vers un autre tableau, mais seulement si la colonne "Mode" comporte le texte "ESP"

J'aurais aimé utiliser l'élégante proposition de @Phil69970 :
Maplage = Selection.Address(0, 0)
MsgBox Maplage
mais c'est un échec.

Pour plus de souplesse je voulais aussi, au lieu d'utiliser :
colonneMode = 7
cibler la colonne par son nom :
colonneMode = Range("_TAB_SARL[Mode]")
mais c'est, là aussi, un échec.


Sub copier_esp_vers_caisse_especes_sarl()

Dim premiereLigneSelection As Integer
Dim derniereLigneSelection As Integer
Dim nombreLignesSelection As Integer

Dim ligneTest As Integer
Dim colonneMode As Integer
Dim col As Integer


premiereLigneSelection = Selection.Row
nombreLignesSelection = Selection.Rows.Count
derniereLigneSelection = premiereLigneSelection + nombreLignesSelection - 1
colonneMode = 6

ligneTest = premiereLigneSelection
While (ligneTest <= derniereLigneSelection)
'Test pour vérifier la sélection'
Cells(ligneTest, colonneMode).Value = "Miro"

ligneTest = ligneTest + 1
Wend

End Sub