Selection d'une plage variable

Fermé

Dror - 4 févr. 2016 à 14:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 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:

Vba excel sélectionner une plage de cellules variable
Formule excel pour additionner plusieurs cellules - Guide
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellules excel - Guide
Déplacer une colonne excel - Guide

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 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