Récupérer lignes et colonne d'un range

[Hady]

Bonjour à tous!

Voilà ce que j'aimerais faire

L'utlisateur sélectionne des cellules. Ex range('A38')
Je voudrais faire une macro qui récupère:
- La première ligne (3) et la dernière (8)
- La première colonne (1) et la dernière (4)
Tout ceci dans 4 variables différentes bien sûr.
J'ai essayé avec Selection.Address, je pense qu'après on doit pouvoir traiter le string grace aux dollars (Selection.address = '$A$3:$D$8'). Mais je dois dire que je en vois pas trop comment...

Si quelqu'un peut m'aider ou m'apporter une solution différente de la piste que j'ai suivi ce serait cool!
Merci

 

[2passage]

Bonjour,

Alors... dans l'ordre.. je ne sais pas si c est le plus simple maios ca marche :

ligne 1 :  ActiveWindow.RangeSelection.Row
colonne 1 :  ActiveWindow.RangeSelection.Column
Dernière ligne : ActiveWindow.RangeSelection.Row + ActiveWindow.RangeSelection.Rows.Count - 1
Dernière colonne : ActiveWindow.RangeSelection.Column + ActiveWindow.RangeSelection.Columns.Count - 1

A+

 

[Hady]

Thank you so much!

 

[Bernard_XLD]

Bonjour hady, 2passage

en retard mais bon c'est fait, c'est fait, autant le proposer: voici un code de feuille faisant cela.

Public Premiere_Colonne As Integer, Derniere_Colonne As Integer
Public Premiere_Ligne As Long, Derniere_Ligne As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Premiere_Colonne = Target.Column
Derniere_Colonne = (Premiere_Colonne + Target.Columns.Count) - 1
Premiere_Ligne = Target.Row
Derniere_Ligne = (Target.Row + Target.Rows.Count) - 1
MsgBox 'Colonne de début : ' & Premiere_Colonne & Chr(10) & 'Colonne de fin : ' & Derniere_Colonne _
& Chr(10) & 'Ligne de début : ' & Premiere_Ligne & Chr(10) & 'Ligne de fin : ' & Derniere_Ligne, vbOKOnly + vbInformation
End Sub