expression utiliser pour demander la resolution de l'ecran

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

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:

---

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).

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