Comment lancer une macro différente en fonction du texte d'une celulle

Fermé
Dedudelefabs Messages postés 8 Date d'inscription samedi 4 janvier 2020 Statut Membre Dernière intervention 6 janvier 2020 - Modifié le 4 janv. 2020 à 23:42
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - 6 janv. 2020 à 19:37
Bonjour,

Je souhaiterais lancer une macro que j'ai enregistrée différente en fonction de la valeur encodée dans une cellule. Voici une formule VBA trouvée sur le net. Lorsque j'encode le premier nom, la première macro se lance bien mais lorsque j'encode le second terme, c'est toujours la première macro qui se lance. Quelque soit d'ailleurs le terme encodé, c'est la macro 1 qui se lance.... Pourriez vous m'aider

Sub worksheet_change(ByVal target As Range)
Set target = Range("N3")

If target.Value = "ruche1" Then
Call encodageruche1
End If

If target.Value = "ruche2" Then
Call encodageruche2
End If

End Sub


Je suis sous Excel 2019 pour Mac

Merci
A voir également:

2 réponses

yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
Modifié le 5 janv. 2020 à 09:29
Bonjour Dedudelefabs, meilleurs voeux
à tester

If Sheets("xxxxxxxxxxxx").Range("N3") = "ruche1" Then
encodageruche1
else
If Sheets("xxxxxxxxxxxx").Range("N3") = "ruche2" Then
encodageruche2


cordialement
1
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
Modifié le 5 janv. 2020 à 07:15
Bonjour à tous les 2.
Je vous invite à lire ce petit tuto sur la bonne utilisation des balises de code https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Dedudelefabs tu ne t’en es pas servi, c’est *_Francis_* qui a édité ton message pour les ajouter et yanndebreragn, tu ne les a pas utilisées correctement.
0
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
6 janv. 2020 à 19:37
message reçu
bonne soirée
0