Macro qui plante Excel

Bonjour,
je me tourne vers vous car j'ai un soucis que je n'arrive pas a comprendre.

j'ai la macro suivante

Code:

---

1 2 3 4 5 6

Sub quit() Worksheets("planning").Visible = False Worksheets("Demande Contrat").Visible = False Sheets("Accueil").Select Range("A1").Select End Sub

---

Quand je la relie a un bouton sur la feuille planning aucun soucis
par contre quand je fait la même opération sur la feuille demande de contrat excel plante...

Si quelqu'un a une idée je demande pas forcément une solution mais au moins une idée du pourquoi du comment je suis preneur.

Merci à vous

Bonjour,

Vérifie orthographe et casse des noms de tes feuilles. Sinon fais plutôt comme ceci :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Feuil1.Visible = xlHidden 'équivalent à Feuil1.Visible = False 'xlHidden permet par la suite d'afficher manuellement l'onglet 'xlVeryHidden oblige à repasser par du VBA pour le rendre visible End Sub

---

Sinon pour la sélection :

Code:

---

Feuil1.Range("A1").Select

---

À adapter à ton cas.

.Visible sur MSDN

bonjour,

merci pour ta réponse mais après essaie aucun changement dès que je l’exécute de la feuille demande de contrat ça plante...

et elle marche tjs quand je l’exécute de la feuille Planning même pour ta macro

Bonjour,

J'ai testé ta macro sur un fichier test, aucun problème chez moi peu importe la feuille sur laquelle je le lance.
As-tu des macro évènementielles sur ta feuille "demande contrat" ? si tu lance la macro sans passer par le bouton ça fonctionne ? si tu lance la macro en mode pas à pas (touche f8) ça fonctionne ?

Bonjour,

As-tu des macro évènementielles sur ta feuille "demande contrat" ? -> Non aucune j'ai des checkbox par contre est ce que ça peut venir de la ?

si tu lance la macro sans passer par le bouton ça fonctionne ? -> elle marche parfaitement ancienne version ou nouvelle

si tu lance la macro en mode pas à pas (touche f8) ça fonctionne ? pareil que pour la précédente

Et au départ j'avais une seule macro pour gérer mon retour a l’accueil de mon fichier et elle s’exécute très bien sauf si je la lance de cette feuille la.

le mystère reste pour moi complet

Je te propose de poster ton fichier Excel avec macro

Je ne pense pas que les checkbox puisse causer ce problème mais dans le doute tu peux toujours essayer de les copier sur ta feuille "planning" et voir si ça fonctionne toujours, ou aussi de les supprimer avant de lancer la macro pour voir le résultat. (Attention pense a travailler sur une copie du classeur)

Puisque ça marche depuis la feuille planning, essaye ceci:

Code:

---

1 2 3 4 5 6 7

Sub quit() Sheets("planning").Select Worksheets("planning").Visible = False Worksheets("Demande Contrat").Visible = False Sheets("Accueil").Select Range("A1").Select End Sub

---

Salut

Assure-toi que tu as toujours bien une feuille visible, car Excel n'aimera pas avoir toutes les feuilles masquées.

Perso, avant de masquer les feuilles, j'activerais la feuille Accueil, puis seulement je masquerais les autres.

Code:

---

1 2 3 4 5 6

Sub quit() Sheets("Accueil").Select Range("A1").Select Worksheets("planning").Visible = False Worksheets("Demande Contrat").Visible = False End Sub

---

PS: Excel est indifférent à la casse pour les noms des feuilles ;)

@ Nagel Tha impossible de l'envoyer il contient trop de donnée sensible et personnel c'est un fichier de gestion des temps d'activités de formartion

@ halaster08 ta macro ne fonctionne pas non plus
j'ai même essayer juste

Code:

---

1 2 3

Sub quit() Sheets("planning").Select End Sub

---

et cela plante
checkbox ou pas....

chose que j'ai oublier de préciser c'est que j'ai deux autre bouton présent sur cette feuille avec des macro qui marche parfaitement....

et je bosse toujours sur des copies de fichiers pas envie de perdre tout mon travail...

Quand tu dis que "ça plante"... Ca fait quoi au juste?

Ca plante Excel ou tu as un message d'erreur? Si message d'erreur, lequel?

tu peux essayer d'ajouter :

Code:

---

1 2	application.EnableEvents=false

---

en faite excel plante a cette étape là

Code:

---

Sheets("Accueil").Select

---

uniquement lorsque je lance ma macro depuis cette feuille en particulier
si je la lance depuis l'éditeur vba pas de soucis
si je la lance depuis une autre feuille pas de soucis

uniquement quand je la lance depuis la feuille demande contrat...

Tu dis que ça plante lorsque tu sélectionnes Planning, puis maintenant tu dis que ça plante aussi lorsque tu sélectionnes Accueil… Donc, en fait, ça plante lorsque tu sélectionnes une feuille...

Je repose la question: Ca plante Excel ou tu as un message d'erreur? Parce que si tu essaies de sélectionner une feuille masquée, tu auras une erreur 1004.

As-tu protégé ton classeur (onglet Révision/Protéger le classeur)?

@ Pierre Fauconnier

excel s’arrête net

Pièce jointe 402967

Code:

---

application.EnableEvents=false

---

ça na rien changé...

Ok. Pour moi, ton fichier est corrompu.

Pourrais-tu faire une copie des feuilles dans un nouveau classeur, y transférer également tes modules VBA et tester sur le nouveau fichier?

Citation:

---

Envoyé par Pierre Fauconnier

Tu dis que ça plante lorsque tu sélectionnes Planning, puis maintenant tu dis que ça plante aussi lorsque tu sélectionnes Accueil… Donc, en fait, ça plante lorsque tu sélectionnes une feuille...

Je repose la question: Ca plante Excel ou tu as un message d'erreur? Parce que si tu essaies de sélectionner une feuille masquée, tu auras une erreur 1004.

As-tu protégé ton classeur (onglet Révision/Protéger le classeur)?

---

J'ai la même macro pour d'autre feuille et cela ce passe très bien

cela plante excel voir l'image sur un de mes post précédent uniquement quand je lance la macro depuis la feuille demande contrat...

Ca devient compliqué de savoir quand ça plante ou pas :?

Dans le message 9, tu dis que ça plante avec la feuille Planning lorsqu'on lance la macro Quit. Maintenant, tu dis que ça plante uniquement lorsque tu es sur la feuille "Demande contact"...


Affiche ta fenêtre d'exécution (CTRL+G) puis dans cette fenêtre, teste chaque ligne de code, en notant bien la feuille active et la situation de ton classeur (feuilles visibles, feuilles masquées, feuille active, …).

C'est excel 2016 ?
Tu peux regarder si tu as des maj Windows/Excel en attente ? si oui les lancer et redemarer ton poste ?

Le tag de version renseigne 2010 ;)

après de multiple essaie, plantage
j'ai transféré mes module et userform dans une copie saine et antérieur de mon fichier
après reconfiguration de tout ça il s'est avéré que cela fonctionnait parfaitement.

j'ai continuer a chercher pourquoi sur mon fichier cela ne marchait pas et suite a une erreur excel ma demander si je voulais réparer mon fichier
et il ma gentiment dit ce qui avait été réparer
il s'est avéré qu'il y avait une erreur dans une feuille que j'avais supprimer quelque temps auparavant....

je ne sais pourquoi cette erreur mais tout se fini bien

Merci a vous tous qui avez participer a ma réflexion pour régler ce soucis.