Discussion :

[adelsunwind]

Bonsoir,
savez vous comment on avoir en permanence un formulaire centré sur l'écran pour que la totalité du formulaire ( bouton, zone de texte..) soit contenu sur l'ecran sans avoir a bouger la barre de défilement pour atteindre ces controles?
Thanks a lot.
Ce forum est excellent.
Merci à ceux qui l'administre.

[LedZeppII]

Bonsoir,

Essaie ce code de la faq.

A+

[vlksoft]

bonjour

citation

Code :

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

Essaie ce code de la faq.

le code que LedZeppII t'a recommandé est parfaitement efficace pour ton problème car je l'ai déjà testé il marche parfaitement. Et n'oublies pas de mettre résolu.Très important.

[adelsunwind]

Bonjour à tous.
J'ai bien essayé d'insérer ce bout de code issu de la FAC dans un module de ma BDD.
Si je comprends bien, j isère la première partie de ce code et la dernière dans un module.
Les 3 lignes de code du milieu sont à inserer dans mon formulaire sous un bouton.
Pourtant quand je clique le formualire bouge legerement mais sans se centrer.
Merci aux bonnes ames.

[azertix]

Tu crée un nouveau module (que tu appelle par exemple modCentrer) dans le quel tu colle le code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
 
Private Type Position
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 ' --Pour obtenir les coordonnées de la fenêtre parent
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 ' --Pour obtenir les coordonnées de notre formulaire
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
lpRect As Position) As Long
 ' --Pour obtenir les coordonnées de l'écran
Public Declare Function GetDesktopWindow Lib "user32" () As Long
 ' --Pour positionner et dimensionner la fenêtre
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long
 
Public Sub Positionner(frm As Form)
Dim FParent As Position '--Fenêtre Parent
Dim Fenetre As Position
Dim Largeur As Integer
Dim Hauteur As Integer
Dim LParent As Integer ' --Largeur Fenêtre Parent
Dim HParent As Integer ' --Hauteur Fenêtre Parent
Dim PParent As Long ' --Posion parent
On Error GoTo Erreur
 ' --Trouver les coordonnées de mon formulaire à centrer.
PParent = GetParent(frm.hwnd)
 ' --Obtenir les coordonnées de mon formulaire et celles de son parent.
Call GetWindowRect(frm.hwnd, Fenetre)
 ' --Si le parent est la fenêtre Access, pas de soustracion
If PParent <> Application.hWndAccessApp Then
    Call GetWindowRect(PParent, FParent)
Else
    ' -- les coordonnées du Desktop
    Call GetWindowRect(GetDesktopWindow(), FParent)
End If
 ' --Calcul de la largeur et de la hauteur du parent
With FParent
    LParent = .Right - .Left
    HParent = .Bottom - .Top
End With
 ' --Calcul de la largeur et de la hauteur de mon formulaire
With Fenetre
    Largeur = .Right - .Left
    Hauteur = .Bottom - .Top
    .Left = (LParent - Largeur) \ 2
    .Top = (HParent - Hauteur) \ 2
End With
 ' --Centrer mon formulaire
Call MoveWindow(frm.hwnd, Fenetre.Left, Fenetre.Top, Largeur, Hauteur, bRepaint:=True)
Exit Sub
Erreur:
MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

Et ensuite, tu peux apeller la fonction de centrage en utilisant l'instruction :

Code :

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

Call Positionner(Me)

Où tu veux dans ton code

[Papy_Bro]

Bonjour,

tu veux centrer ton formulaire ou l'agrandir ?

[azertix]

Il veut le centrer c'est écrit dans le titre du topic et dans son premier post

[adelsunwind]

J ai bien insérer ce code comme il se doit. Par contre j ai bien mon formulaire qui apparait mais là il fait 4-5 fois la taille de mon écran, donc ce n est pas trop ce que je voulais à la base.
J aimerai que la totalité de mes formulaires tiennent en permanence sur l'ecran sans avoir à atteindre les controle avec la barre de défilement.
Merci encore

