cache cache entre 2 userform

Bonjour,

J'ai beau chercher je ne trouve pas... et pourtant j'ai déjà vu ça il me semble...

J'appelle une Userform2 à l'aide d'un commandbutton d'une Userform2.

Seulement quand je clic sur mon userform1 alors que la 2 est appelé, la 2 se cache derrière la 1 et je ne peu plus inter-agir avec elle, ni avec la 1 puisque la 2 est toujours actif...

Je souhaiterai laisser la 1 visible lorsque j'appelle la 2 mais si je clic dessus qu'il ne se passe rien et que lorsque je ferme la 2 la une s'active...

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm2_Activate() Userform1. 'Assis couché reste à ta place... End Sub   Private Sub UserForm2_QueryClose(Cancel As Integer, CloseMode As Integer) useform1. 'Sésame active toi End Sub

---

En gros je recherche une commande du genre

Code:

---

1 2 3 4 5

Userform1.locked=true   userform1.locked=false

---

Dans l'attente d'une ame charitable je vous remercie...

Bonsoir,

Peu-être regarder du coté de la propriété "ShowModal"

Bonsoir et Merci pour ton aide casefayere mais j'ai essayé et ça me donne une erreur de compilation...

pour le teste dans userform2:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() UserForm1.ShowModal = True End Sub   Private Sub CommandButton3_Click() UserForm1.ShowModal = False End Sub

---

Résultat:

Erreur de compilation:
Membre de méthode ou de données introuvable.

J'ai essayé et meme résultat mais peut-etre peux-tu le prévoir dans les propriétés des USF ou
Regardes ce lien (la solution) :
http://silkyroad.developpez.com/VBA/UserForm/#LIII-A-2

:mouarf: c'est exactement la page que je regardais...

Si je met :

UsF1 Showmodal = True
UsF2 Showmodal = True

UsF2 vient toujours se caché derrière UsF1 mais je ne peut pas bouger UsF1 pour la retrouver.(actuellement)


Si je met :

UsF1 Showmodal = True
UsF2 Showmodal = False

Erreur Impossible d'afficher une feuille non modale lorsqu'une feuille modale est affiché.

Si je met :

UsF1 Showmodal = False
UsF2 Showmodal = True

UsF2 vient toujours se caché derrière UsF1 mais je ne peut pas bouger UsF1 pour la retrouver.


En effet si je met par défaut :

UsF1 Showmodal = False
UsF2 Showmodal = False

UsF2 vient toujours se caché derrière UsF1 mais je peut bouger mes deux UsF pour la retrouver.

Dans cette configuration je peux utilisé Show & Hide pour faire disparaitre et apparaitre UsF1 mais attention au yeux si je fais la m^me chose avec tous mes UsF...

Bonsoir,
Je ne sais pas si c'est que tu cherches et je n'ai plus le temps vu l'heure de regarder plus loin mais voici une piste si j'ai bien compris ce que tu cherches.
Dans un projet, j'ai inséré un UserForm1 et un UserForm2 et dans UserForm1 un CommandButton1 qui enclenche le UserForm2
Dans un module du projet

Code:

---

1 2 3

Sub Main() UserForm1.Show vbModeless End Sub

---

Dans l'objet Userform1

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() UserForm2.Show vbModeless End Sub Private Sub UserForm_Initialize() Me.StartUpPosition = 3 End Sub

---

Ici UserForm2 n'est pas caché

Bonsoir Corona,

The Rhythm Of The Night... Ho Yeah...

Heu désolé ;)

Merci pour ta solution mais ce n'est pas ce que je recherche ou alors ça ne fonctionne pas...

Je voudrais qu'une fois Usf2 visible Locker Usf1 afin d'être obliger de finir l'action de Usf2 avant de reprendre la main sur Usf1.

Alors je peux utilisé la fonction Enable mais elle m'empêche d'utilisé Usf1 mais pas le fais de la verrouiller comme le fait la fonction locked sur un Commandbutton.

Je sais pas si mais explication son claire.

un petit coup d'oeil sur la propriété "StartUpPosition".

ESVBA

Bonsoir ESVBA

Si je ne me trompe pas la propriété "StartUpPosition" ne permet que le positionnement sur l'écran et non un positionnement en profondeur de l'objet. Devant, Derrière

