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

Activer une macro suivant la valeur d'une cellule

  • Initiateur de la discussion Initiateur de la discussion chnook
  • 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 !

C

chnook

Guest
Bonjour à tous,

Je souhaiterai savoir comment faire pour qu'une macro s'active dès qu'une certaine valeur apparait dans une certaine cellule.
Illustration :
Je veux que
lorsque ma cellule A:1 affiche "problème de dim."
Alors ma macro intillée "correction" s'active.

Si quelqu'un sait comment faire merci d'avance
Bonne journée
 
Re : Activer une macro suivant la valeur d'une cellule

Bonjour à tous,

A placer dans le code la feuille :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "problème de dim." Then Call correction
End Sub
A + à tous
 

Pièces jointes

Dernière édition:
Re : Activer une macro suivant la valeur d'une cellule

Salut chnook et le forum
Je veux que lorsque ma cellule A1 affiche "problème de dim."
Alors ma macro intitulée "correction" s'active.
Juste une question : comment le texte apparaît-il dans la cellule A1 ? Par macro, Formule, format ?
A+
 
Re : Activer une macro suivant la valeur d'une cellule

Avec une fonction logique "si"
c'est à dire que A:1 = si(Qlim_dc<Qmax_dc;"Dim.correcte";"problème de dim.")
 
Re : Activer une macro suivant la valeur d'une cellule

Salut chnook et le forum
Petit rappel : on n'est ni télépathe, ni devin, et on n'utilise pas ton fichier !
Faut vraiment t'arracher les infos...

A1 :
Code:
= si(Qlim_dc<Qmax_dc;"Dim.correcte";"problème de dim.")
J'en déduit que Qlim_dc et Qmax_dc sont deux cellules nommées.
Dans les modules liés à la/les feuille(s) qui les contien(nen)t, il faut faire la macro de JCGL, en précisant pour A1, la feuille qui la contient : A1 contenant une formule, son changement d'affichage ne déclenche aucune macro. Donc, il faut que ce soit les changements de contenu (pas d'affichage), qui déclenche le contrôle de A1, pour lancement de ton autre macro.
Ou que t'utilise la macro Worksheet_Calculate.
Si tu n'y arrives pas, donnes au minimum à quoi font référence Qlim_dc et Qmax

A+
 
Dernière édition:
Re : Activer une macro suivant la valeur d'une cellule

Pardon pour le manque d'info.
La macro de JCGL marche du tonnerre. Mais le problème est dès que l'utilisateur entre la valeur de qmax_dc, la fonction "si" la compare alors directement avec Qlim_dc. Or l'utilisateur doit rentrer pas mal de données avant de sortir la valeur de qlim_dc. Uns fois que toutes les données sont rentrées, l'utilisateur est à la Feuille 8 du classeur. Or le message de la macro de JCGL doit s'afficher dans la feuille 3. Est ce que l'on peut créer une macro associer à un bouton ayant comme nom "obtenir le résultat" que l'on place en feuille 8 et qui a pour but de :
1 - afficher la feuille 3 au lieu de la feuille 8
2 - activer la macro de JCGL
???
Est ce que c'est claire ? j'espère que cette fois toutes les infos sont présentes.
Encore merci pour l'aide
 
Re : Activer une macro suivant la valeur d'une cellule

Salut chnook et le forum
Je suis pas sûr de comprendre :
Je souhaiterai savoir comment faire pour qu'une macro s'active dès qu'une certaine valeur apparait dans une certaine cellule.
Ça c'est un fonctionnement automatique.
une macro associer à un bouton ayant comme nom "obtenir le résultat" que l'on place en feuille 8 et qui a pour but de :
1 - afficher la feuille 3 au lieu de la feuille 8
2 - activer la macro de JCGL
Ça, c'est un fonctionnement purement manuel !
Tu n'as pas besoin d'une macro automatique
Tu fais juste un bouton qui te lance la macro (clic-droit dessus=>menu contextuel>>Visualiser le code
- tu testes A1 If Range("A1") = "problème de dim." Then Call correction
- tu actives la feuille 8 sheets("Feuil8").activate
A+
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…