[Toutes versions] Plage de cellule "E" variable [Résolu]

[8e8eClo]

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

[Jean-Pierre49]

Bonjour

tu n'a pas essayé avec

Code :

If Target.Column <> 5 then exit sub

[jfontaine]

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

[Jean-Pierre49]

Bonjour Jérôme

alors je préférais

Code :

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

Cordialement

[8e8eClo]

ça marche.

Merci

[jfontaine]

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

[Jean-Pierre49]

Jérôme

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

Bonne journée

edit Ok j'ai Pas percuter (65536)

[mercatog]

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