Débogage d'une macro de sélection d'onglet

[Vilain]

Bonjour à tous

J'ai fais il y a quelques temps une macro simple pour sélectionner un onglet.
En voulant simplement changé les noms pour l'inclure sur tous les postes, je l'ai planté et ne parviens pas à régler le problème. Quelqu'un pour m'aider ?

Merci d'avance à tous les génies de ce forum ! 🙂

 

[Staple1600]

Re : Débogage d'une macro de sélection d'onglet

Re

Sub SélectionOnglet()
Dim Sht As Worksheet
Sélection_onglet.Onglet.Clear
For Each Sht In Worksheets
    Sélection_onglet.Onglet.AddItem Sht.Name
Next
Sélection_onglet.Show
Workbooks("Sélection onglet.xlsm").Close False
End Sub

Si tu fermes le fichier qui contient l'userform, comment faire pour afficher l'userform ?

 

[Vilain]

Re : Débogage d'une macro de sélection d'onglet

Effectivement nous avons affaire à une discussion de sourds...
Il n'y a pas de code supplémentaires, simplement un bouton dans le ruban qui fait appel à cette macro.

 

[Staple1600]

Re : Débogage d'une macro de sélection d'onglet

Re

Tu as lu la question dans mon message précédent ??

 

[Guest]

Re : Débogage d'une macro de sélection d'onglet

Bonjour,

Essaie avec ça. si tu veux qu'il affiche les feuilles du classeur qui appelle la macro, il faut y faire référence.

Je vois que tu n'as pas pris en compte ce que je te disais précédement sur unload et hide.

Le chargement de la liste des feuilles se fait dans UserForm_initialize. La liste peut changer d'un appel à l'autre.

Il y avait plein de choses inutiles dans ton classeur.

Pourquoi fermer le classeur après l'appel de la macro?

C'est le genre de macros qu'on lance en général à partir d'un module de classe Application pour surveiller les évènements des classeurs.


A+

[Edit] Hello Bruno🙂, Staple🙂

 

[Staple1600]

Re : Débogage d'une macro de sélection d'onglet

Bonjour Hasco

Pourquoi fermer le classeur après l'appel de la macro?

Je me sens moins seul 😉

 

[Vilain]

Re : Débogage d'une macro de sélection d'onglet

Voila ce que j'ai fait :
J'ai ouvert le fichier, personnaliser le ruban et ajouté cette macro.
Ensuite je ferme le fichier et en lance un autre, peu importe lequel, puis je clique sur le bouton.
L'userform s'affiche, la sélection marche, le fichier se referme puis apparaît l'erreur.

Désolé de ne pas être clair, je dois être très fatigué...

 

[Vilain]

Re : Débogage d'une macro de sélection d'onglet

Je ferme le classeur après car il ne sert à rien...
Il est vide et ne contient que cette macro

 

[Compte Supprimé 979]

Re : Débogage d'une macro de sélection d'onglet

J'ai ouvert le fichier, personnaliser le ruban et ajouté cette macro.
Ensuite je ferme le fichier et en lance un autre, peu importe lequel, puis je clique sur le bouton.

Perso, je comprends déjà mieux comment tu as personnalisé ton ruban

J'ai donc fait la manip chez moi ... et là, je suis navré ... mais chez moi aucun problème (ton dernier fichier donné)

A+

 

[Guest]

Re : Débogage d'une macro de sélection d'onglet

Re,

@Gillus,

Rajoute ceci dans le module ThisWorkBook du dernier classeur que je t'ai passé plus haut

Pour rendre le classeur invisible à l'utilisateur à 'ouverture
Pour ne pas afficher le message d'enregistrement lors de la fermeture de l'application et du classeur.

Tu pourrais l'installer en tant que module complémentaire. Fais des recherches.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True 'Pour ne pas voir apparaître le message de demande d'enregistrement du classeur
End Sub
Private Sub Workbook_Open()
Application.Windows(ThisWorkbook.Name).Visible = False
End Sub

A+

 

[Vilain]

Re : Débogage d'une macro de sélection d'onglet

Ok, merci beaucoup pour votre aide, je vais creuser dans cette voie.
Et encore désolé pour mon manque de clarté.
Je ferai un effort supplémentaire la prochaine fois 😉

 

[Guest]

Re : Débogage d'une macro de sélection d'onglet

Re,

J'aimerai bien que tu répondes à mes deux dernière interventions.

A+

 

[Vilain]

Re : Débogage d'une macro de sélection d'onglet

Bonjour,

Désolé de pas avoir répondu plus tôt.
J'ai actuellement quelques "urgences" à traiter et ne peux pas me repencher sur ce problème pour l'instant.
Je te ferai signe quand ce sera fait.
Encore merci pour l'aide apportée et la patience dont tout le monde a fait preuve. 🙂