[Toutes versions] selections de cellules [Résolu]

[Igloobel]

Bonjour à tous

Voilà je cherche à connaitre toutes les adresses de chaque cellule sélectionnées.

exemple je selectionne de B4 jusqu'à B7 (4 cellules donc) et je veux pouvoir récupérer 2-4; 2-5; 2-6; 2-7.

j'ai penser au target de Worksheet_SelectionChange :

Code :

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Row & " - " & Target.Column
 
End Sub

ceci me donne l'adresse de la cellule active donc 2-4 et c'est tout.

je me doute qu'il faut utiliser le for each mais je ne connais pas la collection qui convient.


J'ai cherché dans la FAQ, les tutoriels, et sources sans trop trouver.

Merci d'avance pour votre aide

[Theze]

Bonjour,

Regarde si ceci te convient :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim I As Long
    Dim J As Long
    Dim Adr As String
 
    For I = 1 To Target.Columns.Count
 
        For J = 1 To Target.Rows.Count
 
            Adr = Adr & Target.Column + I - 1 & "-" & Target.Row + J - 1 & Chr(13)
 
            'vire le Chr(13) de fin
            Adr = Left(Adr, Len(Adr) - 1)
 
        Next J
 
    Next I
 
    MsgBox Adr
 
End Sub

Hervé.

[bbil]

Il n'y as rien à faire target te renvoi l'ensemble des plages sélectionnées..

que veut-tu faire ensuite ..?

Code :

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim c As Range
  Dim st As String
 
  For Each c In Target
    st = st & c.Row & "," & c.Column & "/"
  Next
  MsgBox " Plage sélectionné : " & vbCrLf & Target.Address & vbCrLf & "Cellules : " & vbCrLf & st
End Sub

[Igloobel]

Merci Theze pour ta methode mais celle de bbil est exactement ce que je cherchais.

Merci à tous les deux pour votre rapidité

Je cherchais cette collection target que je ne connaissais pas