cache cache entre 2 userform

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