Pop-up une boîte de message quand une valeur de cellule est modifiée

Question

J'ai une feuille excel où une colonne a une validation de liste.

Lorsqu'une entrée particulière de la liste est sélectionnée, j'ai besoin d'une boîte de message à afficher.

Je aurais pu utiliser le code suivant s'il n'y avait que 1 cellule, mais dans mon cas j'ai de nombreuses cellules dans une colonne

Private Sub Worksheet_Change(ByVal Target As Excel.Range)  
    Dim rng As Range 
     Set rng = Range("A1") 
     If Not Intersect(Target, rng) Is Nothing Then 
      If rng = "hi" Then 
       MsgBox "Cell " & _ 
       rng.Address & " = hi" 
      End If 
     End If 
     Set rng = Nothing 
End Sub 

S'il vous plaît aider

Answer 1

examiner la valeur de la Target.Column propriété ....

Supposons que vous voulez examiner la colonne D (valeur numérique 4), vous

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 4 ' examine column D 
    ' code to validate Target 
     If Target = "xxx" Then MsgBox "You chose xxx from the list" 
    End If 
End Sub 

Bonne chance MikeD