sélectionner de activecell à la dernière ligne de la même colonne
4 réponses
J
Bonjour à tous
Je cherche à sélectionner une colonne, entre la cellule active et la
dernière cellule de la colonne.
J'ai faux, sûrement parce que je suis englué par le froid.
Une bonne âme pourrait-elle me corriger cela, svp
Joyeuse neige.
(Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°)
Merci
@+
J@@
Sub SelectCol()
Premlig = ActiveCell.Row
MsgBox ActiveCell.Row
' On Error Resume Next
Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
MsgBox Derlig
Range(Premlig, [Derlig]).Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tatanka
Salut,
Essaie ceci :
Sub Sélection() With ActiveCell pl = .Row col = .Column dl = .End(xlDown).Row End With Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"J@@" a écrit dans le message de news: idpmou$m1o$
Bonjour à tous Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne. J'ai faux, sûrement parce que je suis englué par le froid. Une bonne âme pourrait-elle me corriger cela, svp Joyeuse neige. (Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°) Merci @+ J@@
Sub SelectCol() Premlig = ActiveCell.Row MsgBox ActiveCell.Row
' On Error Resume Next Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row MsgBox Derlig Range(Premlig, [Derlig]).Select End Sub
Salut,
Essaie ceci :
Sub Sélection()
With ActiveCell
pl = .Row
col = .Column
dl = .End(xlDown).Row
End With
Range(Cells(pl, col), Cells(dl, col)).Select
End Sub
Serge
"J@@" <kjg@hy.gg> a écrit dans le message de news: idpmou$m1o$1@speranza.aioe.org...
Bonjour à tous
Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne.
J'ai faux, sûrement parce que je suis englué par le froid.
Une bonne âme pourrait-elle me corriger cela, svp
Joyeuse neige.
(Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°)
Merci
@+
J@@
Sub SelectCol()
Premlig = ActiveCell.Row
MsgBox ActiveCell.Row
' On Error Resume Next
Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
MsgBox Derlig
Range(Premlig, [Derlig]).Select
End Sub
Sub Sélection() With ActiveCell pl = .Row col = .Column dl = .End(xlDown).Row End With Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"J@@" a écrit dans le message de news: idpmou$m1o$
Bonjour à tous Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne. J'ai faux, sûrement parce que je suis englué par le froid. Une bonne âme pourrait-elle me corriger cela, svp Joyeuse neige. (Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°) Merci @+ J@@
Sub SelectCol() Premlig = ActiveCell.Row MsgBox ActiveCell.Row
' On Error Resume Next Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row MsgBox Derlig Range(Premlig, [Derlig]).Select End Sub
Tatanka
Oups, plutôt ceci en attendant plus simple :
Sub Sélection() Set ici = ActiveCell pl = ici.Row col = ici.Column nl = Columns(col).Rows.Count dl = Cells(nl, col).End(xlUp).Row Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"Tatanka" a écrit dans le message de news: idpqgf$t0r$
Salut,
Essaie ceci :
Sub Sélection() With ActiveCell pl = .Row col = .Column dl = .End(xlDown).Row End With Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"J@@" a écrit dans le message de news: idpmou$m1o$
Bonjour à tous Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne. J'ai faux, sûrement parce que je suis englué par le froid. Une bonne âme pourrait-elle me corriger cela, svp Joyeuse neige. (Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°) Merci @+ J@@
Sub SelectCol() Premlig = ActiveCell.Row MsgBox ActiveCell.Row
' On Error Resume Next Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row MsgBox Derlig Range(Premlig, [Derlig]).Select End Sub
Oups, plutôt ceci en attendant plus simple :
Sub Sélection()
Set ici = ActiveCell
pl = ici.Row
col = ici.Column
nl = Columns(col).Rows.Count
dl = Cells(nl, col).End(xlUp).Row
Range(Cells(pl, col), Cells(dl, col)).Select
End Sub
Serge
"Tatanka" <ramanujan@videotron.ca> a écrit dans le message de news: idpqgf$t0r$1@speranza.aioe.org...
Salut,
Essaie ceci :
Sub Sélection()
With ActiveCell
pl = .Row
col = .Column
dl = .End(xlDown).Row
End With
Range(Cells(pl, col), Cells(dl, col)).Select
End Sub
Serge
"J@@" <kjg@hy.gg> a écrit dans le message de news: idpmou$m1o$1@speranza.aioe.org...
Bonjour à tous
Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne.
J'ai faux, sûrement parce que je suis englué par le froid.
Une bonne âme pourrait-elle me corriger cela, svp
Joyeuse neige.
(Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°)
Merci
@+
J@@
Sub SelectCol()
Premlig = ActiveCell.Row
MsgBox ActiveCell.Row
' On Error Resume Next
Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
MsgBox Derlig
Range(Premlig, [Derlig]).Select
End Sub
Sub Sélection() Set ici = ActiveCell pl = ici.Row col = ici.Column nl = Columns(col).Rows.Count dl = Cells(nl, col).End(xlUp).Row Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"Tatanka" a écrit dans le message de news: idpqgf$t0r$
Salut,
Essaie ceci :
Sub Sélection() With ActiveCell pl = .Row col = .Column dl = .End(xlDown).Row End With Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"J@@" a écrit dans le message de news: idpmou$m1o$
Bonjour à tous Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne. J'ai faux, sûrement parce que je suis englué par le froid. Une bonne âme pourrait-elle me corriger cela, svp Joyeuse neige. (Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°) Merci @+ J@@
Sub SelectCol() Premlig = ActiveCell.Row MsgBox ActiveCell.Row
' On Error Resume Next Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row MsgBox Derlig Range(Premlig, [Derlig]).Select End Sub
J
Bonjour Serge Impeccable Aux petits oignons :-) Merci Et bonjour à la Belle Province Amicalement J@@
Le 08/12/2010 19:54, Tatanka a écrit :
Sub Sélection() Set ici = ActiveCell pl = ici.Row col = ici.Column nl = Columns(col).Rows.Count dl = Cells(nl, col).End(xlUp).Row Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Bonjour Serge
Impeccable
Aux petits oignons :-)
Merci
Et bonjour à la Belle Province
Amicalement
J@@
Le 08/12/2010 19:54, Tatanka a écrit :
Sub Sélection()
Set ici = ActiveCell
pl = ici.Row
col = ici.Column
nl = Columns(col).Rows.Count
dl = Cells(nl, col).End(xlUp).Row
Range(Cells(pl, col), Cells(dl, col)).Select
End Sub
Bonjour Serge Impeccable Aux petits oignons :-) Merci Et bonjour à la Belle Province Amicalement J@@
Le 08/12/2010 19:54, Tatanka a écrit :
Sub Sélection() Set ici = ActiveCell pl = ici.Row col = ici.Column nl = Columns(col).Rows.Count dl = Cells(nl, col).End(xlUp).Row Range(Cells(pl, col), Cells(dl, col)).Select End Sub
AndréBdR
Très belle macro. J'ai enfin compris à quoi servait "count", lorsqu'on passe par exemple de .xl à .xls et que le nombre de lignes a furieusement augmenté. Petite suggestion: je crois qu'il est possible d'alléger la quatrième ligne nl=Rows.Count
"Tatanka" a écrit dans le message de news:idpqtq$tp2$
Oups, plutôt ceci en attendant plus simple :
Sub Sélection() Set ici = ActiveCell pl = ici.Row col = ici.Column nl = Columns(col).Rows.Count dl = Cells(nl, col).End(xlUp).Row Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"Tatanka" a écrit dans le message de news: idpqgf$t0r$
Salut,
Essaie ceci :
Sub Sélection() With ActiveCell pl = .Row col = .Column dl = .End(xlDown).Row End With Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"J@@" a écrit dans le message de news: idpmou$m1o$
Bonjour à tous Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne. J'ai faux, sûrement parce que je suis englué par le froid. Une bonne âme pourrait-elle me corriger cela, svp Joyeuse neige. (Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°) Merci @+ J@@
Sub SelectCol() Premlig = ActiveCell.Row MsgBox ActiveCell.Row
' On Error Resume Next Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row MsgBox Derlig Range(Premlig, [Derlig]).Select End Sub
Très belle macro.
J'ai enfin compris à quoi servait "count", lorsqu'on passe par exemple de
.xl à .xls et que le nombre de lignes a furieusement augmenté.
Petite suggestion: je crois qu'il est possible d'alléger la quatrième ligne
nl=Rows.Count
"Tatanka" <ramanujan@videotron.ca> a écrit dans le message de
news:idpqtq$tp2$1@speranza.aioe.org...
Oups, plutôt ceci en attendant plus simple :
Sub Sélection()
Set ici = ActiveCell
pl = ici.Row
col = ici.Column
nl = Columns(col).Rows.Count
dl = Cells(nl, col).End(xlUp).Row
Range(Cells(pl, col), Cells(dl, col)).Select
End Sub
Serge
"Tatanka" <ramanujan@videotron.ca> a écrit dans le message de news:
idpqgf$t0r$1@speranza.aioe.org...
Salut,
Essaie ceci :
Sub Sélection()
With ActiveCell
pl = .Row
col = .Column
dl = .End(xlDown).Row
End With
Range(Cells(pl, col), Cells(dl, col)).Select
End Sub
Serge
"J@@" <kjg@hy.gg> a écrit dans le message de news:
idpmou$m1o$1@speranza.aioe.org...
Bonjour à tous
Je cherche à sélectionner une colonne, entre la cellule active et la
dernière cellule de la colonne.
J'ai faux, sûrement parce que je suis englué par le froid.
Une bonne âme pourrait-elle me corriger cela, svp
Joyeuse neige.
(Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°)
Merci
@+
J@@
Sub SelectCol()
Premlig = ActiveCell.Row
MsgBox ActiveCell.Row
' On Error Resume Next
Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
MsgBox Derlig
Range(Premlig, [Derlig]).Select
End Sub
Très belle macro. J'ai enfin compris à quoi servait "count", lorsqu'on passe par exemple de .xl à .xls et que le nombre de lignes a furieusement augmenté. Petite suggestion: je crois qu'il est possible d'alléger la quatrième ligne nl=Rows.Count
"Tatanka" a écrit dans le message de news:idpqtq$tp2$
Oups, plutôt ceci en attendant plus simple :
Sub Sélection() Set ici = ActiveCell pl = ici.Row col = ici.Column nl = Columns(col).Rows.Count dl = Cells(nl, col).End(xlUp).Row Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"Tatanka" a écrit dans le message de news: idpqgf$t0r$
Salut,
Essaie ceci :
Sub Sélection() With ActiveCell pl = .Row col = .Column dl = .End(xlDown).Row End With Range(Cells(pl, col), Cells(dl, col)).Select End Sub
Serge
"J@@" a écrit dans le message de news: idpmou$m1o$
Bonjour à tous Je cherche à sélectionner une colonne, entre la cellule active et la dernière cellule de la colonne. J'ai faux, sûrement parce que je suis englué par le froid. Une bonne âme pourrait-elle me corriger cela, svp Joyeuse neige. (Ici aussi cela se rafraichit: le soleil s'est couché et il fait 29°) Merci @+ J@@
Sub SelectCol() Premlig = ActiveCell.Row MsgBox ActiveCell.Row
' On Error Resume Next Derlig = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row MsgBox Derlig Range(Premlig, [Derlig]).Select End Sub
