Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Evénementielle

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascal82

XLDnaute Occasionnel
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

VB:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
493
Réponses
4
Affichages
441
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…