XL 2013 unité de mesure des positions d'un inputbox

patricktoulon · 14 Novembre 2022

Bonjour à tous
je me pose une question qui est peut être bête mais j'm'en fiche je la pose quand même

dans mon Userform je lance un inputbox placé au niveau du Userform

pour qu'il soit placé là ou je veux je suis obligé de multiplier par 20 la position left et top du userform

question :

est ce normal?
si oui quelle est l'unité de mesure (point , pixel , cm , etc...)?

VB:

Private Sub Label3_Click() 'bouton header
x = InputBox("veuillez entrer le texte du header", "texte du header", "tapez votre texte ici", Me.Left * 20, Me.Top * 20)
End Sub

merci pour les éventuels retours

Dudu2 · 14 Novembre 2022

Ah ben voila...

Application.PointsToTwips method (Publisher)

Office VBA reference topic

learn.microsoft.com

Converts a measurement from points to twips (20 twips = 1 point). Returns the converted measurement as a Single.

dysorthographie · 14 Novembre 2022

De l’anglais twip abréviation de twentieth of a point, signifiant vingtième de point.

Un pixels c'est un point !

TooFatBoy · 14 Novembre 2022

dysorthographie à dit:
De l’anglais twip abréviation de twentieth of a point, signifiant vingtième de point.

Oui, j'ai vu.

Mais ce n'était pas du tout ce que disait Microsoft dans l'aide de Visual Basic 4.
Et je ne suis pas persuadé qu'ils aient évoluer sur ce point (sans jeu de mots).

dysorthographie · 14 Novembre 2022

Code:

debug.print Application.CentimetersToPoints(1) ' nombre de points pour 1cm

TooFatBoy · 14 Novembre 2022

Oui, mais la réponse que me retourne cette fonction est totalement fausse puisqu'en réalité elle n'est vraie que pour 96 dpi...

On tourne en rond là.
Mais merci d'avoir essayé de m'aider à comprendre les twips.

Bonne journée

dysorthographie · 14 Novembre 2022

Voila ce que dit Microsoft :
Convertit une mesure depointsen twips (20twips = 1 point). Renvoie la mesure convertie en tant quemesure Single.

Application.PointsToTwips method (Publisher)

Office VBA reference topic

learn.microsoft.com

patricktoulon · 14 Novembre 2022

re
coucou robert

VB:

Sub test()
Large = 94

hauteur = 53

diagonale = 107

lpoint = Application.CentimetersToPoints(Large)

lpix = Application.CentimetersToPoints(Large) * (4 / 3)

ltw = (Application.CentimetersToPoints(Large) * ((4 / 3))) * 20
Debug.Print "largeur "
Debug.Print "en dpi 96"
Debug.Print "largeur en points  " & lpoint
Debug.Print "largeur en pixel (dpi 96 soit 100%)  " & lpix
Debug.Print "largeur en twips dpi(96 soit 100% )  " & ltw
Debug.Print vbCrLf & "en dpi 120 soit 125%"
Debug.Print "largeur en points  " & lpoint * 1.25
Debug.Print "largeur en pixel (dpi 120 soit 125%)  " & lpix * 1.25
Debug.Print "largeur en twips dpi(120 soit 125% )  " & ltw * 1.25

Debug.Print vbCrLf & "hauteur"

lpoint = Application.CentimetersToPoints(hauteur)

lpix = Application.CentimetersToPoints(hauteur) * (4 / 3)

ltw = (Application.CentimetersToPoints(hauteur) * ((4 / 3))) * 20
Debug.Print "en dpi 96"
Debug.Print "largeur en points  " & lpoint
Debug.Print "largeur en pixel (dpi 96 soit 100%)  " & lpix
Debug.Print "largeur en twips dpi(96 soit 100% )  " & ltw
Debug.Print vbCrLf & "en dpi 120 soit 125%"
Debug.Print "largeur en points  " & lpoint * 1.25
Debug.Print "largeur en pixel (dpi 120 soit 125%)  " & lpix * 1.25
Debug.Print "largeur en twips dpi(120 soit 125% )  " & ltw * 1.25

End Sub

TooFatBoy · 14 Novembre 2022

dysorthographie à dit:
Convertit une mesure depointsen twips (20twips = 1 point).

On tourne vraiment en rond : ça fait au moins trois fois qu'on retombe sur le fait que 1 twip = 1/20 point.

TooFatBoy · 14 Novembre 2022

patricktoulon à dit:
(dpi 96 soit 100%)

Non, ça n'a toujours aucun sens : voir conversations précédentes sur le sujet.

Déjà, "dpi 96" ne veut rien dire, mais en plus (comme déjà expliqué plusieurs fois) le zoom à 100 % ne donne pas forcément 96 dans la vraie vie, ça dépend de l'écran.
D'où toutes ces mesures Microsoftiennes théoriques fausses IRL...

dysorthographie · 14 Novembre 2022

TooFatBoy à dit:
Non, ça n'a toujours aucun sens : voir conversations précédentes sur le sujet.

Déjà, "dpi 96" ne veut rien dire, mais en plus (comme déjà expliqué plusieurs fois) le zoom à 100 % ne donne pas forcément 96 dans la vraie vie, ça dépend de l'écran.
D'où toutes ces mesures Microsoftiennes théoriques fausses IRL...

Bien sur que si ça veux dire qq chose!

moi avec mon 13" j'ai pas 96 dpi mais 28,3464566929134 !

sit ut connais le nombre par Cm alors tu en déduit le reste!

TooFatBoy · 14 Novembre 2022

dysorthographie à dit:
moi avec mon 13" j'ai pas 96 dpi mais 28,3464566929134 !

Et je suppose que le zoom de ton Bureau est à 100 %.
Si c'est bien le cas, tu confirmes là ce que je disais : 100 % ne donne pas forcément 96.
(28 ça me paraît très faible... t'es sûr d'avoir bien calculé ?)

Moi non plus je n'ai pas 96 dpi : j'avais mesuré 111 dpi pour la dalle de mon moniteur (si je me souviens bien) et le Bureau de mon Windows a un zoom à 100 %.

Je me repencherai sur les twips à tête reposée...
Ce serait sympa que j'arrive enfin à comprendre, au bout de 25 ans, ce que Microsoft nous raconte avec ses twips.

@+

TooFatBoy · 14 Novembre 2022

Le code de #21 donne des valeurs fausses.

Déjà, je pense qu'il y a une erreur dans le code : ce n'est pas Lpix, mais Lpoint, qu'il faut multiplier par 20.

Ensuite, on voit bien que ça donne n'importe quoi, puisqu'il suffit de modifier la taille de l'écran pour que ça modifie le nombre de pixels (comme si on vivait encore à l'époque où tous les moniteurs avaient la même résolution... ).

XL 2013 unité de mesure des positions d'un inputbox

patricktoulon

XLDnaute Barbatruc

Dudu2

Application.PointsToTwips method (Publisher)

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Application.PointsToTwips method (Publisher)

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires