XL 2016 Bouton reduire sur userfofms

[aurelio.ewane]

Bonjour les frères Excel
J'ai un soucis je galère depuis un mois sur ça
En fait j'ai un userform FrmAccueil et j'ai un autre userform FrmBase que quand je clic sur un de bouton de luserform FrmAccueil ça affiche luserform FrmBase sans bien sûr fermer accueil (donc l'userform FrmAccueil est derriere puisque plus grand )

Probleme 1
J'aimerais avoir un bouton sur l'userform FrmAccueil pour pouvoir le réduire

Problème 2
Maintenant la ou je suis mort depuis c'est que je voudrais avoir un bouton sur le deuxième userform FrmBase qui réduis le userform FrmBase et réduis en meme temps luserform FrmAccueil
Et quand jagrandis ça agrandis les 2 userforms
Je demande à une ale charitable de me venir en aide

 

[patricktoulon]

Bonjour
met les deux boutons manquants dans la barre de titre et sert toi en comme tu ferais avec des fenêtres Windows
met ça dans tes deux userforms

'**********************************************************************************************
'      Ajouter les deux boutons manquants dans la barre de titre  à l'UserForm  et le mouse resizepar les angles et les cotés
'patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub UserForm_Activate()
    trois_boutons
End Sub

Private Sub trois_boutons()
    Dim hWnd&
    hWnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hWnd & ", " & -16 & ", " & &H94CF0080 & ")")     'api SetWindowLongA
End Sub

 

[aurelio.ewane]

Bonjour
met les deux boutons manquants dans la barre de titre et sert toi en comme tu ferais avec des fenêtres Windows
met ça dans tes deux userforms

'**********************************************************************************************
'      Ajouter les deux boutons manquants dans la barre de titre  à l'UserForm  et le mouse resizepar les angles et les cotés
'patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub UserForm_Activate()
    trois_boutons
End Sub

Private Sub trois_boutons()
    Dim hWnd&
    hWnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hWnd & ", " & -16 & ", " & &H94CF0080 & ")")     'api SetWindowLongA
End Sub

Ouiii mon frère
Jai juste besoin du bouton réduire et du bouton fermer
J'ai pas besoin du bouton agrandir
ESt til possible de ne garder que ces 2 boutons (réduire et fermer)

Déplus je voudrais qu'en réduisant un userform ça réduise celui qui se trouve derrière lui et en restaurant ceci que cela restauré aussi l'autre userform

 

[patricktoulon]

Bonjour
pour le userform la totale

'&H94C80080  'Normal à l'origine (juste le bouton fermer)

'&H94CA0080  'seulement le bouton reduire

'&H94C90080  'seulement le bouton agrandir

'&H94CB0080  'seulement les deux boutons agrandir & reduire

'&H94CC0080  'seulement l'elasticité

'&H94CE0080  'seulement l bouton reduire et l'élasticité

'&H94CD0080  'seulement le bouton agranfir et l'élasticité

'&H94C00080  'pas de bouton dans la barre de titre

'&H94080080  'pas de cadre pas de barre de titre

'&H140F0101  'pas de barre de titre mais le cadre et elasticié

'&H1010080   'barre de titre et cadre façon ( Old Windows et excel 2003)

pour le reste il faut te relire un peu et marcher avec tes pieds pas avec ta tête
LOL !!!

 

[aurelio.ewane]

Bonjour
pour le userform la totale

'&H94C80080  'Normal à l'origine (juste le bouton fermer)

'&H94CA0080  'seulement le bouton reduire

'&H94C90080  'seulement le bouton agrandir

'&H94CB0080  'seulement les deux boutons agrandir & reduire

'&H94CC0080  'seulement l'elasticité

'&H94CE0080  'seulement l bouton reduire et l'élasticité

'&H94CD0080  'seulement le bouton agranfir et l'élasticité

'&H94C00080  'pas de bouton dans la barre de titre

'&H94080080  'pas de cadre pas de barre de titre

