Worksheet_Change via une liste déroulante

Fermé
wiam_ Messages postés 169 Date d'inscription samedi 1 mars 2008 Statut Membre Dernière intervention 11 août 2013 - Modifié par wiam_ le 29/07/2011 à 14:36
Bonjour,

J'ai une une macro excel qui permet d'afficher un message ds le cas où la valeur d'une cellule est modifié , ce code code fonctionne très bien ds le cas où la valeur de la cellule est modifiée manuellement . Le problème est que la valeur de cette cellule va être changée via une liste déroulante (grâce à l'indice de la cellule liée).

  
 Private Sub Worksheet_Calculate(ByVal Target As Excel.Range) 
   If Not Intersect(Target, Range("C20")) Is Nothing Then [A20] = Range("C20").Value 
 End Sub 


Voici le code , si vous pouvez me dire ce que je dois changer , ce serait sympa

Merci bcp !!