Intersect dans une plage variable

Bonjour le forum,

Première fois que je touche à Intersect et je galère déjà... Je cherche à voir s'il y a une modification dans une colonne d'une taille variable, j'utilise donc worksheet_change et intersect mais j'ai une erreur 13 qui arrive malgré plusieurs syntaxe essayées et pourtant, je pense avoir bien un objet ici. Voici mon code:

Private Sub Worksheet_Change(ByVal Target As Range)

        If Not Intersect(Target, ActiveSheet.Range("E1:" & Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Address(False, False))) Then

            'code

        End If

End Sub

J'ai déjà essayé de simplement mettre ActiveSheets.Columns("E") mais même problème.

Merci d'avance,

Retra

Bonjour,

Il manque le is nothing^^

Voici un essai :

Private Sub Worksheet_Change(ByVal Target As Range)
nbl = Range("E" & me.Rows.Count).End(xlUp).row + 1
If Not Intersect(Target, Range("E1:E" & nbl)) is nothing Then
    'code
End If
End Sub

Remarques : Pas besoin de préciser Activesheet puisque l'évènement porte sur la feuille en question. Si besoin, on peut faire référence à la feuille par le mot Me.

Cdlt,

Bonjour 3GB,

Oh oui en effet, merci!

Et merci aussi pour la remarque!