Lancement procédure suite valeur dans feuille Excel [Résolu/Fermé]

Signaler
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015
-
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015
-
Bonjour,
je souhaite déclencher une macro dans une feuille Excel dès lors qu'une certaine valeur apparaît dans une cellule d'une feuille Excel.
Comment faire?
Cordialement
Christophe

1 réponse

Messages postés
13000
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 avril 2021
2 175
Bonjour

Macro à mettre dans le worksheet de la feuille concernée (ALT+ F11 puis double clic sur la feuille dans arborescence)

Dans cette macro la cellule cible est B2 et al amcro est déclenchée lorsque la valeur 100 est entrée en B2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "B2" Then Exit Sub
If Target.Value = 100 Then mamacro (remplacer mamacro par le nom de la macro à lancer
End Sub


Cdlmnt
Via
Messages postés
13000
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 avril 2021
2 175 >
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015

Chez moi cela fonctionne, revoir l'emplacement et le nom de ton macro
http://www.cjoint.com/c/EGzlk30oyn5
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015

Ok moi aussi maintenant
merci pour ton aide
cordialement
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015

Encore une fois merci pour ton aide
j'ai une question subsidiaire : comment faire pour lancer une autre macro avec une autre valeur de cellule?
Messages postés
13000
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 avril 2021
2 175 >
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015

Re,
Tu peux faire ainsi (et mettre autant de cellules et de conditions que tu veux):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "B2" or Target.Address <> "B5" Then Exit Sub
If Target.Address ="B2" and Target.Value = 100 Then mamacro (remplacer mamacro par le nom de la macro à lancer
If Target.Address ="B5" and Target.Value = 75 Then mamacro2 (remplacer mamacro2 par le nom de la macro à lancer
End Sub


Cdlmnt
Via
Messages postés
14
Date d'inscription
dimanche 3 mai 2015
Statut
Membre
Dernière intervention
25 juillet 2015
>
Messages postés
13000
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 avril 2021

Merci beaucoup