Discussion :

[AVNAIM]

Voici mon problème :
J'ai un userForm de présentation. Il contient des boutons options qui affiche des feuilles de calcul lesquelles possèdent un bouton qui permet de réafficher ce UserForm de présentation.
Ce userForm de présentation possède aussi 3 boutons qui chacun affiche un UserForm lesquels ont aussi un bouton qui les ramènent au UserForm de présentation.

Je crée un nouveau UserForm. Je place dans le userForm de présentation un bouton avec lequel il affiche le nouvel UserForm. Tout cela fonctionne.
Je place dans ce dernier userForm un bouton pour réafficher le UserForm de Présentation avec le même type de procédure que les 3 autres (UserForm.Show UserForm.Hide) et J'obtiens une erreur N° 401 libellée ainsi :

"Impossible d'afficher une feuille non modale lorsqu'une feuille modale est affichée "

Alors que je n'ai affiché aucune feuille de calcul, et que les instructions du bouton demandent comme pour les autres l'affichage du UserForm de présentation et que le va et vient avec les autres fonctionne sans problème. Le message d'erreur à un bouton Aide mais le clic sur celui-ci affiche une fenêtre vide.
Y a-t-il quelqu'un qui a déjà eu ce genre de problème ,? Ou quelqu'un capable d'éclaircir ce mystère ?
Merci d'avance à tous ceux qui pourraient m'aider.
Avnaim

[ouskel'n'or]

Je place dans ce dernier userForm un bouton pour réafficher le UserForm de Présentation

Bonsoir AVNAIM
Comment recharges-tu cet userform ? Peux-tu montrer ton code ?

[Gorfael]

Salut AVNAIM et le forum

"Impossible d'afficher une feuille non modale lorsqu'une feuille modale est affichée "
Alors que je n'ai affiché aucune feuille de calcul

Faut pas espérer que Microsoft se mette à écrire des messages d'erreur explicites.
Là, ça signifie qu'un objet modal est en cours.

Ayant 3 USF fonctionnant de la même manière, la première approche serait de vérifier toutes les différences entre ces USF et le dernier.

9a me semble bizarre, Excel ne tolérant pas le vide, il impose qu'une feuille au moins soit visible (même si elle est réduite). Mais je ne travaille pas sous la V.2007.

A+

[ouskel'n'or]

il impose qu'une feuille au moins soit visible (même si elle est réduite).

Je ne comprends pas bien ce que tu veux dire. Si tu masque l'userform actif, il n'est plus visible mais il reste chargé... si tu parles de l'userform...
Si tu masques toutes tes feuilles (sauf une), tu peux masquer la dernière avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activewindow.visible = false

Tu peux préciser pour AVNAIM. Pour le moment, je reste avec ma question : Comment charge-t-il l'userform récalcitrant

[Gorfael]

Salut ouskel'n'or
effectivement, la fenêtre peut être invisible, mais je ne pense jamais à cette solution
A+

[ouskel'n'or]

Le seul intérêt que je vois à cette solution est en cas de nécessité de confidentialité à l'ouverture d'un classeur et saisie d'un mot de passe... ou pour faire beau lors de l'affichage d'une page d'accueil sur userform (bon, ça fait deux ! )

[OrDonc]

Bonjour,
A tester (avec ce que j'ai compris), mettre dans chacun des 3 derniers USF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
	Private Sub UserForm_Initialize()
	  Unload (Usf de présentation)
	End Sub
	Private Sub CommandButton1_Click()
	  UserForm(numéro).Hide
	  (Userform de présentation).Show 0
	End Sub

[AVNAIM]

Merci à tous pour vos réponses à mon problème et votre courage pour "décrypter" mes explications.

Chargement du userForm récalcitrant : Il est chargé par le clic sur un bouton du userForm de Présentation dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton4_Click()
  UserForm5.Show            ' Le userForm qui pose problème il est bien chargé et visible
  UserForm2.Hide
End Sub

Ce UserForm5 composant image mis à part ne possède qu'un seul bouton retour accueil
Le code Click est le suivant comme le code retour des autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton2_Click()
UserForm2.Show                                    ' c'est ici que l'application se plante 
 UserForm5.Hide
End Sub

Le userForm qui le précède ne fait pour le moment pas grand chose : 2 boutons qui chacun ouvre une feuille . Ces 2 feuilles sont pour le moment vierges et possèdent chacune un bouton retour qui permet de réafficher le userForm lequel possède un bouton permettant le retour à l'accueil Voici le code de ce UserForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
  Feuil11.Activate                                       ' active cette feuille vierge laquelle possède
                                                                    ' un bouton de retour qui fonctionne
  UserForm4.Hide
End Sub
 
Private Sub CommandButton2_Click()
  UserForm2.Show                                    'affiche le userForm de présentation (l'Accueil)
  UserForm4.Hide
End Sub
 
Private Sub CommandButton3_Click()
 Feuil19.Activate                                      ' active cette feuille vierge laquelle possède
                                                                    ' un bouton de retour qui fonctionne
   UserForm4.Hide
End Sub

[ouskel'n'or]

Et si tu inverses tes lignes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UserForm2.Hide
UserForm5.Show ' Le userForm qui pose problème il est bien chargé et visible

.................................

[Gorfael]

Salut à tous
Possible que ce soit un problème lié à l'USF, comme quand une feuille ne répond plus correctement sans aucune raison discernable
Essaies de supprimer ton USF et de le recréer
A+

[AVNAIM]

Eureka 10000 Eurekas! Merci à tous grâce à vos suggestions j'ai fini par trouver où se logeaient mes "incohérences" dans ma tête et mon Code. Voilà :

Mon UserForm récalcitrant ouvre en début la feuille de calcul et efface toutes les cellules excepté les formules. Il laisse cette feuille ouverte pour que s'inscrivent les sélections de l'utilisateur etc.. C'est en fait ce que" l'hermétique" message d'erreur Microsoft voulait dire !
Il fallait donc comme l'a suggérer Ouskeln'Or inverser les intructions de retour vers l'acceuil : D'abord masquer le UserForm Actif puis afficher (Show) le UserForm d'accueil

Et maintenant, je clique, je claque "j'explose" ….. tout marche sur des roulettes
Merci encore à vous tous
Avnaim