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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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,
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
'----------------------------------------------
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
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.
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.
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
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 #####
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
#####
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
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à
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à
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à
