Sélection plage à partir de l'ActiveCell

joel31

XLDnaute Junior
Bonjour le forum,

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

Avec la formule
HTML:
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
HTML:
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

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

Bonjour Joël,

avec ceci:
Code:
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

XLDnaute Junior
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

HTML:
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
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas