Evénementielle

[pascal82]

Bonjour à tous,

J'ai crée une liste déroulante (contrôle de formulaire) avec cellule liée (D1).
Lorsque je modifie la valeur de la liste déroulante, la macro ne se lance pas, pourquoi ? J'ai probablement raté un truc.
Cependant ce code fonctionne en cas de modification manuelle

Merci par avance
Cordialement

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("D1:E1")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    MsgBox "La cellule " & Target.Address & " a été modifiée."
    End If
    
End Sub

 

[camarchepas]

Re : Evénementielle

Bonjour ,

En faisant clic droit sur la liste déroulante , puis associer une macro

pourrait être une solution

 

[pascal82]

Re : Evénementielle

Bonjour,
Ta proposition est très intéressante. Je me suis enfermé dans une solution que je ne pouvais pas faire fonctionner alors qu'il y avait beaucoup plus simple.
Bravo pour ton génie
Cordialement