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

Macro se déclenche plusieurs fois selon une valeur indiquée dans une cellule

  • Initiateur de la discussion Initiateur de la discussion Lala2014
  • Date de début Date de début

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 !

L

Lala2014

Guest
Bonjour,
j'ai créé une macro qui se déclenche dès que la cellule A1 comprend la valeur "OK".
Sauf que quand je saisie plus bas ou sélectionne des menus déroulant la macro se déclenche encore et encore à chaque clique tant que la valeur OK est présente dans la cellule A1.

Voici la macro que j'ai utilisé mais je pense qu'il manque quelque chose :

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "Coucou" Then
Application.EnableEvents = False
Macro 'lancement de la procèdure appelée ainsi)
Application.EnableEvents = True
End If
End Sub
Pouvez-vous m'aider ? 🙂
 
Re : Macro se déclenche plusieurs fois selon une valeur indiquée dans une cellule

J'ai oublié de préciser que la cellule A1 contient une formule (qui récupère le OK d'une autre feuille...)
 
Re : Macro se déclenche plusieurs fois selon une valeur indiquée dans une cellule

Bonjour.
Alors c'est dans la Worksheet_Change de cette autre feuille qu'il faut lancer cette procédure, quand un antécédent de la formule change.
 
Dernière édition:
Re : Macro se déclenche plusieurs fois selon une valeur indiquée dans une cellule

Merci pour vos réponses, mais j'ai été un peu vite dans mon explication je viens de créer un fichier pour vous expliquer un peu mieux.
Quand je sélectionne le A dans le menu déroulant, il faut que la liste 1,2,3 apparaîsse en dessous.
j'ai fait cette macro (je l'ai un peu retravaillé) mais ça fait l'effet d'une boucle comme la première macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [A1] = "A" Then
Application.EnableEvents = False
Range("I1:I3").Select
Selection.Copy
Range("A4").Select
ActiveSheet.Paste
Application.EnableEvents = True
End If
End Sub

Pour répondre à la première question je l'avais bien mis dans la feuille concernée, et pour la 2ème réponse en fait le problème est que je ne dois pas cliquer dedans pour que le OK apparaisse il est sélectionné par un menu déroulant.
J'espère que c'est un peu plus claire désolée...:s
 

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
332
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…