Interdire navgation entre classeurs Excel

[yeti_yeti]

Bonjour,

J'ai un gros code VBA qui marche parfaitement bien tant que l'on reste sur le classeur dans lequel il est écrit.

Malheureusement, si un utilisateur active la macro (Userform) et qu'il va dans un autre classeur (pour rechercher une information par exemple) et qu'il oublie de revenir dans le bon classeur et appuie sur un bouton qui effectue une action, une magnifique erreur apparaît.

Je voulais savoir s'il était possible (certainement) et comment faire pour que, dès lors que la macro est enclenchée, la navigation entre classeur Excel soit impossible?

Merci de votre aide

A bientôt

YeTi

 

[job75]

Re : Interdire navgation entre classeurs Excel

Bonsoir,

Malheureusement, si un utilisateur active la macro (Userform) et qu'il va dans un autre classeur (...)

Comment l'utilisateur fait-il pour aller dans un autre classeur ? Je ne vois pas comment ça peut se faire quand un UserForm est affiché.

A+

 

[yeti_yeti]

Re : Interdire navgation entre classeurs Excel

Je n'ai pas d'explications à ça, mais je te garantis que l'utilisateur arrive a effectuer des actions dans le classeur ou est contenu la macro ainsi que dans n'importe quel autre classeur alors que l'UserForm est en marche...

Serait-ce dû au fait que l'UserForm s'ouvre en vbModeless?

 

[yeti_yeti]

Re : Interdire navgation entre classeurs Excel

En fait c'est bien ça, c'est le vbModeless qui fait que je peux aller dans un autre classeur alors que l'UserForm est en marche.

Le problème c'est que j'ai besoin de cette condition vbModeless car j'ai 3 UserForm qui se superposent par moment et qui ensuite disparaissent. J'ai testé sans vbModeless, ils ne disparaissent pas lorsque je le veux (obligé de cliquer sur la croix pour fermer le UserForm).

Y a-t-il donc un moyen pour garder le vbModeless et emêcher la navigation entre les classeurs? Ou y a-t-il un moyen de faire marcher ces 3 UserForm sans vbModeless?

Merci de votre aide

YeTi

 

[job75]

Re : Interdire navgation entre classeurs Excel

Bonjour,

D'accord, vbModeless ou simplement 0.

Un exemple ci-joint avec cette macro dans ThisWorkbook :

Private Sub Workbook_Deactivate()
Dim u As Object
For Each u In UserForms
If u.Name = "UserForm1" Then ThisWorkbook.Activate 'tant que UserForm1 est chargé
Next
End Sub

Tant que UserForm1 est chargé, la navigation entre classeurs est impossible.

Edit : si l'on veut empêcher la navigation quel que soit l'UserForm, écrire dans la boucle (sans test) :

ThisWorkbook.Activate

A+

 

[yeti_yeti]

Re : Interdire navgation entre classeurs Excel

Désolé pour la réponse tardive.

Je tenais à te remercier pour ton astuce qui fonctionne très bien.

A bientôt

YeTi