Cette macro beug sur une forme Shape (Etoile)

Bonjour

je n'arrive pas a affecter cette macro sur une forme Shape (Etoile)

Merci pour votre aide

Sub poule1()
Worksheets("Poule1").Unprotect "0000"
Worksheets("Poule1").Visible = False
Worksheets("Tirage-poules_de_4").Activate
Worksheets("Poule1").Protect "0000"
End Sub

Bonjour,

Voici un exemple
Il faut construire ta macro et l'insérer dans un module
Ensuite il faut l'intégrer dans le Shapes : click droit et "affecter une macro", la choisir, enregistrer, OK

et voila le tour est joué

Bon courage

J'ai oublié de préciser que la toute petite macro que j'ai insérée dans l'étoile permet d'écrire "toto" en A1

Bonjour

Merci pour la réponse.

Ta solution ne correspond pas à mon besoin.

J'avais comme tu l'indiques mais ça beug

Crdlt

En effet, c'est la ligne suivante qui bug, mais sans l'ensemble du fichier je ne vois pas pourquoi

Worksheets("Poule1").Visible = False

Bonsoir Joco7915, Jacky,

Je suppose que ton étoile se trouve sur la feuille Poule1. Donc, il n'est plus possible de poursuivre la macro si la feuille qui la porte n'est plus visible.

Il faut séparer au minimum 2 lignes du code pour les inclurent dans le code événementiel d'activation de la feuille Tirage...

Laisse affecté à la forme étoile.

Sub poule1() 
Worksheets("Poule1").Unprotect "0000"
Worksheets("Tirage-poules_de_4").Activate
End sub

Puis au sein du code Worksheet_activate de la feuille Tirage 4 insérer les 2 autres lignes. Voire y ajouter une temporisation minime si la feuille poule1 quittée a des calculs au moment de sa désactivation.

Bonsoir Joco7915 et le forum
Voici une version qui fonctionne bien.
Cdt
Papy Henri

Bonsoir Papy Henri

Exactement ce qu'il me fallait.

Je te remercie beaucoup

Bonne soirée

Je rectifie ne fonctionne pas sur mon fichier,fonctionne bien sur un fichier vierge

Merci pour ce retour.

N'oublie pas de clôturer ce fil.
Papy Henri

Bonjour X Cellus

J'ai un beug sur la ligne UnProtect

Sub poule1() 
Worksheets("Poule1").Unprotect "0000"
Worksheets("Tirage-poules_de_4").Activate
End sub

Bonjour Joco7915,

Si ta feuille Poule1 est bien protégée avant que tu cliques sur l'étoile (incluse dans cette feuille).

Cela fonctionnera sans souci.

Ou alors ce n'est pas le bon mot de passe. Je n'ai fait que recopier ta première ligne.

Je peux te proposer ce soir un mini fichier Excel pour que tu te rendes compte du principe

Bonsoir Joco7915, le Fil,

En retour un mini fichier nommé Étoile.

Avec macros en module 1 et dans le code réservé à la feuille.