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.