Macro pour Sélection

Bonjour à tous,

Partant d'une cellule donnée, qui n'est pas systématiquement la même, je voudrais sélectionner une plage de 15 lignes à partir de cette cellule.

Si je suis sur la cellule J12, je voudrais que la macro sélectionne la plage ("J12:J27").

Si je suis sur J21, je voudrais la plage ("J21:J36")

Merci de votre aide

Bonjour,

avec un bouton

Sub Sélection()
Dim Lg%, cL%
    Lg = ActiveCell.Row
    cL = ActiveCell.Column
    Range(Cells(Lg, cL), Cells(Lg + 15, cL)).Select
End Sub

Amicalement

Claude

Bonjour

Bonjour Claude

Une version plus courte (juste pour le plaisir)

Sub Sélection()
  ActiveCell.Resize(16, 1).Select
End Sub

Merci beaucoup à tous les deux.

C'est d'une simplicité démoralisante !

A bientôt peut-être.