Vérification de paramètres

Le
Denys
Bonjour tous,

Par curiosit, est-il possible qu' l'ouverture d'une
application qu'Excel vrifie si l'ordi a les paramtres
suivants: 1024 x 768 et que sinon un message apparaisse
demandant l'utilisateur de changer ses paramtres?

La raison est que j'ai fait une application et que le
Userform prend pratiquement tout l'cran en 1024 x 768.

Cependant, il existe encore des gens qui fonctionnent en
800 x 600 ce moment-l, l'application ne peut
fonctionner proprement.

Quelqu'un saurait?

Merci

Denys
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1336690
bonjour Denys,

il y a un exemple sur ce lien,
http://groups.google.com/groups?q24+x+768+group:microsoft.public.fr.excel&hl=fr&lr=&ie=UTF-8&oe=UTF-8&scoring=d&selm9f01c361d7%24e63a9e10%24a301280a%40phx.gbl&rnum=3

isabelle


Bonjour à tous,

Par curiosité, est-il possible qu'à l'ouverture d'une
application qu'Excel vérifie si l'ordi a les paramètres
suivants: 1024 x 768 et que sinon un message apparaisse
demandant à l'utilisateur de changer ses paramètres?

La raison est que j'ai fait une application et que le
Userform prend pratiquement tout l'écran en 1024 x 768.

Cependant, il existe encore des gens qui fonctionnent en
800 x 600... À ce moment-là, l'application ne peut
fonctionner proprement....

Quelqu'un saurait?

Merci

Denys


michdenis
Le #1336687
Bonjour Denys,

J'avais ce code dans mes choses mais pas son auteur (-:

Dans ton formulaire, copie ceci :

'------------
Private Sub UserForm_Initialize()
AdapterZoom
End Sub
'------------


Dans un module standard, copie ceci :


'Haut du module, déclaration API
Private Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

'-------------------
Sub AdapterZoom()
Dim lngWidth As Long
Dim lngHeight As Long
Dim ws As Worksheet

'Référencer la feuille active
Set ws = ActiveSheet
Application.ScreenUpdating = False

'Appel de l'API pour obtenir la définition de l'écran
lngWidth = GetSystemMetrics32(SM_CXSCREEN)
lngHeight = GetSystemMetrics32(SM_CYSCREEN)

'Les résolutions écran retenues
'1152 x 864 = 120%
'1024 x 768 = 100%
' 800 x 600 = 85%
' 640 x 480 = 75%

Select Case lngWidth
Case 1152
Call ZoomAdapté(120)
Case 1024
Call ZoomAdapté(100)
Case 800
Call ZoomAdapté(85)
Case 640
Call ZoomAdapté(75)
Case Else
MsgBox "Dimension vidéo inconnue: AutoOpen !"
Call ZoomAdapté(100)
End Select

ws.Activate
Application.ScreenUpdating = True
End Sub
'-------------------
Sub ZoomAdapté(Dimension As Integer)
UserForm1.Zoom = Dimension
End Sub
'-------------------


Salutations!



"Denys" Bonjour à tous,

Par curiosité, est-il possible qu'à l'ouverture d'une
application qu'Excel vérifie si l'ordi a les paramètres
suivants: 1024 x 768 et que sinon un message apparaisse
demandant à l'utilisateur de changer ses paramètres?

La raison est que j'ai fait une application et que le
Userform prend pratiquement tout l'écran en 1024 x 768.

Cependant, il existe encore des gens qui fonctionnent en
800 x 600... À ce moment-là, l'application ne peut
fonctionner proprement....

Quelqu'un saurait?

Merci

Denys
Michel Pierron
Le #1336686
Bonsoir Denys;
Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDc&, ByVal
nIndex&)
Private Declare Function GetDC& Lib "user32" (ByVal hwnd&)

Sub GetScreenResolution()
MsgBox GetDeviceCaps(GetDC(0), 8) & " / " & GetDeviceCaps(GetDC(0), 10)
End Sub

MP

"Denys" news:831601c4320c$e77f1c00$
Bonjour à tous,

Par curiosité, est-il possible qu'à l'ouverture d'une
application qu'Excel vérifie si l'ordi a les paramètres
suivants: 1024 x 768 et que sinon un message apparaisse
demandant à l'utilisateur de changer ses paramètres?

La raison est que j'ai fait une application et que le
Userform prend pratiquement tout l'écran en 1024 x 768.

Cependant, il existe encore des gens qui fonctionnent en
800 x 600... À ce moment-là, l'application ne peut
fonctionner proprement....

Quelqu'un saurait?

Merci

Denys
Pascal Engelmajer
Le #1336678
Salut,
une petite bidouille
donne la zone ou peut se mouvoir le curseur de la souris...
Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long
Type RECT
gauche As Long
haut As Long
droit As Long
bas As Long
End Type
Dim oGCC As RECT
Sub dimEcran()
GetClipCursor oGCC
With oGCC
MsgBox .droit & " x " & .bas
End With
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Denys" news: 831601c4320c$e77f1c00$
Bonjour à tous,

Par curiosité, est-il possible qu'à l'ouverture d'une
application qu'Excel vérifie si l'ordi a les paramètres
suivants: 1024 x 768 et que sinon un message apparaisse
demandant à l'utilisateur de changer ses paramètres?

La raison est que j'ai fait une application et que le
Userform prend pratiquement tout l'écran en 1024 x 768.

Cependant, il existe encore des gens qui fonctionnent en
800 x 600... À ce moment-là, l'application ne peut
fonctionner proprement....

Quelqu'un saurait?

Merci

Denys
Denys
Le #1336677
Bonjour Denis, Isabelle et Michel,

Et bien ! Dis-donc... je n'en espérais pas tant....

Merci infiniment de votre aide...

Denis, j'ai retenu ta solution qui fonctionne très bien...

Merci beaucoup

Bonne soirée

Denys
Publicité
Poster une réponse
Anonyme