Discussion :

[Tarasboulba64]

Boutons de redimensionnement sur une UserForm.

Sur les classeurs Excel, au dessus de la barre de menu se trouve trois boutons permettant de « fermer », de « réduire » et de « restaurer » le classeur actif.

Sur l’UserForm que j’ai crée, par défaut il y a qu’un seul bouton. Bouton Fermer la fenêtre.

Je souhaite rajouter deux autres boutons pour permettre a l’utilisateur de diminuer ou de rétablir la taille de l’Userform afin de libérer l’espace sur l’écran et de pouvoir accéder a une feuille Excel sans être gêné par l’User form. Mais je ne veux pas « Fermer l’UserForm »

Il me semble que dans les ancienne version d’Excel les propriétés de l’userform permettait de rajouter ces bouton.
Dans la version Excel 2007 je ne retrouve pas ces propriétés.

Pouvez-vous m’aider. Merci a tous.

[mercatog]

Regarde ici la FAQ

[Tarasboulba64]

Regarde ici la FAQ

Je ne m’en sors pas.

Avec quelle version d'Excel a été écrit ce code?

Lorsque je fais copier-coller, toutes les lignes "coller" dans le module VBA paraissent en rouge. J'ai essayé de débroussailler, mais je bloque.

Je ne comprends pas la provenance de certain argument par exemple vbNullString ou Me.legende (j'ai enlevé l'accent de légende) Comme ?? faut-il le remplacer par AS ? pour faire Dim hWnd As Long .

Si vous pouvez me dépatouiller ça m'arrangerait.

Dim hWnd Comme Long hWnd = FindWindowA ( vbNullString , Me . Légende ) SetWindowLongA hWnd, - 16 , GetWindowLongA (hWnd, - 16 ) Ou & H20000

[casefayere]

Bonsoir,
je viens de tester, moi aussi sur excel 2007, ça fonctionne sans problème.
as-tu bien coller dans le code de l'USF ?

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
17
18
19
20
21
22
23
24
Private Declare Function FindWindowA& Lib "User32" _
    (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" _
    (ByVal hWnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" _
    (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" _
    (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
 
 
Private Sub UserForm_Initialize()
    Dim hWnd As Long
 
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
 
 
Private Sub UserForm_Activate()
    Dim hWnd As Long
 
    hWnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hWnd, 1
End Sub

[Tarasboulba64]

Hier J'ai du faire une mauvaise manip ou même plusieurs mauvaises manip car j'ai tout de même bataillé un moment avant de déposer les armes.
Voyant donc, dans ton message, que tu as réussi à faire fonctionner la bête je m'y suis recollé et cette fois ça fonctionne.
Merci beaucoup

[patricktoulon]

bonjour


si ton but est seulement de rajouter les deux boutons manquants a ton userform

ca:ne te sert a rien puisque ca aji sur la caption de l'application et non pas sur le userform

Code :

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

1
2
3
4
5
6
7
8
 
'a supprimer dans ton cas 
Private Sub UserForm_Activate()
    Dim hWnd As Long
 
    hWnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hWnd, 1
End Sub

au plaisir