OVH Cloud OVH Cloud

selection dernière ligne d'une liste

4 réponses
Avatar
patrick
bonjour =E0 tous,

une liste de 700 lignes, une formule
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("A1").Select
jusque l=E0 tout va bien.

J'ai trouv=E9 ma derni=E8re ligne et je veux selectionner de=20
cette ligne =E0 la ligne 2 afin de pouvoir nomm=E9e ma zone=20
s=E9lectionn=E9e. Comment faire ?

Merci de votre bont=E9

patrick

4 réponses

Avatar
RaMA
bonsoir

der = [A2].End(xlDown).Row
ActiveWorkbook.Names.Add Name:="MonNom", RefersToR1C1:= _
"þuil1!r2C1:R" & der & "C1"
RaMa
--
.
"patrick" a écrit dans le message de
news:185c01c47be0$01593210$
bonjour à tous,

une liste de 700 lignes, une formule
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("A1").Select
jusque là tout va bien.

J'ai trouvé ma dernière ligne et je veux selectionner de
cette ligne à la ligne 2 afin de pouvoir nommée ma zone
sélectionnée. Comment faire ?

Merci de votre bonté

patrick
Avatar
patrick
-----Message d'origine-----
bonsoir

der = [A2].End(xlDown).Row
ActiveWorkbook.Names.Add Name:="MonNom",
RefersToR1C1:= _

"þuil1!r2C1:R" & der & "C1"
RaMa
--
.
"patrick" a écrit
dans le message de

news:185c01c47be0$01593210$
bonjour à tous,

une liste de 700 lignes, une formule
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("A1").Select
jusque là tout va bien.

J'ai trouvé ma dernière ligne et je veux selectionner de
cette ligne à la ligne 2 afin de pouvoir nommée ma zone
sélectionnée. Comment faire ?

Merci de votre bonté

patrick

Super RaMa cela fonctionne parfaitement. Mais en
admettant que je veuille maintenant selectionner la zone

a2:e2 jusqu'a mes dernières lignes remplies afin de les
copier dans une autre feuille ? Comment faire-je

Merci
Patrick
.



Avatar
RaMA
Sheets("LaFeuilleORIG").Range("A2:E" & DER).Copy _
Destination:=Sheets("MaFeuilDest").Range("A1")
'si A1 est le coin HautGauche de la plage de destination
RaMa
--
.
"patrick" a écrit dans le message de
news:181901c47bec$320c9440$

-----Message d'origine-----
bonsoir

der = [A2].End(xlDown).Row
ActiveWorkbook.Names.Add Name:="MonNom",
RefersToR1C1:= _

"þuil1!r2C1:R" & der & "C1"
RaMa
--
.
"patrick" a écrit
dans le message de

news:185c01c47be0$01593210$
bonjour à tous,

une liste de 700 lignes, une formule
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("A1").Select
jusque là tout va bien.

J'ai trouvé ma dernière ligne et je veux selectionner de
cette ligne à la ligne 2 afin de pouvoir nommée ma zone
sélectionnée. Comment faire ?

Merci de votre bonté

patrick

Super RaMa cela fonctionne parfaitement. Mais en
admettant que je veuille maintenant selectionner la zone

a2:e2 jusqu'a mes dernières lignes remplies afin de les
copier dans une autre feuille ? Comment faire-je

Merci
Patrick
.



Avatar
patrick
-----Message d'origine-----
Sheets("LaFeuilleORIG").Range("A2:E" & DER).Copy _
Destination:=Sheets("MaFeuilDest").Range("A1")
'si A1 est le coin HautGauche de la plage de destination
RaMa
--
.
"patrick" a écrit
dans le message de

news:181901c47bec$320c9440$

-----Message d'origine-----
bonsoir

der = [A2].End(xlDown).Row
ActiveWorkbook.Names.Add Name:="MonNom",
RefersToR1C1:= _

"þuil1!r2C1:R" & der & "C1"
RaMa
--
.
"patrick" a écrit
dans le message de

news:185c01c47be0$01593210$
bonjour à tous,

une liste de 700 lignes, une formule
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("A1").Select
jusque là tout va bien.

J'ai trouvé ma dernière ligne et je veux selectionner de
cette ligne à la ligne 2 afin de pouvoir nommée ma zone
sélectionnée. Comment faire ?

Merci de votre bonté

patrick

Super RaMa cela fonctionne parfaitement. Mais en
admettant que je veuille maintenant selectionner la zone

a2:e2 jusqu'a mes dernières lignes remplies afin de les
copier dans une autre feuille ? Comment faire-je

Merci
Patrick
.

Merci encore pour ton aide RaMa



.