Bonsoir,
Voici une solution qui masque le UserForm1 quand le UserForm2 est visible et vice-versa
Du coup, Me.StartUpPosition = 3 n'est plus utile, j'avais mal compris ta demande, pensant que tu voulais les voir tous les deux.
Code de UserForm1 qui contient un CommandButton nommé cmdGo qui appelle UserForm2 et fait disparaître le UserForm1

Code:

---

1 2 3 4 5 6 7 8

Option Explicit ' UserForm1 Private Sub cmdGO_Click() Me.Hide: UserForm2.Show vbModeless End Sub Private Sub UserForm_Initialize() Me.StartUpPosition = 3 End Sub

---

Code de UserForm2 qui contient un CommandButton nommé cmdClose
qui fait réapparaitre le UserForm1

Code:

---

1 2 3 4

Private Sub cmdClose_Click() Me.Hide: UserForm1.Show End Sub

---

Ben c'est justement ce que je souhaite évité... jouer à cache cache avec mes Usf au fur et a mesure que je vais les appelé pour m'en servir...

Dans mon Usf1 j'ai au moins 8 Commandbutton qui vont appelé chacun une Usf différente.

Imagine l'opérateur qui se sert de mon fichier qui va au fur et a mesure de son utilisation voir des fenêtres apparaitre et disparaitre...

Perso j'en ai déjà mal au coeur ...

