Discussion :

[thomasdu40]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jean-Philippe André]

salut,

tu dois non pas passer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thomasdu40]

Bonjour,

Ok j'ai rectifié et celà fonctionne.

Petite explication :
que veut dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Intersect

?

[Jean-Philippe André]

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