Plage de cellule dans colonne - Code a modifier

[PatLac]

Bonjour à Tous !

J´ai un code (ci-dessous) qui en fonction de ce que je saisie dans la colonne E, déclenche un USF.
Ce code agit sur toute la colonne "E".

Je voudrais qu´il n´agisse que sur E5:E55 .
Comment faire ?

Dim Est As Range
 [B] If Target.Column = 5[/B] Then
    With Sheets("DB")
      Set Est = .Columns(1).Find(Target)
      If Est Is Nothing Then UserForm2.Show 'enlever le Not selon le cas
    End With
  End If
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pipapo"
End Sub

D´avance merci.
Cordialement

 

[Robert]

Re : Plage de cellule dans colonne - Code a modifier

Bonjour Patlac, bonjour le forum,

Essaie comme ça :

If Not Application.Intersect(Target, Range("E5:E55")) Is Nothing

 

[PatLac]

Re : Plage de cellule dans colonne - Code a modifier

Bonjour Robert !
Ca ne fonctionne pas, erreur de synthax dans la compilation.
Je mets tout le code, au cas ou :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:="pipapo"
  'condition 1
  If Not Intersect(Target, Range("E8:E41")) Is Nothing Then
    If Target Like "AF-*" Then
      Target.Resize(1, 4).Interior.ColorIndex = 27
      Target.Offset(0, 4) = "AF-TEILE"
    End If
  End If
  'condition 2
  Dim Est As Range
  If Target.Column = 5 Then
    With Sheets("DB")
      Set Est = .Columns(1).Find(Target)
      If Est Is Nothing Then UserForm2.Show 'enlever le Not selon le cas
    End With
  End If
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pipapo"
End Sub

Merci pour votre aide !
Cdt

 

[PatLac]

Re : Plage de cellule dans colonne - Code a modifier

Robert !
Mille excuse, j´ai oublié la fin du code .... Honte sur moi !
Merci encore