Lancer une macro automatiquement

Bonjour

Je souhaiterais sur mon fichier joint

lancer différentes macros automatiquement

en fonction des critères suivant.

Quand la cellule AY23 est égal a 1 la macro "ROUGE" ce lance automatiquement

Quand la cellule BA23 est égal a 1 la macro "NOIR" ce lance automatiquement

Quand la cellule BC23 est égal a 1 la macro "PAIR" ce lance automatiquement

Quand la cellule BE23 est égal a 1 la macro "IMPAIR" ce lance automatiquement

J'ai essayé différentes facon mais sans succès

Merci pour votre aide

Eric

13programme1-2-3.xlsm (275.12 Ko)

Bonjour,

J'ai honte, mieux vaut prendre le code de H2So4

Par contre dans tes macros la Feuil2 n'existe plus.

bonjour,

ajoute ceci dans le module de la feuille stats

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Address
        Case "$AY23"
            ROUGE
        Case "$BA$23"
            NOIR
        Case "$BC$23"
            PAIR
        Case "$BE$23"
            IMPAIR
    End Select
    Application.EnableEvents = True
End Sub

Merci mais je crois que j'ai mal inséré le code

ça ne fonctionne pas

capture

bonjour,

edit : bonjour ergotamine, désolé je n'ai pas vu que tu avais proposé une solution.

il manquait le test sur la valeur 1

voici une correction du code proposé ( c'est worksheet_change et non worksheet_selectionchange !)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target = 1 Then
        Application.EnableEvents = False
        Select Case Target.Address
            Case "$AY$23"
                ROUGE
            Case "$BA$23"
                NOIR
            Case "$BC$23"
                PAIR
            Case "$BE$23"
                IMPAIR
        End Select
        Application.EnableEvents = True
    End If
End Sub

Bonjour H2So4,

Il reprenait mon code mais il est tout moche a côté du tien donc je l'ai supprimé, c'est de ma faute

Désolé

Bonjour,

Comme les Target sont des formules il y a des chances pour que ça ne marche pas ?

Moi je l'aurai plutôt vu sur un Calculate mébon...

Le problème c'est les Reset et autres évènements éventuellement parasites.

Private Sub Worksheet_Calculate()
    If Range("AY23") = 1 Then
      Call Module3.ROUGE
    End If
    If Range("BA23") = 1 Then
      Call Module3.NOIR
    End If
    If Range("BC23") = 1 Then
      Call Module3.PAIR
    End If
    If Range("BE23") = 1 Then
      Call Module3.IMPAIR
    End If
End Sub

A+

Bonjour Galopin,

Par contre je me demandais est-ce que l'user voulait tester les formules de toutes les cellules d'un coup afin de ne pas reboucler sur toutes, ou uniquement celles changeant ?

Non ça ne fonctionne pas

Ben chez moi ça marche (plus ou moins...! )sauf que ton classeur est pourri les noms de feuilles ne correspondent pas et les macros couleurs sont pas TOP, mébon j'essaie aussi de voir comment intercepter le reset et les autres boutons. C'est pas simple car il faut que je corrige les macros tout en essayant de comprendre l'idée. Faudra patienter...

Merci

Bon je perds un peu mon temps la-dessus... Ça marche sans marcher parce que ce classeur est pourri. Je n'ai pas le temps de m'amuser à chercher les erreur : Si tu mets la macro Calculate dans le VBA de la feuille Stats. ça déclanche à tous les coups dès que tu appuies sur un bouton. Le problème c'est que je provoque plein d'erreurs après parce que les N° de feuilles correspondent pas...

Alors je ne sais pas si c'est parce que tu nous as donné un classeur bidonné, mébon quand tu auras corrigé toutes les autres erreurs YAPA de raison que ça marche pas.

Comme je le disais tout à l'heure le problème c'est plutôt que ça marche trop bien : C'est à dire que même les boutons Reset et autres vont déclancher le recalcul.

Alors que faire je ne sais pas : Je me suis lancé dans un travail de restructuration avec module de classe pour éviter que les boutons qui ne sont pas concernés ne viennent parasiter le truc, mais encore une fois j'ai trop de problèmes annexes. Ce classeur est une véritable anthologie de tout ce qu'il faudrait éviter et je ne veux pas passer ma journée la dessus. Donc je passe la main.

Je te donne quand même le classeur avec la macro en position. TAPUKA corriger les erreurs...

Sorry.

A+

Je reviens un petit peu à la charge maintenant que j'ai un peu plus de temps :

J'ai profondément remanié ton système de boutons qui était imbuvable...

Par contre je n'ai pour l'instant aucune solution pour tes 4 macros "COULEUR"

Comme je ne vois pas à quoi elle servent je les ai remplacé par un simple MsgBox.

A+

Rechercher des sujets similaires à "lancer macro automatiquement"