[VBA-E]UserFOrm

**malloc_92** · 12/04/2006, 13h46

Bonjour tout le monde !!

J'ai crée un Formulaire sous Excel qui se lance automatiquement au démarrage .Ma question est : " Est ce qu'il existe une méthode ou proprieté pour empecher le déplacement du formulaire par l'utilisateur ( Formulaire fixe)"???

Merci d'avance & Bon appétit pour ceux qui vont manger !

**malloc_92** · 12/04/2006, 14h29

Oui c'est bien cela le deplacer par la barre de titre...
J'ai déja testé le code suivant sans succes :

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
 
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Private Sub UserForm_Activate()
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub

Voila. .merci d'avance
[/code]

**malloc_92** · 12/04/2006, 14h49

Bein pas vraiment , parceque meme dans l'aide de VB je ne trouve pas de proprieté du nom "moveable" ou "movable" , j'ai quand meme essayé de l'appliquer sur l'objet UserForm et Me ..cela m'a donné une erreur

"Membre de méthode ou de donnée introuvable"

**malloc_92** · 12/04/2006, 14h58

Oui biensur mais ce probleme la je l'ai résolu en cachant les feuilles excel . C'est surtout pour que ca fasse plus propre et que l'interface Excel derriere soit cachée vu qu'elle ne sert à rien!!!
Voila

**malloc_92** · 12/04/2006, 15h11

Je veux pas paraitre saoulant..mais j'ai déja la fenetre du formulaire en plein ecran à l'ouverture ...Mais bon le fait de le fixer aurait été la cerise sur le gateau mais bon je peux très bien faire sans aussi

Merci !
A+

**ouskel'n'or** · 12/04/2006, 15h17

Tu peux aussi mettre
Application.visible = false
dans Userform.initialize
et le repasser à true dans ton bouton quitter et dans Userform.QueryClose

C'est ok mais j'ai un truc bizarre, ça me ferme l'appli quand je passe sur true

Tu peux toujours essayer, tu auras le fond d'écran derrière

A+