[Edit AlainTech] Ce message est la copie d'un message de cette discussion.

On va alors danser le twips ensemble

regarde ce que fait ceci et sers-t-en bien (il va te dire combien ton écran contient de twips par pixel horizontalement et verticalement) :

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
Option Explicit
 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
  ByVal hdc As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
  ByVal nIndex As Long) As Long
Const couic As Long = 1440
Private Sub Command1_Click()
 MsgBox "ton écran estr configuré ainsi : " & vbCrLf & _
 nbtwipsparpixhor & " twips par pixel horizontalement " & vbCrLf & _
 nbtwipsparpixver & " twips par pixel verticalement "
End Sub
 
 
Function nbtwipsparpixhor() As Single
  Dim coucou As Long
  coucou = GetDC(0)
  nbtwipsparpixhor = couic / GetDeviceCaps(coucou, 88)
  ReleaseDC 0, coucou
End Function
 
Function nbtwipsparpixver() As Single
  Dim coucou As Long
  coucou = GetDC(0)
  nbtwipsparpixver = couic / GetDeviceCaps(coucou, 90)
  ReleaseDC 0, coucou
End Function
Fais-en bon usage, hein ...
(tu peux maintenant calculer le coefficent k de mon code donné plus haut, puis l'appliquer comme vu)
attention : n'oublie pas que tu as deux coefficients k (calcule donc kx et ky), l'un pour les mesures horizontales et l'autre pour les mesures verticales, hein... le principe de calcul étant toujours rigoureusement identique...

Si tu ne t'en sors pas (mais c'est maintenant ultra facile), fais signe et je te mache la chose de A à Z ...

PS : je suggère que l'on ne perde pas ce petit bout de code...