Macro liste de validation

[asset]

bonjour à tous,

j'ai recuperer une macro pour une liste de validation suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
Application.EnableEvents = False
mp = InputBox("Mot de passe? ")
If mp <> "toto" Then
Application.Undo
MsgBox "Annulé!"
End If
Application.EnableEvents = True
End If
End Sub

Sauf que mon probleme cette liste de validation ce limite a la cellule B2, je voudrais que ca soit toute la colonne B qui bloqué par le mot de passe.

merci d'avance de votre aide

 

[Papou-net]

Re : Macro liste de validation

Bonsoir asset,

Voici comment modifier ton code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B:B"), Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
mp = InputBox("Mot de passe? ")
If mp <> "toto" Then
Application.Undo
MsgBox "Annulé!"
End If
Application.EnableEvents = True
End If
End Sub

Espérant avoir répondu.

Cordialement.