Récupérer les adresses de début et fin de sélection dans Excel

Récupérer les adresses de début et fin de sélection dans Excel - VB/VBA/VBS - Programmation

Marsh Posté le 21-07-2003 à 18:06:02    

Petit problème : je cherche à récupérer les adresses des premières et dernières cellules d'une sélection dans Excel, grâce à VBA.
 
Exemple : l'utilisateur sélectionne une plage de A4 à E5, je voudrais récupérer "A4" et "E5" (ou encore mieux (1,4) et (5,5) : numéros de ligne et de colonne)
 
Quelqu'un peut m'aider ?

Reply

Marsh Posté le 21-07-2003 à 18:06:02   

Reply

Marsh Posté le 22-07-2003 à 04:19:07    

brizggy a écrit :

Petit problème : je cherche à récupérer les adresses des premières et dernières cellules d'une sélection dans Excel, grâce à VBA.
 
Exemple : l'utilisateur sélectionne une plage de A4 à E5, je voudrais récupérer "A4" et "E5" (ou encore mieux (1,4) et (5,5) : numéros de ligne et de colonne)
 
Quelqu'un peut m'aider ?


premierecellule= activecell.offset(selection.rows.count -1).address
dernierecellule=activecell.offset(selection.rows.count-1, selection.columns.count-1).address

Reply

Marsh Posté le 22-07-2003 à 09:18:52    

Non, ça ne marche pas. Enfin, ça peut marcher mais ce n'est pas très sécurisé. Si l'utilisateur sélectionne une plage puis tape plusieurs fois sur entrée, la sélection reste la même mais la cellule active change.
Cette manipulation fausse totalement les résultats. Je crois que je vais me débrouiller avec Selection.Address, que je viens de découvrir et qui renvoie l'adresse complète de la sélection.

Reply

Marsh Posté le 22-07-2003 à 09:32:01    

Je fais un peu les questions et les réponses mais, pour ceux que ça intéresse :
 
    LigneDebut = Selection.Row
    LigneFin = LigneDebut + Selection.Rows.Count - 1
     
    ColonneDebut = Selection.Column
    ColonneFin = ColonneDebut + Selection.Columns.Count - 1

Reply

Marsh Posté le 11-04-2017 à 08:51:41    

marche pas pour plusieurs sélections !

Reply

Marsh Posté le 11-04-2017 à 13:56:09    

 
             Consulter déjà l'aide VBA interne de la collection  Areas  ‼
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed