Déclencher une macro en vba

Bonjour et bonsoir à toutes et tous!

petit problème dont je ne suis pas sûr qu'il ait une solution.

Sur ma feuil1, j'ai placé le code suivant:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$5" Then Exit Sub Else clignotement
End Sub

La macro "clignotement" fait clignoter 3 cellules que l'utilisateur doit
absolument remplir.

Pour la déclencher, j'utilise la cellule E5... mais en fait, c'est bien là le
problème :-)

L'utilisateur arrive par une macro sur cette page depuis une autre page
nommée accueil et il n'a aucune raison de cliquer sur E5; le lui dire
n'aurait aucun sens et lui demander de cliquer sur une autre cellule aussi.
Le dernier ordre de la macro en question est "Range("E5").select

Ce qui se passe, c'est que quand je clique "pour de vrai" sur e5, la macro se
déclenche et fonctionne très bien.
Mais quand c'est la macro qui "range", rien ne sa passe.

Est-il possible de remédier à ça, c'est à dire à forcer le déclenchement de
la macro avec un simple range?

Merci pour votre aide... et tant pis si aucune soluce n'existe; je sais que
je deviens gourmand :-)

Cordialement,
Pierre F.

Bonjour et bonsoir à toutes et tous!

petit problème dont je ne suis pas sûr qu'il ait une solution.

Sur ma feuil1, j'ai placé le code suivant:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$5" Then Exit Sub Else clignotement
End Sub

La macro "clignotement" fait clignoter 3 cellules que l'utilisateur doit
absolument remplir.

Pour la déclencher, j'utilise la cellule E5... mais en fait, c'est bien là
le problème :-)

L'utilisateur arrive par une macro sur cette page depuis une autre page
nommée accueil et il n'a aucune raison de cliquer sur E5; le lui dire
n'aurait aucun sens et lui demander de cliquer sur une autre cellule
aussi.
Le dernier ordre de la macro en question est "Range("E5").select

Ce qui se passe, c'est que quand je clique "pour de vrai" sur e5, la macro
se déclenche et fonctionne très bien.
Mais quand c'est la macro qui "range", rien ne sa passe.

Est-il possible de remédier à ça, c'est à dire à forcer le déclenchement
de la macro avec un simple range?

Merci pour votre aide... et tant pis si aucune soluce n'existe; je sais
que je deviens gourmand :-)

Cordialement,
Pierre F.

Bonsoir,
Pourquoi ne pas simplement terminer la macro qui positionne sur la
feuille en question par l'appel à clignotement ?
Tu pourrais peut être même t'éviter la procédure évènementielle.

Philippe.R a écrit :

Bonsoir,
Pourquoi ne pas simplement terminer la macro qui positionne sur la feuille
en question par l'appel à clignotement ?
Tu pourrais peut être même t'éviter la procédure évènementielle.

Merci pour vos propositions; aucune ne fonctionne pour l'instant.

Oui, j'ai essayé cette solutions en premier... mais c'est parce qu'elle ne
fonctionne pas que j'ai cherché autre chose...

Peut-être une boulette dans la macro d'appel??
Voici la macro qui devrait aboutir sur feuil1 avec range en E5

La macro qui ne se déclenche pas est intitulée "clignotement".

-----------------------------
Sub choisirUtilises()
Application.ScreenUpdating = False
reponse = ""
choix = "Les plus utilisés"

Sheets("+Utilises").Select
If Cells(3, 17) = "" Then Sheets("Accueil").Select: Exit Sub
If Cells(66, 17) <> "" Then GoTo copier
Msg = "Attention, blabla; voulez tout de même continuer?"
Style = vbYesNo
reponse = MsgBox(Msg, Style)
If reponse = vbNo Then GoTo AHNON

copier:
copierfeuilleverbes

Sheets("feuil1").Select
clignotement
[b1] = choix
If reponse <> vbNo Then Exit Sub
AHNON: Sheets("Accueil").Select
End Sub
-------------------------------

Merci pour votre aide

Cordialement,
Pierre F.

Exécute-la en mode ligne à ligne, tu verras ce qui pêche.
Daniel