Discussion :

[patricktoulon]

bonjour a tous .et oui je reviens apres quelque temps because beaucoup de travail
alors voila je continu d'ameliorer mon petit devis facturier et pour cela j'ai besoin d'un petit coup de main
mon probleme est le suivant:
je travail sur 3 ordinateurs
le 1 er 16//9 en 19 pouce

le2 eme en 17 pouce 1024*768

le 3 eme le tout dernier mon pc portable en 15 .4 pouce

vous imaginez facilement que mes userforms concu avec le 1 er me pose probleme sur les 2 autres ordis alors j'e voudrai faire un userform suplementaire qui me poserai la question sur quel ordi je travail

et pour cela dans cet userform je metrais un text box qui m'afficherais la resolution actuel de l'ecran sur le quel je travaille a partir de la je pense que j'arriverais a me debrouiller il me faut juste l'expression qui designe la resolution de l'ecran
si quelqu'un a la solution sa serait sympa de me la donner

merci d'avance a tous

[ucfoutu]

Bonjour,

VBA ne connaît malheureusement pas l'objet Screen (que connaît VB6).
Qu'à cela ne tienne... ===>> l'utilisation de fonctions de l'Api de Windows (plusieurs possibilités) te permet d'obtenir ces renseignements...
Celle-ci, par exemple et entre autres manières :

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
 
Option Explicit
 
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
 
Const ENUM_CURRENT_SETTINGS As Long = -1&
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Private Type DEVMODE
    dmDeviceName As String * CCDEVICENAME
    dmSpecVersion As Integer
    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmYResolution As Integer
    dmTTOption As Integer
    dmCollate As Integer
    dmFormName As String * CCFORMNAME
    dmUnusedPadding As Integer
    dmBitsPerPel As Integer
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
End Type
 
 
Private Sub Command1_Click()
    Dim DevM As DEVMODE, msg As String
    Call EnumDisplaySettings(0&, ENUM_CURRENT_SETTINGS, DevM)
    MsgBox "ton écran a " & DevM.dmPelsWidth & " pixels en largeur et " & DevM.dmPelsHeight & " pixels en hauteur"
End Sub

EDIT :
ceci étant dit, ta "précaution" à l'aide de la seule résolution n'est pas parfaite, dans ce sens que, selon la personnalisation du PC final, la "surface de travail" pourra différer d'un PC à l'autre, même s'ils ont la même résolution.
La vraie surface disponible doit en effet tenir compte des ajustements de la barre des tâches (escamotable, invisible ou fixe) et de sa hauteur. Et si cette barre est affichée verticalement, kif-kif, mais en tenant alors compte de sa largeur.
Le composant sysinfo (à voir dans ton aide en ligne) te retourne les positions et dimensions de cette "surface de travail". Les valeurs sont toutefois retournées en twips et il te faudra les convertir en pixels (en général en diviisant par 15 sur la plupart des écrans, mais pas toujours ...et il te faudrait alors, également par utilisation de fonctions de l'Api de Windows, extraire, pour les appliquer, les nombres horizointal et vertical de Twips par pixel sur la machine finale).

[patricktoulon]

bonjour ucfoutu
merci encore a toi decidement je ne sais pas ce que je ferais sans toi
je vais essayer ca et je donne des nouvelles
merci encore