sélectionner de activecell à la dernière ligne de la même colonne

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #22901701
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@@"
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
Le #22901731
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"
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@@"
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
Le #22901981
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
Le #22911051
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" 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" 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@@" 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








Publicité
Poster une réponse
Anonyme