XL 2016 Minimisez et maximisez

[Yves Béchard]

Bonjour a tous

Comment faire pour minimisez et maximisez un userform

Merci

 

[patricktoulon]

bonjour
ta question est simple et vague a la fois
a quel moment tu veux maximiser ou minimiser
dois tu avoir les 2 possibilité pilotables
de ta réponse dépendra la méthode api ou non

 

[Yves Béchard]

Salut

Je veux seulement être capable de descendre a gauche en bas de l’ecran et être capable de travailler sur un autre formulaire

Merci

 

[patricktoulon]

re
on ajoute donc les boutons manquants dans la caption du UserForm
dans le module du Userform

Option Explicit
#If VBA7 Then
    Private Declare ptrsafe Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
    Private Declare ptrsafe Function SetWindowLongA Lib "user32" (ByVal hwnd As Longptr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Longptr
Dim handle As longptr
#Else
    Private Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim handle As Long
#End If
Private Sub UserForm_Activate()
    handle = fwa(vbNullString, Me.Caption)
    SetWindowLongA handle, -16, &H94CF0080                      'complete caption
End Sub

 

[Yves Béchard]

re
on ajoute donc les boutons manquants dans la caption du UserForm
dans le module du Userform

Option Explicit
#If VBA7 Then
    Private Declare ptrsafe Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
    Private Declare ptrsafe Function SetWindowLongA Lib "user32" (ByVal hwnd As Longptr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Longptr
Dim handle As longptr
#Else
    Private Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim handle As Long
#End If
Private Sub UserForm_Activate()
    handle = fwa(vbNullString, Me.Caption)
    SetWindowLongA handle, -16, &H94CF0080                      'complete caption
End Sub

Merci j’essais et je te reviens plus tard .....

 

[Yves Béchard]

re
on ajoute donc les boutons manquants dans la caption du UserForm
dans le module du Userform

Option Explicit
#If VBA7 Then
    Private Declare ptrsafe Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
    Private Declare ptrsafe Function SetWindowLongA Lib "user32" (ByVal hwnd As Longptr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Longptr
Dim handle As longptr
#Else
    Private Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim handle As Long
#End If
Private Sub UserForm_Activate()
    handle = fwa(vbNullString, Me.Caption)
    SetWindowLongA handle, -16, &H94CF0080                      'complete caption
End Sub

Bonjour !!!!

Ca ne fonctionne pas probablement et surment je ne comprend pas

je tenvoie mon fichier

Merci

 

[patricktoulon]

re
ben moi aussi je pige pas
le mot de passe?
mon code n'y est pas (dans aucun de tes userforms???
🙄

je l'ai modifié et mis a tous tes userforms
ca fonctionne en 32 bits

 

[Yves Béchard]

re
ben moi aussi je pige pas
le mot de passe?
mon code n'y est pas (dans aucun de tes userforms???
🙄

je l'ai modifié et mis a tous tes userforms
ca fonctionne en 32 bits
Regarde la pièce jointe 1039590

 

[Yves Béchard]

Merci

Je comprend mieux

2 Dernières questions
Maintenant quel est le code pour ètre capable d'en minimiser plusieurs a la fois c'est a dire n'en minimiser un et etre capabler d'en ouvrire un autre
Et pourquoi quand je me conecte jouvre sur ma deuxieme feuille ( Inventaire ) et non la premiere qui est ( Content )

J'ai créer un admin ( Yves ) Password (YB05cb21&07)
et Calole Password 110893AC ceci etais pour masquer les feuilles .....

Merci encore ......

 

[Yves Béchard]

Oupps Je tenvoie le fichier

 

[patricktoulon]

fait moi plaisir recopie les codes tel qu'on te le donne la c'est pas bon les déclarations d'api Windows
il manque le 32 bits

 

[Yves Béchard]

Merci !!!!

Je vais reprendre le fichier que tu ma envoyé plutard je refais l’essais mais que moi Windows est en 64 bits est-ce différent ????