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

Déclenchement conditionnel d'une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bennybee
  • 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 !

S'inscrire
B

bennybee

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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:

Code: 
[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.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Déclenchement conditionnel d'une macro

Il faut mettre juste avant ta macro un code du style
Code: 
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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Déclenchement conditionnel d'une macro

Bonsoir et bienvenue sur le forum

ceci ferait-il la demande ? 😱
 

Pièces jointes

Vote positif 0 Vote négatif
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 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

P
  • Résolu(e)
Microsoft 365 Macro qui change l'épaisseur du contour d'une forme
Réponses
11
Affichages
755
pat66
P
M
  • Résolu(e)
XL 2016 Copier/Coller case cochée vers feuil2
Réponses
3
Affichages
752
Phil69970
M
  • Question Question
Microsoft 365 Ma fonction VBA s'exécute avec toutes mes Macros
Réponses
8
Affichages
844
MACx
M
G
  • Résolu(e)
XL 2019 Problème lié à : Erreur Automation , l'objet invoqué s'est déconnecté
2
Réponses
15
Affichages
2 K
GExcel88
G
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
D
  • Question Question
XL 2019 Boutons + et - pour fiche d'évaluation
Réponses
8
Affichages
819
Oscar21
R
  • Question Question
Microsoft 365 Debut d'une macro en fonction d'une cellule varible
Réponses
9
Affichages
965
Phil69970
N
  • Question Question
XL 2019 Figer valeurs d'une colonne à la fin du mois
Réponses
2
Affichages
790
Nikolagexcel
N
A
  • Question Question
XL 2019 Modifier la plage de données d'un graphique selon valeur d'une cellule (sans macro)
2
Réponses
22
Affichages
2 K
Astyanax
A
A
  • Question Question
Microsoft 365 Essai d'une création de macro
Réponses
8
Affichages
949
Dranreb
S
  • Question Question
Microsoft 365 Envoi de mail auto VBA d'une cellule à une autre + selection de plusieurs PJ.
Réponses
3
Affichages
1 K
kiki29
S
  • Question Question
Autres 2 sujets: 1_Appliquer couleurs à partir de l'onglet "complément" sur calendrier. 2_ Créer 1 boucle d'mages JPEG en auto, type diapo sur Excel 2007
2
Réponses
15
Affichages
2 K
AtTheOne
P
  • Question Question
Microsoft 365 Exécution lors d'un changement d'une Cellule
Réponses
11
Affichages
1 K
Payne
P
B
  • Résolu(e)
XL 2019 tableau de suivi - convertir une croix en date du jour (automatisation d'une saisie)
Réponses
7
Affichages
2 K
Becherel
B
H
  • Question Question
Microsoft 365 Insertion d'une photo dans une cellule avec redimensionnement et tri possible
Réponses
4
Affichages
1 K
Hubert BEDUER
H
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
L
  • Résolu(e)
XL 2013 Copie automatique sous condition, d'une cellule d'un onglet vers un autre
Réponses
9
Affichages
1 K
Luc MOUNY
L
T
  • Question Question
Microsoft 365 Afficher une forme à un endroit précis en fonction du contenu d'une cellule
2
Réponses
15
Affichages
2 K
Rouge
R
L
  • Résolu(e)
XL 2019 Liaison de données Word Excel et "méthode range de l'objet global a échoué"
Réponses
12
Affichages
4 K
Staple1600
P
  • Résolu(e)
XL 2019 Affectation d'une cellule vide la valeur de 1
Réponses
2
Affichages
2 K
Praveena
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…