Mais le soucis c'est que mon Usf1 est plus grand en dimension que Usf2 et ses petits amis... et si par mégarde l'opérateur clic sur la souris sur Usf1 (quel que soit la valeur Enabled (True ou False) alors Usf1 passe devant Usf2 et je suis obliger de déplacer mon Usf1 pour avoir accès à l' Usf2...

Ce que je souhaite c'est garder en arrière plan Usf1 mais inactif graphiquement tant que je n'es pas fermer Usf2...


Exemple : Lorsque tu as une erreur dans ta macro. Quand tu l'essaye, apparait alors une boite contenant le message d'erreur. Tu es alors dans l'obligation de répondre à cette boite avant de pouvoir avoir de nouveau accès à la fenêtre Microsoft Visual Basic...

C'est ce que je cherche à faire... désespérément :cry:

Pardon, je n'avais pas vu que Corona parlait déjà de "StartUpPosition".

Récapitulatif : le formulaire 1 est ouvert. Je clique sur un bouton de ce formulaire 1 et j'obtiens un formulaire 2 avec le formulaire 1 affiché. Pour que l'ion ne puisse cliquer sur le formulaire 1, il faut donc ouvrir le formulaire 2 en "vbModal".

Si j'ai bien vu personne n'a proposé "vbModal" mais "vbModeless". Je mettrais dans le formulaire 1 :

Code:

---

1 2 3

Sub CommandButton1_Click() UserForm2.Show vbModal '<--- End Sub

---

Le formulaire 1 est visible mais non cliquable.

ESVBA

Merci ESVBA,

Je viens de tester ta proposition mais cela ne fonctionne pas non plus.

Ca fonctionne !

Mais ce code dans le bouton d'appel de la "UserForm2" se trouvant sur la "UserForm1" :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() UserForm2.StartUpPosition = 0 UserForm2.Move UserForm1.Left + UserForm1.Width * 0.5, UserForm1.Top + UserForm1.Height * 0.5 UserForm2.Show vbModal End Sub

---

ESVBA

Ok bon ben désolé ESVBA mais ça ne marche pas néanmoins j'ai trouvé quelque chose qui me convient :

Mes Usf ont toutes la propriété Showmodal = False

Dans Usf1, j'appelle Usf2 avec un bouton et je rend inactif les controls dit actif de Usf1:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton2_Click() For i = 1 To 11 For j = 1 To 4 For k = 1 To 2 UserForm1.Controls("CommandButton" & i).Enabled = False UserForm1.Controls("ComboBox" & j).Enabled = False UserForm1.Controls("TextBox" & k).Enabled = False Next k Next j Next i 'L'ensemble de la boucle i pourra se retrouver dans une macro d'un module afin d'évité de la répéter sur chaque Bouton. UserForm2.Show End Sub

---

Dans Usf1 je conditionne les actions sur l'Usf1 pour qu'il affiche Usf2 si celui-ci est déjà visible :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub UserForm_Activate() If UserForm2.Visible = True Then UserForm2.Show End If End Sub   Private Sub UserForm_Click() If UserForm2.Visible = True Then UserForm2.Show End If End Sub

---

Et enfin lorsque je quitte Usf2 avec l'aide de la croix rouge, je rend actif les controls dit actif de Usf1.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For i = 1 To 11 For j = 1 To 4 For k = 1 To 2 UserForm1.Controls("CommandButton" & i).Enabled = True UserForm1.Controls("ComboBox" & j).Enabled = True UserForm1.Controls("TextBox" & k).Enabled = True Next k Next j Next i 'L'ensemble de la boucle i pourra se retrouver dans une macro d'un module afin d'évité de la répéter sur chaque Bouton. UserForm2.Hide End Sub

---

Néanmoins, Une question subsiste... Comment puis-je évité ceci dans Usf1 ^pour mes futures Usf qui seront appelé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Private Sub UserForm_Activate()   If UserForm2.Visible = True Then UserForm2.Show End If   If UserForm3.Visible = True Then UserForm3.Show End If   If UserForm4.Visible = True Then UserForm4.Show End If   If UserForm5.Visible = True Then UserForm5.Show End If   If UserForm6.Visible = True Then UserForm6.Show End If   End Sub   Private Sub UserForm_Click()   If UserForm2.Visible = True Then UserForm2.Show End If   If UserForm3.Visible = True Then UserForm3.Show End If   If UserForm4.Visible = True Then UserForm4.Show End If   If UserForm5.Visible = True Then UserForm5.Show End If   If UserForm6.Visible = True Then UserForm6.Show End If   End Sub

---

Je joint un fichier pour ceux et celles qui veulent tester...

Merci à Tous pour l'aide que vous m'avez apporté ainsi que celles que vous m'apporterez... :ccool:

bonsoir Mentat et le forum

ton fichier joint est un classeur vierge

Pascal

Désolé pour le fichier joint gros plantage lorsque je l'es mis en ligne et donc fichier perdu.

J'ai donc supprimer le fichier vide et je le refais pour demain merci grisan29.

je joins un fichier qui fonctionne bien pour moi.

ESVBA

Toujours pas ESVBA

Voici ce que je cherchais...

Maintenant le soucis serais de faire en sorte que cela fonctionne pour tous les Usf utilisé même pour ceux appelé à l'intérieur d'une précédente Usf...

Usf1
Usf1 (locked)--->Usf2
Usf1 (locked)--->Usf2 (locked)--->Usf3
Usf1 (locked)--->Usf2 (locked)--->Usf3(locked)--->Usf4
...

Merci pour votre aide

Que puis-je faire de "WinMD5.zip" ?
Prends le risque avec mon fichier. Normalement, il est vérifié sans rien.

A oui, c'est mieux expliqué !
Il faut que la dernière UserForm ne soit pas en modal pour accéder à excel ! Le contrôle "RefEdit" permet d'accèder à Excel avec un UserForm MODAL. Enfin, je ne connais pas toutes les subtilités.

Pour désactiver tous les contrôles rapidement, il y a la solution de placer au dessus de toute la surface du UserForm un contrôle Label de la taille interne de la fenêtre et dont l'opacité est mise sur transparent. On voit sans pouvoir cliquer. Facile à ajouter par programmation.

Salut.

ESVBA

bonjour

alors pour ton probleme de userform il y aurait plusieur solution

je recapitule

tu a un bouton dans le usf 1 qui appelle le usf 2

probleme ton usf 1 garde la main(position1)

solution 1

faire du usf2 le fils du usf1 avec l'api setparent(fait une recherche)tu trouvera facilement d'ailleur le sujet a été traité et je sui l'auteur du post


solution2 utilisé l'api findwindow pour determiner les handles
et utiliser l'api showwindow pour determiné la position haute ou basse des userfoms

detail:
voila la fonction pourtrouver le handle

Code:

---

Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long

---

voila pour le set parent

Code:

---

Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

---

ou voila la fonction pour le show

Code:

---

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" ( ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

---

Description :
la fonction show window permet de forcer l'état d'affichage d'une fenêtre (agrandir, réduire).
hwnd est un pointeur (handle) vers une fenêtre.elle est determiné avec findwindow
nCmdShow peut prendre la valeur d'une constante dans le tableau ci-dessous.
La fonction retourne 0 si la fenêtre était cachée, et une valeur différente de 0 dans le cas contraire.

Constante Valeur Définition
SW_HIDE 0 Cache la fenêtre et en active une autre.
SW_MAXIMIZE 3 Agrandit la fenêtre.
SW_MINIMIZE 6 Réduit la fenêtre et active la prochaine (dans l'ordre des tâches windows).
SW_RESTORE 9 Active et affiche la fenêtre à sa taille et position initiales.
SW_SHOW 5 Active et affiche la fenêtre.
SW_SHOWMAXIMIZED 3 Active et agrandit la fenêtre.
SW_SHOWMINIMIZED 2 Active et réduit la fenêtre.
SW_SHOWNA 8 Identique à SW_SHOW sauf que la fenêtre n'est pas activée.

dois-je faire le reste ou tu va t'en sortir?


au plaisir

Merci ESVBA je ne sais pas ce qui c'est encore passé ce matin... C'était effectivement pas le bon fichier enfin bref, je l'ai échanger avec le bon.

Il est en Zip par ce que je n'es pas réussi à le mettre vu qu'il est en .xlsxm (Office 2010).

Tu trouvera donc ce que je souhaite réaliser et transformer avec un code digne de soit et non du bidouillage comme ça l'est actuellement.

Le mode d'affichage et de priorité avec les Commandbutton 1 à 3 qui viennent appelé Usf2 à Usf4 fonctionnent.

Mais pas avec le Commandbutton 5 qui quand tu viens cliqué sur Usf1, Usf2 va se caché...

Merci Patrick pour ton intervention, je pense effectivement qu'il serait plus correct de passé par les fonctions Windows. Je vais essayé d'y travailler et de me renseigner sur l'utilisation de ces fonctions.

Je ne vais cependant pas pouvoir m'y atteler ce soir je regarderais donc demain, je solliciterais surement de l'aide pour leurs utilisations donc si tu es dans le coin...

Merci à vous deux. Je vous tiens au courant.

c'est incompréhensible pour moi !

* le premier post, je comprends 1 formulaire qui appele des sous-formulaires. C'est ce qui est fait dans ton exemple.
* Dans un post suivant, c'est un formulaire avec une seule série de sous-formulaire en cascade.


Je redis : il faut appeller le(s) sous-formulaire(s) avec ".Show vbModal" (ou 0 ou rien) donc en modal !
Ca bloque tous les autres formulaires ouverts précédemment en modal.
Après si une solution ne t'intéresse pas... je n'y peux rien. Et je ne comprends pas ton problème.


En fermant par la croix la boite de dialogue, il n'y a aucun besoin de mettre des conditions partout.


Le seul inconvénient de cette méthode est que les contrôles sont inactifs mais non grisés ! Est-cela ton problème ?
Il n'y a pas d'autre solution que ce que tu fais sauf de tout mettre dans une fonction dans un module indépendant.

fonction genre :

Code:

---

1 2 3 4 5

Function Inactive(UsF as Control, YesNo as Boolean) For each c in Usf.controls usf.c.enabled = YesNo next c end function

---

ESVBA

je comprend plus rien.

ESVBA la solution de ton fichier Excel fonctionne à mon taf mais pas chez moi !

j'ai la même version...

je te propose de voir le post RESOLU suivant :
http://www.developpez.net/forums/d11...ntre-userform/


Une autre approche de formulaires en cascade, si c'est ce que tu veux.

ESVBA

bonsoir

je viens de faire l'essai avec 3 userforms avec 3 boutons

chaque bouton appelant le userform suivant et le 3 eme rapellant le 1er

en les metant show modal a false dans les propriétés pour chaque usf

le probleme n'est pas
parcontre si dans la macro de boutons apres l'appel a l'userform suivant tu a du code la ca va poser un probleme

alors une solution toute simple et qui t'evitera du code en pagaille serait

par exemple dans le userform1 apres l'apel du userform2 tu peut demander le focus du bouton du userform2

Code:

---

1 2 3 4 5

'exemple userform1: Private Sub CommandButton1_Click() UserForm2.Show 0 userform2.commandbutton1.setfocus End Sub

---

Code:

---

1 2 3 4 5

'exemple userform2: Private Sub CommandButton1_Click() UserForm3.Show 0 userform3.commandbutton1.setfocus End Sub

---

Code:

---

1 2 3 4 5

'exemple userform3: Private Sub CommandButton1_Click() UserForm1.Show 0 userform1.commandbutton1.setfocus End Sub

---

c'est juste une idée comme ca


au plaisir