[XL-2003] adapter fenetre a chaque ecran pc

[neninio31]

Bonjour

j'ai réalisé une application en .xls que plusieurs personnes ouvriront.

seulement les personnes ont des écrans différents.


j'ai lu pas mal de forums sur le changement de résolution etcc.. mais je veux seulement que mon appli qui s'ouvre en plein ecran s'adapte a la taille de l'ecran ou pourquoi pas trouver une taille mini qui irait pour tout le monde


voila comment faire simple et efficace

Merci

[aalex_38]

Pourquoi pas comme ça :

Code :

Application.WindowState = xlMaximized

[neninio31]

Re
avec le code suivant

Code :

Application.WindowState = xlMaximized

c'est toujours aussi grand
je crois qu'il faut que je réduise la résolution

en fait n'est il pas possible de trouver un code qui dise la largeur de l'application = la largeur de l'écran
idem pour la hauteur


Merci

[fgiambelluco]

Un code trouvé sur un jour sur le net (et testé)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Declare Function GetSystemMetrics Lib "User32" (ByVal nIndex As Long) As Long
 Const SM_CXSCREEN = 0
 Const SM_CYSCREEN = 1
 
 
Sub AfficherInfoVideo()
    Dim LargeurVid As Long, HauteurVid As Long
    Dim msg As String
    LargeurVid = GetSystemMetrics(SM_CXSCREEN)
    HauteurVid = GetSystemMetrics(SM_CYSCREEN)
    msg = "Le mode vidéo courant est : "
    msg = msg & LargeurVid & " X " & HauteurVid
    MsgBox msg
End Sub

--------------
Frédéric
http://www.access-developpement.com

[neninio31]

Re

merci mais ou placer ce code ???

dans WorkBook_Open () ???

Est ce que c'est juste une macro qui donne les infos de résolution ou ca change la resolution ??
merci

Re

Bon j'ai essayé j'ai du déplacé qques boutons qui n'apparaissaient pas.

et pour une userform trop grande ??

Faut il la diminuer de taille ou peut elle s'adapter a l'écran ???

[jacques_jean]

Bonjour,

Vous pouvez essayer ce code, que j'ai trouvé, sous une forme plus complexe je ne sais plus où et que j'ai simplifié en fonction de mes besoins.

dans un module :

Code :

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
 
Option Explicit
Public Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Public Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Long, ByVal nIndex As Long) As Long
Public Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hDC As Long) As Long
Public Const LOGPIXELSX = 88
Public Const POINTS_PER_INCH As Long = 72
 
Public Function ScreenWidth() As Long
ScreenWidth = GetSystemMetrics(SM_CXSCREEN)
End Function
Public Function PointsPerPixel() As Double
Dim hDC As Long
Dim lDotsPerInch As Long
hDC = GetDC(0)
lDotsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)
PointsPerPixel = POINTS_PER_INCH / lDotsPerInch
ReleaseDC 0, hDC
End Function
Public Function ScreenHeight() As Long
ScreenHeight = GetSystemMetrics(SM_CYSCREEN)
End Function
 
Sub Essai()
UserForm1.Show
End Sub

Dans le code de votre ou vos formulaire(s) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub UserForm_Initialize()
Dim RW As Single, RH As Single
Dim Ctl As MSForms.Control
 
RW = ScreenWidth * PointsPerPixel / Me.Width
RH = ScreenHeight * PointsPerPixel / Me.Height
 
Me.Width = ScreenWidth * PointsPerPixel
Me.Height = ScreenHeight * PointsPerPixel
 
 
'Permet de redimensionner tous tes contrôles présent sur l'UserForm en 'fonction de la taille de l'userForm et de la taille de l'écran
For Each Ctl In Me.Controls
Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH
Next
End Sub

[CRACOS38]

AU SECOUR ! Pourquoi vous vous torturez le cerveau ?

ABRACADABRA !!

Code :

1
2
  Application.DisplayFullScreen = True
    Application.WindowState = xlNormal

C'est automatique sur toute les machines.

[laetitia]

bonjour neninio31 aalex_38 fgiambelluco CRACOS38 l'ami jacques_jean j ai pas croise depuis un bon moment a qui je fais de gros bisous

une autre methode bien plus lourde que la methode a jean en piéce jointe pas facile non plus a comprendre enfin bon!!!

[jacques_jean]

Bonsoir CRACOS38,

AU SECOURS ! Pourquoi vous vous torturez le cerveau ?

ABRACADABRA !!

Code :

C'est automatique sur toutes les machines.

C'est vrai !

Sont-ils bêtes ces gens qui perdent leur temps à mettre au point des tas de lignes de code et même des tutoriels pour aider les autres alors que c'est tellement simple.

Par exemple : les contrôles suivent ?

[La Zélie]

Bonsoir jacques_jean

Envoyé par jacques_jean

Bonsoir CRACOS38,

C'est vrai !

Sont-ils bêtes ces gens qui perdent leur temps à mettre au point des tas de lignes de code et même des tutoriaux pour aider les autres alors que c'est tellement simple.

Par exemple : les contrôles suivent ?

Je n'ai pas compris la ligne en gras, peux-tu expliquer s'il te plait?

pour les 3 lignes au-dessus je suis d'accord avec toi ( au 2ème degré )

[jacques_jean]

Bonjour La Zélie,

Et bien le principe, quand tout fonctionne bien (on ne sait jamais !) est que le formulaire est redimensionné, mais aussi, dans la même proportion, la taille de tous les contrôles présents.

Bon week-end.

Au passage, bonjour et bon week-end également Laetitia.

[mickisa]

pourquoi ne pas mettre tout simplement cela :

Code :

1
2
    Range("A2:K2").Select
    ActiveWindow.Zoom = True

en fait tu dis à l'écran de s'adapter à ta zone (ici A2:K2)

[laetitia]

bonjour mickisa le fil le forum l'exemple c'est pour un userform!!!