Discussion :

[belfaigore]

Bonjour,

J'utilise un formulaire dans lequelle je voudrais afficher dans 2 Textbox la case de début et de fin d'une zone de sélection.
Typiquement, l'utilisateur sélectionne une zone de cellule, par exemple de A1 à K7 et moi je cherche une fonction ou une methode permettant de renvoyer "A1:K7".

[belfaigore]

J'ai développé une petite macro ... si quelqu'un connait une methode plus simple, plus optimisé, se serait bienvenu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'
'Renvoie la zone sélectionné
'
Public Function ZoneDeSelection(Optional RowAbsolute As Boolean = True, Optional ColumnAbsolute As Boolean = True, Optional ReferenceStyle As XlReferenceStyle = xlA1) As String
    Dim c As Range
    Dim FirstCell, LastCell, Zone As String
 
 
    FirstCell = ActiveCell.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle)
    For Each c In Selection
        'MsgBox c.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle)
        LastCell = c.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle)
    Next c
 
    If FirstCell = LastCell Then Zone = FirstCell Else Zone = FirstCell & ":" & LastCell
 
    ZoneDeSelection = Replace(Zone, "$", "")
End Function

[Macktoub]

Je vois que les messages date un peu mais je pense qu'il est possible d'obtenir ce résultat en utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'
Range("A1").CurrentRegion.Address()

Si jamais ça peut être utile à quelqu'un

[Philippe Tulliez]

Bonjour,

J'utilise un formulaire dans lequelle je voudrais afficher dans 2 Textbox la case de début et de fin d'une zone de sélection.
Typiquement, l'utilisateur sélectionne une zone de cellule, par exemple de A1 à K7 et moi je cherche une fonction ou une methode permettant de renvoyer "A1:K7".

Une sélection de cellules est un objet Selection

Un objet a des propriétés dont Address donc MsgBox Selection.Address affichera l'adresse de la sélection et si l'on souhaite connaître l'adresse complète de la sélection pn ajoutera l'argument External soit MsgBox Selection.Address(External:=True)

On peut également intercepter l'action de sélectionner une plage de cellules à l'aide de la procédure événementielle Worksheet_SelectionChange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  MsgBox Target.Address(External:=True)
End Sub