connaitre l'address du visible range en fonction du dpi et de la resolution

[patricktoulon]

bonjour a tous
pour ceux qui sont en dpi96 je voudrais connaitre l'address du visible range avec un écran classique (15,17,21 pouce)

j'ai juste besoin de faire un choix de max colonne/ligne fonctionnant avec toute résolution par l’intermédiaire du zoom sur range

merci pour les retours

 

[jmfmarques]

Bonjour

Je ne comprends pas la question, telle que posée, dès lors que l'adresse en cause dépend également d'autres facteurs (entre autres : dimensions (largeur, hauteur) de toutes/certaines lignes et colonnes, visibilité ou non des titres, de la barre des formules, de la réduction ou non du ruban, de la propriété WindowState, etc ...
Il me semble donc que cette question est à reposer de manière plus précise.

Edit : ajouter au "etc..." le formatage (bordures) des cellules de cette plage.

 

[Dudu2]

Bonjour,
sans compter le zoom.
Il y a une propriété simple qui est ActiveWindow.VisibleRange qui sait le dire:
MsgBox ActiveWindow.VisibleRange.Address
Même si les limites basses et droites du range ne sont en général que partiellement visible (correction facile si besoin)

 

[Dudu2]

Sinon pour avoir les coordonnées en pixel de la Client Area je peux te donner un code VBA.

 

[Staple1600]

Bonjour le fil

[Pour infos]
patrick a déjà les outils
Mais il a laissé sa caisse à outils là-bas, faut croire
[/pour infos]

 

[jmfmarques]

Bonjour Dudu2
Je ne pense pas que Patricktoulon ignore la vocation de la propriété VisibleRange.
Je pense que sa vraie question est autre et à préciser très clairement

 

[Staple1600]

Bonjour jmfmarques

Et moi, je suppute qu'il a plus ou moins déjà la réponse
(cf message#5)

 

[patricktoulon]

re
en fait je voudrais seulement voir si la taille du visible range que j'utilise zoomé est acceptable sur un écran (15/17/+ pouce )pour travailler par rapport a moi qui utilise une tv 107 (42 pouce)
comme j'ai pas mon portable 17 je ne peux pas tester
en fait je zoom pas une plage ligne/colonne je zoom des colonne
j'explique
le zoom agrandi la hauteur comme la largeur jusqu'a que l'une des deux dim (largeur /hauteur ) depasse le visible range

mais je perefere zoomer le prorata du visiblerange.width de A:AI.width
autrement dit
voici la fonction

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With ActiveWindow
        .ScrollColumn = 1: .ScrollRow = 1: .Zoom = 100: coeff = (.VisibleRange.Width - 15) / [A:Ai].Width: .Zoom = 100 * coeff
        [A1].Activate
    End With
End Sub

l'important pour moi est d'avoir uniquement cette largeur en visuel
la hauteur ayant un prorata cohérent est apparente donc je n'ai pas de soucis avec ça
par contre aura il le même résultat sur des ecran différents a une échelle inférieur bien sur
et est ce que ca ne sera pas trop petit pour lire etc...

c'est vrai que ma question n’était pas claire

j'aurais ma réponse ce soir quand la pitchoun me rendra mon portable
si vou voulez tester

 

[TooFatBoy]

Bonjour,

Le "DPI" et la "résolution", c'est la même chose puisque le "DPI" est justement l'unité de la résolution.

L'époque où tous les moniteurs avaient la même résolution est révolue depuis la fin des écrans cathodiques.

Tout ça pour dire que je ne suis pas sûr de bien comprendre ton but.
Le but est-il d'afficher la même plage de cellules quel que soit l'écran ?
Ou le but est-il d'afficher une même cellule toujours à la même taille quel que soit l'écran ?
Ou est-ce autre chose ?

 

[patricktoulon]

re
bonsoir Marcel

Le "DPI" et la "résolution"

heu... ouais
ben met toi en dpi 96 et fait l'opération
met toi en dpi 120 et fait la même opération

alors demontration

Function P_ToPx()
With ActiveWindow.ActivePane
  P_ToPx = (.PointsToScreenPixelsY(Cells.Height) - .PointsToScreenPixelsY(0)) / Cells.Height
End With
End Function

Sub test()
dpi = P_ToPx * 72
dim1 = 100 'points
dim2 = dim1 * P_ToPx
texte = "le dpi est de " & dpi & vbCrLf & "le coeef points to pixel est de " & P_ToPx _
& vbCrLf & " et donc 100 points font " & dim2 & " pixels en dpi " & dpi

MsgBox texte
End Sub

mais ça n'a rien a voir avec la demande

tout ce que je demande c'est si visuellement c'est si acceptable pour travailler sur des petits écrans
les font sont pas trop petits , on voit bien les boutons , etc....
Et rien d'autre
puré aujourd'hui c'est pas mon jour
je dois parler gabonchinquebecois

 

[Usine à gaz]

ou tu parles wolof lol

 

[TooFatBoy]

re
bonsoir Marcel
heu... ouais
ben met toi en dpi 96 et fait l'opération
met toi en dpi 120 et fait la même opération

alors demontration

Je disais juste qu'en français la résolution se donne en général en "dpi" (ou plutôt en "ppp" = "points par pouce"), ou en "points par centimètre", ou autre, mais en tout cas, la "résolution" c'est le nombre de points par unité de longueur.
A ne pas confondre avec la "définition" qui est simplement le nombre de points.

Mon moniteur a une résolution de 111 dpi, et j'avoue que c'est parfois un peu trop élevé pour moi.


Tabarnac ! J'pige toujours pas c'que tu veux faire, là !

 

[patricktoulon]

re
bon ben si tu pige pas n'insiste pas que veux tu que je dise
je demande simplement d'essayer et me dire si visuellement c'est acceptable et si on voit tout intelligiblement
c'est pas compliqué

je sais plus en quelle langue le dire


donc comme personne ne comprend mon français je clos le sujet je testerais demain au bureau
on est jamais mieux servi que par soi même

merci a tous

 

[TooFatBoy]

je demande simplement d'essayer et me dire si visuellement c'est acceptable et si on voit tout intelligiblement

Ah ben là j'ai compris.

Le problème, c'est que la lisibilité va dépendre des gens.

 

[TooFatBoy]

Je viens de tester ton fichier de #8 : c'est n'importe quoi... LOL

Sur mon moniteur c'est immense : les CommandButton font 15 cm de large !!!
Sur mon tél je ne vois que 8 colonnes complètes et la moitié de la 9e colonne, donc obligé de scroller pour voir les boutons à droite.