Code VBA à une condition

Bonjour,

j'ai une colonne (colonne H) dans un fichier où les cellules (de H6 à H400) possèdent une liste déroulante afin de faire un choix.

JE voudrai si ils choisissent dans la liste déroulante "Blanc" qu'un MsgBox apparaisse.

J'ai fait ce code mais le MsgBox n'apparaît pas :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("Planning 2012") If Target.Address = "$H$6:$H$400" Then If Target.Value = "Blanc" Then MsgBox "Prestation externe realisée par un expert externe", vbInformation, "Définition d'un Audit blanc" End If End If End With End Sub

---

Merci pour votre aide.

salut,

tu dois non pas passer par

Code:

---

1 2 3

If Target.Address = "$H$6:$H$400" Then 'suite de ton code End I

---

mais plus

Code:

---

1 2 3

If Not Intersect(Target, Range("$H$6:$H$400")) Is Nothing Then 'suite de ton code End If

---

Bonjour,

Ok j'ai rectifié et celà fonctionne.

Petite explication :
que veut dire :

Code:

---

Intersect

---

?

elle sert à indiquer si une cellule fait partie d'une plage de cellule ou non :)
http://support.microsoft.com/kb/462362/fr