Sélection plage à partir de l'ActiveCell

[joel31]

Bonjour le forum,

Je n'arrive pas à trouver la réponse à mon problème :

Avec la formule

Range("A1:EXZ" & Range("EXZ500").End(xlUp).Row).Select

je sélectionne une plage de la cellule A1 jusqu'à la dernière cellule non vide de la colonne EXZ.

Or je souhaiterais sélectionner cette plage à partir de ma cellule active, qui peut bien sûr varier, du style

Range("ActiveCell":"EXZ" & Range("EXZ500").End(xlUp).Row).Select

Je retourne ça dans tous les sens mais je n'y arrive pas.
Un petit coup de pouce me serait d'un grand secours.

Très cordialement
Joël

 

[phlaurent55]

Re : Sélection plage à partir de l'ActiveCell

Bonjour Joël,

avec ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(Range("EXZ500").End(xlUp).Row, 4030)).Select
End Sub

à+
Philippe

 

[joel31]

Re : Sélection plage à partir de l'ActiveCell

Bonjour Philippe, le Forum,

Je te remercie pour ta réponse rapide et efficace.
J'ai intégré ton code dans ma macro, c'est nickel
C'est pour alterner les couleurs si l'on insère une ligne.dans une plage, moins lourd que la MFC

Sub Couleur()
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(Range("EXZ500").End(xlUp).Row, 4030)).Select
For Each c In Selection
 If ActiveCell.Offset(-1, 0).Interior.Color = RGB(242, 242, 242) Then
If c.Interior.Color = RGB(242, 242, 242) Then
 c.Interior.Color = RGB(217, 217, 217)
 Else
If c.Interior.Color = RGB(217, 217, 217) Then
 c.Interior.Color = RGB(242, 242, 242)
End If
 End If
 End If
 Next c
End Sub

Excellente soirée.

Très cordialement