Affichage forme différent suivant PC

Le
Aurelien77 Hors ligne
Bonjour,

Cela fait maintenant plusieurs jours et même semaines que je cherche à comprendre le comportement que j’observe sur Excel. J’ai trouvé plusieurs pistes mais rien qui ne répond à mon cas précis et donc je sollicite vote aide !

Mon cas est assez simple : je trace un cercle (par exemple de 8,25cm de hauteur et largeur donc), j’envoie mon fichier à une autre personne qui l’ouvre et trouve alors des dimensions différentes. J’ai fait un petit tableau ci-dessous avec toutes les données que j’ai récoltées :

PC Dimension écran (pixels) Hauteur forme Largeur forme Hauteur forme (points) Largeur forme (points) Points par pixel Hauteur ligne Largeur colonne
PC 1 1366x768 8,25cm 8,25cm 233,5881958 233,8435364 0,75 15 16,57
PC 2 1920x1080 8,25cm 8,54cm ? 242,0881958 0,5 15 16,64

Autre test :

PC Dimension écran (pixels) Hauteur forme Largeur forme Hauteur forme (points) Largeur forme (points) Points par pixel Hauteur ligne Largeur colonne
PC 1 1366x768 5cm 5cm 141,7323 141,7323 0,75 8,43 15
PC 2 1920x1080 4,82cm 5,27cm 136,7323 149,2323 0,5 8,55 14,5

Je pensais que cela était lié aux différences de dimension d’écran et résolution mais ça n’a pas l’air le cas.

Avez-vous des pistes à me suggérer ?

Merci.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26538071
Bonjour,
Comment procèdes-tu pour déterminer la mesure de ton diamètre de ton
cercle?
Exemple :
Pour obtenir le quadrillage de la feuille en 10 mm
'----------------------------------------------
Sub QuadrillageEnCm()
Cells.ColumnWidth = SetColumnWidth(10)
Cells.RowHeight = Columns(1).Width
End Sub
'----------------------------------------------
Function SetColumnWidth(MM As Integer) As Double
Dim lr As Single
Application.ScreenUpdating = False
lr = Application.CentimetersToPoints(MM / 10)
While Columns(1).Width > lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1
Wend
While Columns(1).Width < lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Wend
SetColumnWidth = Columns(1).ColumnWidth
End Function
'----------------------------------------------
MichD
JièL
Le #26538095
Hello,
quelle versions d'Excel au départ et à l'arrivé ?
--
JièL
Le 12/02/2020 à 17:44, Aurelien77 a écrit :
Bonjour,
Cela fait maintenant plusieurs jours et même semaines que je cherche à
comprendre le comportement que j’observe sur Excel. J’ai trouvé plusieurs pistes
mais rien qui ne répond à mon cas précis et donc je sollicite vote aide !
Mon cas est assez simple : je trace un cercle (par exemple de 8,25cm de hauteur
et largeur donc), j’envoie mon fichier à une autre personne qui l’ouvre et
trouve alors des dimensions différentes. J’ai fait un petit tableau ci-dessous
avec toutes les données que j’ai récoltées :
PC Dimension écran (pixels) Hauteur forme Largeur forme Hauteur forme
(points) Largeur forme (points) Points par pixel Hauteur ligne Largeur colonne
PC 1 1366x768 8,25cm 8,25cm 233,5881958 233,8435364 0,75 15 16,57
PC 2 1920x1080 8,25cm 8,54cm ? 242,0881958 0,5 15 16,64
Autre test :
PC Dimension écran (pixels) Hauteur forme Largeur forme Hauteur forme
(points) Largeur forme (points) Points par pixel Hauteur ligne Largeur colonne
PC 1 1366x768 5cm 5cm 141,7323 141,7323 0,75 8,43 15
PC 2 1920x1080 4,82cm 5,27cm 136,7323 149,2323 0,5 8,55 14,5
Je pensais que cela était lié aux différences de dimension d’écran et résolution
mais ça n’a pas l’air le cas.
Avez-vous des pistes à me suggérer ?
Merci.
aurelien77 Hors ligne
Le #26538152
Le mercredi 12 Février 2020 à 21:53 par MichD :
Bonjour,

Comment procèdes-tu pour déterminer la mesure de ton
diamètre de ton
cercle?

Exemple :

Pour obtenir le quadrillage de la feuille en 10 mm

'----------------------------------------------
Sub QuadrillageEnCm()
Cells.ColumnWidth = SetColumnWidth(10)
Cells.RowHeight = Columns(1).Width
End Sub
'----------------------------------------------
Function SetColumnWidth(MM As Integer) As Double
Dim lr As Single

Application.ScreenUpdating = False
lr = Application.CentimetersToPoints(MM / 10)
While Columns(1).Width > lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1
Wend
While Columns(1).Width < lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Wend
SetColumnWidth = Columns(1).ColumnWidth
End Function
'----------------------------------------------

MichD


Bonjour,

Ci-dessous comment je récupère les différentes valeurs :

#####
Sub Test()

Range("F8").Value = PointsPerPixelX
Range("F9").Value = PointsPerPixelY

resL = ResolutionEcranLargeur()
resH = ResolutionEcranHauteur()
Range("F10").Value = resL
Range("F11").Value = resH

Range("F12").Value = ActiveSheet.Range("A:A").ColumnWidth
Range("F13").Value = ActiveSheet.Range("1:1").RowHeight

With ActiveSheet.Shapes.Range(Array("Cercle"))

Range("F6").Value = .Height
Range("F7").Value = .Width

End With

End Sub
#####
aurelien77 Hors ligne
Le #26538153
Le jeudi 13 Février 2020 à 09:16 par JièL :
Hello,

quelle versions d'Excel au départ et à l'arrivé ?

--
JièL

Le 12/02/2020 à 17:44, Aurelien77 a écrit :
Bonjour,

Cela fait maintenant plusieurs jours et même semaines que je cherche
à
comprendre le comportement que j’observe sur Excel. J’ai
trouvé plusieurs pistes
mais rien qui ne répond à mon cas précis et donc je
sollicite vote aide !

Mon cas est assez simple : je trace un cercle (par exemple de 8,25cm de
hauteur
et largeur donc), j’envoie mon fichier à une autre personne qui
l’ouvre et
trouve alors des dimensions différentes. J’ai fait un petit
tableau ci-dessous
avec toutes les données que j’ai récoltées :

PC Dimension écran (pixels) Hauteur forme Largeur forme Hauteur forme
(points) Largeur forme (points) Points par pixel Hauteur ligne Largeur colonne
PC 1 1366x768 8,25cm 8,25cm 233,5881958 233,8435364 0,75 15 16,57
PC 2 1920x1080 8,25cm 8,54cm ? 242,0881958 0,5 15 16,64

Autre test :

PC Dimension écran (pixels) Hauteur forme Largeur forme Hauteur forme
(points) Largeur forme (points) Points par pixel Hauteur ligne Largeur colonne
PC 1 1366x768 5cm 5cm 141,7323 141,7323 0,75 8,43 15
PC 2 1920x1080 4,82cm 5,27cm 136,7323 149,2323 0,5 8,55 14,5

Je pensais que cela était lié aux différences de
dimension d’écran et résolution
mais ça n’a pas l’air le cas.

Avez-vous des pistes à me suggérer ?

Merci.




PC1 : Excel 2016 FR
PC2 : je dois demander mais c'est une version anglaise déjà
Publicité
Poster une réponse
Anonyme