Selection d'une plage variable

Fermé

Dror - 4 févr. 2016 à 14:20
pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 - 5 févr. 2016 à 09:32

Bonjour à tous,

Please help, je voudrais selectionner une plage vers le bas, en partant de la cellule active, jusqu'à une ligne que j'ai mémorisé dans "dernlign".

Je m'en sors pas.

J'ai ça

Range(Selection, Selection.End(xlDown)).Select

mais je voudrais l'arrêter à dernlign.

Merci

A voir également:

3 réponses

Réponse 1 / 3

michel_m Messages postés 16591 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 3 février 2023 3 288
4 févr. 2016 à 17:01

bonjour

Dim plage As Range, debut As String, fin As String

debut = ActiveCell.Address
fin = Columns(ActiveCell.Column).Find(what:="*", searchdirection:=xlPrevious).Address
Set plage = Range(debut & ":" & fin)
 MsgBox plage.Address 'vérif

Dror
4 févr. 2016 à 17:14

oula ! Carrément.

Et il est où dernlign ?
A quoi sert la msgbox ?

Réponse 3 / 3

Dror
4 févr. 2016 à 17:06

D'abord, pour identifier la derniere ligne du tableau, je fais :

Range("B5").Select
Selection.End(xlDown).Select
dernlign = Selection.Row

Puis, plus tard, je me trouve sur une cellule quelconque, et j'ai besoin de selection une plage en partant de cette cellule, en descendant jusqu'à la ligne mémorisée.

D'habitude, je fais :

Range("G6:G" & dernlign).Select

Mais là, je ne suis pas forcément en G.

Donc j'ai fais :

Range(Selection, Selection.End(xlDown)).Select

Mais il va jusqu'en bas.

pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 713
5 févr. 2016 à 08:08

Essaie ce test, ça te montrera ce qu'est un MsgBox...

Sub test()
MsgBox Selection.Address
MsgBox Split(Selection.Address, "$")(1)
Dim Lettre As String, dernLign As Long, PremLign As Integer
PremLign = 6
dernLign = Range("B5").End(xlDown).Row
Lettre = Split(Selection.Address, "$")(1)
MsgBox Range(Lettre & PremLign & ":" & Lettre & dernLign).Address
End Sub

michel_m Messages postés 16591 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 3 février 2023 3 288 > pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022
Modifié par michel_m le 5/02/2016 à 09:16

bonjour Frank

dernLign = Range("B5").End(xlDown).Row

thread bizarre car apparemment non fiable:
si il y a une cellule vide avant la dernière ligne la ligne renvoyée sera la ligne de cette cellule
- d'après AV, MVP*Excel, la seule fiable est celle que j'emploie d'après ces conseils.
Je t'envoie le classeur(utilisation de la fonction "evaluate") en MP

Quant à Dror, je le remercie pour sa politesse et son esprit particulièrement ouvert...

MVP: Most valuable Professional, titre attribué par Maison mère Microsoft et attribué annuellement

pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 713 > michel_m Messages postés 16591 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 3 février 2023
5 févr. 2016 à 09:32

Salut Michel,

Oui je sais que ce code n'est pas fiable, j'ai fait une fiche pratique à ce sujet...
J'ai juste repris ce qu'annonce le demandeur.
Après ma réponse n'a ici qu'un but pédagogique.

Mais, sinon, tu as raison sur la méthode find : la seule fiable

A+

Discussions similaires

VBA; Sélection plage variable

selection d'une plage de cellule variable VBA

VBA Excel : sélection d'une plage variable

copier/coller d'une plage de cellule variable en vba

Exécuter une macro sur une plage variable

si la plage contient texte

Discussions similaires

Newsletters