'&H140F0101  'pas de barre de titre mais le cadre et elasticié

'&H1010080   'barre de titre et cadre façon ( Old Windows et excel 2003)

pour le reste il faut te relire un peu et marcher avec tes pieds pas avec ta tête
LOL !!!

Intéressant mon frère
Jai teste c'est pure
Mais mon problème reste intact
Je réussi à afficher le bouton réduire
Mon problème reste que je voudrais qu'en réduisant un userform que cela réduise aussi luserform accueil qui se trouvais derrière et en restaurant que ça restAure également les 2


Après plusieurs lectures j'ai vu qu'il faut connaître le handle d'un formulaire pour le manipuler ainsi et en plus on manipule celui qui est actif

Peut tu donc m'orienter davantage?
Je suis bloquer

 

[patricktoulon]

re
Bonjour
allez je t'oriente
c'est la fonction showwindow qu'il te faut en plus de ce que je t'ai donné

je te fait un petit exemple en rentrant en milieu d'aprem là pour le momment c'est baignade et margarita au bord de mer

 

[aurelio.ewane]

re
Bonjour
allez je t'oriente
c'est la fonction showwindow qu'il te faut en plus de ce que je t'ai donné

je te fait un petit exemple en rentrant en milieu d'aprem là pour le momment c'est baignade et margarita au bord de mer

Okeyy J'attends

 

[patricktoulon]

je te donnerais ça demain
il faut que je maitrise quel est l'userform actif des deux sinon j'ai déjà fait le code

 

[aurelio.ewane]

je te donnerais ça demain
il faut que je maitrise quel est l'userform actif des deux sinon j'ai déjà fait le code

J'attends mon frère

 

[patricktoulon]

re
bonjour @esaurelien
bon voila un exemple
le userform 1 ouvre avec un bouton le userform2
le bouton reduire des deux userforms reduise bien entendu le userform
mais le 2 quand il se reduit reduit aussi le 1 et quand tu l'agrandi il agrandi aussi le 1
bien entendu le userform2 reste toujours au premier plan

cela a impliquer de travailler avec des userform vbmodeless

 

[aurelio.ewane]

re
bonjour @esaurelien
bon voila un exemple
le userform 1 ouvre avec un bouton le userform2
le bouton reduire des deux userforms reduise bien entendu le userform
mais le 2 quand il se reduit reduit aussi le 1 et quand tu l'agrandi il agrandi aussi le 1
bien entendu le userform2 reste toujours au premier plan

cela a impliquer de travailler avec des userform vbmodeless

Je te remercie pour le travail titanesque que tu fais
Mais j'y comprendsrien
Puis je supprimerle bouton de d uppromrr

 

[patricktoulon]

re
Bonjour @esaurelien

Puis je supprimerle bouton de d uppromrr

et en français ça donne quoi

 

[Makel]

Bonjour
met les deux boutons manquants dans la barre de titre et sert toi en comme tu ferais avec des fenêtres Windows
met ça dans tes deux userforms

'**********************************************************************************************
'      Ajouter les deux boutons manquants dans la barre de titre  à l'UserForm  et le mouse resizepar les angles et les cotés
'patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub UserForm_Activate()
    trois_boutons
End Sub

Private Sub trois_boutons()
    Dim hWnd&
    hWnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hWnd & ", " & -16 & ", " & &H94CF0080 & ")")     'api SetWindowLongA
End Sub

 

[Makel]

MERCI BEAUCOUP

 

[aurelio.ewane]

re
bonjour @esaurelien
bon voila un exemple
le userform 1 ouvre avec un bouton le userform2
le bouton reduire des deux userforms reduise bien entendu le userform
mais le 2 quand il se reduit reduit aussi le 1 et quand tu l'agrandi il agrandi aussi le 1
bien entendu le userform2 reste toujours au premier plan

cela a impliquer de travailler avec des userform vbmodeless

Interessat sauf que
Quand on restaures l'userform1 il il doit restaurer aussi luserform 2 sil existe