Coordonnées d'un Range sélectionné

Salut Pierre,

Une piste :
Sub Adresse_Sélection()
MsgBox Selection.Address
End Sub

Serge

"Pierre Pagniez" <pierre.pagniez@libertysurf.fr> a écrit dans le message de
news: BCE55C26.AB9A%pierre.pagniez@libertysurf.fr...

Je souhaite effectuer des traitements sur les cellules d'une zone
sélectionnée dans une feuille de calcul.

Que faut-il faire pour récupérer les coordonnées de la zone?
Et que se passe t il si l'ensemble d'une ligne ou d'une colonne a été
sélectionné.

Merci de votre aide.

PPz

Bonsoir,

En VBA, l'objet Selection reprend toutes les cellules sélectionnées, et se
gère comme une plage de cellules ( puisque c'ent est une... )... Tu disposes
donc de toutes les propriétés et méthodes disponbibles pour les objets RANGE
( plages de cellules) avec l'objet Selection


Cela convient-il?


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Pierre Pagniez" <pierre.pagniez@libertysurf.fr> a écrit dans le message de
news:BCE55C26.AB9A%pierre.pagniez@libertysurf.fr...

Je souhaite effectuer des traitements sur les cellules d'une zone
sélectionnée dans une feuille de calcul.

Que faut-il faire pour récupérer les coordonnées de la zone?
Et que se passe t il si l'ensemble d'une ligne ou d'une colonne a été
sélectionné.

Merci de votre aide.

PPz

bonjour Pierre,

Je souhaite effectuer des traitements sur les cellules d'une zone
sélectionnée dans une feuille de calcul.
Que faut-il faire pour récupérer les coordonnées de la zone?

Sub PalgeSelection()
Set plg = Selection
With plg
PlgAdresse = .Address
PlgPremière = .Item(1).Address
PlgDernière = .Item(plg.Count).Address
End With
End Sub

Et que se passe t il si l'ensemble d'une ligne ou d'une colonne a été
sélectionné.

execute la macro au pas à pas pour voir le résultat.

isabelle

Merci Isabelle, ta proposition m'a bien décoincé, j'ai légèrement modifié ta
proposition, pour finalement retenir ceci:

Sub PalgeSelection()
Set plg = Selection
With plg
PlgAdresse = .Address
Prem_lig = .Item(1).Row
Dern_lig = .Item(plg.Count).Row
Prem_col = .Item(1).Column
Dern_col = .Item(plg.Count).Column
MsgBox ("Prem_lig : " & Prem_lig & " Dern_lig : " & Dern_lig & Chr(13) &
_
"Prem_col : " & Prem_col & " Dern_col : " & Dern_col)
End With
End Sub



PPz



Le 3/06/04 23:07, dans 40BF9328.59CA738D@videotron.ca, « isabelle »
<as.isabellevIE@videotron.ca> a écrit :

bonjour Pierre,

Je souhaite effectuer des traitements sur les cellules d'une zone
sélectionnée dans une feuille de calcul.
Que faut-il faire pour récupérer les coordonnées de la zone?

Sub PalgeSelection()
Set plg = Selection
With plg
PlgAdresse = .Address
PlgPremière = .Item(1).Address
PlgDernière = .Item(plg.Count).Address
End With
End Sub

Et que se passe t il si l'ensemble d'une ligne ou d'une colonne a été
sélectionné.

execute la macro au pas à pas pour voir le résultat.

isabelle