XL 2010 Detecter une Zone de sélection et le reporter dans une cellule

[SSI83000]

Bonjour à tous je commence un nouveau projet et je recherche une solution par macro pour détecter la zone sélectionner dés lors que ma sourie sélectionne une cellule comment puis je m'y prendre svp merci

 

[bika]

Bonjour
un truc comme ça?

 

[Jacky67]

Bonjour à tous je commence un nouveau projet et je recherche une solution par macro pour détecter la zone sélectionner dés lors que ma sourie sélectionne une cellule comment puis je m'y prendre svp merci

Bonjour,
Si il y a toujours 12 lignes dans les tableaux..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("J5") = "Zone " & Int((Target.Row - 1) / 12 + 1)
  ' ou
  ' MsgBox "Zone " & Int((Target.Row - 1) / 12 + 1)
End Sub

 

[SSI83000]

Merci à toi pour ton aide c'est parfait