[azertix]

Euu, j'ai testé le code chez moi, et il marche très bien ...
Je vois pas là
Je te remets le code, dès fois que j'aie fait une erreur de copie ...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
 
Private Type Position
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 ' --Pour obtenir les coordonnées de la fenêtre parent
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 ' --Pour obtenir les coordonnées de notre formulaire
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
lpRect As Position) As Long
 ' --Pour obtenir les coordonnées de l'écran
Public Declare Function GetDesktopWindow Lib "user32" () As Long
 ' --Pour positionner et dimensionner la fenêtre
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long
 
Public Sub Positionner(frm As Form)
Dim FParent As Position '--Fenêtre Parent
Dim Fenetre As Position
Dim Largeur As Integer
Dim Hauteur As Integer
Dim LParent As Integer ' --Largeur Fenêtre Parent
Dim HParent As Integer ' --Hauteur Fenêtre Parent
Dim PParent As Long ' --Posion parent
On Error GoTo Erreur
 ' --Trouver les coordonnées de mon formulaire à centrer.
PParent = GetParent(frm.hwnd)
 ' --Obtenir les coordonnées de mon formulaire et celles de son parent.
Call GetWindowRect(frm.hwnd, Fenetre)
 ' --Si le parent est la fenêtre Access, pas de soustracion
If PParent <> Application.hWndAccessApp Then
    Call GetWindowRect(PParent, FParent)
Else
    ' -- les coordonnées du Desktop
    Call GetWindowRect(GetDesktopWindow(), FParent)
End If
 ' --Calcul de la largeur et de la hauteur du parent
With FParent
    LParent = .Right - .Left
    HParent = .Bottom - .Top
End With
 ' --Calcul de la largeur et de la hauteur de mon formulaire
With Fenetre
    Largeur = .Right - .Left
    Hauteur = .Bottom - .Top
    .Left = (LParent - Largeur) \ 2
    .Top = (HParent - Hauteur) \ 2
End With
 ' --Centrer mon formulaire
Call MoveWindow(frm.hwnd, Fenetre.Left, Fenetre.Top, Largeur, Hauteur, bRepaint:=True)
Exit Sub
Erreur:
MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

[adelsunwind]

Bon c est mieux merci.
Je ne sais pas d ou venait le pb.
Par contre en voyant le résultat je me demande quellle est l utilité de ce module.
Est ce la même chose qu un

Code :

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

1
2
 
Docmd.Maximize

Moi je pensais que même si en mode creation tu avais un formulaire qui sortait du cadre de l ecran alors en mode formulaire il serait automatiquement dimensionné par rapport à la taille de l'ecran.
Merci de m'éclaircir.
Merci

[azertix]

DoCmd.Maximise agrandit la fenêtre du formulaire (donc elle prend presque toute la taille de l'écran), alors que le code de Morsi centre ton formulaire au centre de l'écran

[jedimaster10]

Bonjour,

Désolé de déterrer ce sujet mais j'en ai besoin

Je suis sous Access 2010 et voudrais que chaque formulaire ouvert soit centré à l'écran quelle que soit la résolution de l'écran.

J'ai un formulaire qui s'ouvre au démarrage de la base et d'autres ouverts grâce à des boutons d'action de ce formulaire d'accueil.

J'ai créé un module dans lequel j'ai coller le code présenté ci-dessus et j'ai fait un Call Positionner(Me) dans un Private Sub Form_Open() mais j'ai une erreur à l'ouverture.

En fait, je ne sais pas où le positionner J'imagine en plus qu'il faut le faire pour chaque formulaire que je souhaite centrer ?

Merci de votre aide.

[jedimaster10]

Bonjour,

Any help please ?

[Manu66]

Merci je séchais...

Pour info fonctionne avec 2010

Par contre, je serrais intéressé pour la gestion du multi-écrans.

Car centre systématiquement sur l'écran principal et pas sur l'écran de la fenêtre "parent"