[VBA-E]UserFOrm

Version imprimable

12/04/2006, 13h46
malloc_92

[VBA-E]UserFOrm

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 !

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

Code:

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]

12/04/2006, 14h49
malloc_92

RE

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"
12/04/2006, 14h58
malloc_92

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
12/04/2006, 15h11
malloc_92

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+
12/04/2006, 15h17
ouskel'n'or

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 :cry:

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

A+
12/04/2006, 15h24
malloc_92

Bein ecoute c'est NICKEL !!
Juste ce qu'il me fallait !

Merci bien !

:)