Déclenchement conditionnel d'une macro

[bennybee]

Bonsoir à tous,

Je suis nouveau sur le forum. J'aimerais mettre en place un déclenchement conditionnel d'une macro (macro associée à une image dans une cellule - cf fichier joint) selon le contenu d'une cellule. Si la cellule contient OUI la macro s'exécute, sinon il ne se passe rien et une fenêtre apparaît disant "macro non exécutée"

J'ai fait des recherches sur le forum et trouvé des messages parlant de ce problème mais j'ai du mal à appliquer les solutions proposées (je suis niveau débutant en VBA)

Une âme charitable pourrait-elle m'aider ?

Bennybee

 

[Guest]

Re : Déclenchement conditionnel d'une macro

Bonsoir et bienvenue sur le forum,

Click-droit sur le nom d'onglet de la feuille Feuil1 puis 'visualiser le code'

Coller les lignes ci-dessous dans le module de la feuille:

[COLOR=BLUE]Sub[/COLOR] t()
[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Worksheet_Change([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
    [COLOR=BLUE]If[/COLOR] Target.Address([COLOR=BLUE]False[/COLOR], [COLOR=BLUE]False[/COLOR]) = [i]"B18"[/i] [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]If[/COLOR] Target = [i]"OUI"[/i] [COLOR=BLUE]Then[/COLOR]
            LaMacro
        [COLOR=BLUE]Else[/COLOR]
            MsgBox [i]"macro non exécutée"[/i], vbInformation, [i]"test"[/i]
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

Remplacer LaMacro par le nom de la macro à exécuter.

A+

P.S peut-être pas besoin de joindre un fichier avec tant de module vides.

 

[gam]

Re : Déclenchement conditionnel d'une macro

Il faut mettre juste avant ta macro un code du style

If [A1] = "Oui" Then 
Ton code bla bla bla ..
End If

Comme ça si la céllule A1 n'est pas égale à oui alors il n'exécute pas ton code , il va directement en End If

 

[gilbert_RGI]

Re : Déclenchement conditionnel d'une macro

Bonsoir et bienvenue sur le forum

ceci ferait-il la demande ? 😱

 

[bennybee]

Re : Déclenchement conditionnel d'une macro

Merci à vous pour vos réponses et votre réactivité.

La solution du If......End if me convient parfaitement

Désolé pour les modules vides joints dans le fichier excel. Je ne maitrise que très mal VBA et je ne comprends pas encore comment gérer tous ces modules. J'enregistre mes macros via le menu Outils - Macro - Nouvlle macro et je ne maitrise pas ce que fait ensuite le logiciels au niveau des modules 🙂