Plage de cellule "E" variable

Bonjour,

J'ai un bouton qui me permet d'ajouter une ligne dans un tableau.
Quand on clique dans la cellule "E" un classeur s'ouvre.
Cependant, j'aimerais que le clique dans la cellule se limite aux cellules "E" comprise dans le tableau.

Pour l'instant j'ai ce code :

Code:

---

1 2 3 4 5

Private sub Worksheet_SelectionChange (byval Target as Range) Set Plage = range("E:E") If not intersect(Target,plage) is nothing then ... end if

---

Je ne peux pas définir une plage fixe vu que je ne connais pas le nombre de ligne du tableau.

Merci

Bonjour

tu n'a pas essayé avec

Code:

---

If Target.Column <> 5 then exit sub

---

Bonjour,

Penses a déclarer ta variable Plage en type Range

Essais comme cela (en considérant que ton tableau commence sur la ligne 1)

Code:

---

1 2 3 4 5 6

Private sub Worksheet_SelectionChange (byval Target as Range) Dim Plage as Range Set plage = Me.Range("E1:E" & Range("E" & Me.Rows.Count).End(xlUp).Row) If not intersect(Target,plage) is nothing then ... end if

---

Bonjour Jérôme

alors je préférais

Code:

---

Set plage = Me.Range("E1:E" & Range("E65536").End(xlUp).Row)

---

Cordialement

ça marche.

Merci

Salut Jean-Pierre49,

Je suis ok avec toi et j'utilisais aussi 65536 en dur.
Mais ça peut poser des problèmes à partir d'excel 2007.

C'est pour cela que je j'utilise Rows.count

Jérôme

Pour l'info, je n'ai de problème avec 2010

Bonne journée

edit Ok j'ai Pas percuter (65536):ccool:

Bonjour à tous
Une autre proposition

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Not Intersect(Target, Range("E:E"), UsedRange) Is Nothing Then '....   End If End Sub

---