Positionner curseur sur une cellule sélectée Windows Excel VBA

**Nicolas JACQUIN** · 01/07/2017, 19h49

Sur le fixe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ultimatemethode()
 With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With
 With ActiveWindow
 Z = .Zoom / 100
 X = .ActivePane.PointsToScreenPixelsX([D3].Left) / ppx
 Y = .ActivePane.PointsToScreenPixelsY([D3].Top) / ppx
 End With
  With UserForm1
 .Show 0
 .Left = X -5
 .Top = Y
 End With
 End Sub

Et sur le portable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ultimatemethode()
 With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With
 With ActiveWindow
 Z = .Zoom / 100
 X = .ActivePane.PointsToScreenPixelsX([D3].Left) / ppx
 Y = .ActivePane.PointsToScreenPixelsY([D3].Top) / ppx
 End With
  With UserForm1
 .Show 0
 .Left = X 
 .Top = Y  
End With
 End Sub

**Nicolas JACQUIN** · 01/07/2017, 20h00

Envoyé par patricktoulon

c'est quoi la différence entre tes deux pcs

Après la seul différence hors matériel,
c'est excel 2013 64bits sur portable Windows 10 64 bits,
et excel 2016 32 bits sur fixe Windows 10 64 bits

**patricktoulon** · 01/07/2017, 20h01

oui ca j'avais compris c'est pas ca que je t'ai demander

laisse moi deviner

sur le pixe W10 office 32 bits
sur le portable W10 office 64 bits
ou l'inverse

**Nicolas JACQUIN** · 01/07/2017, 20h04

Envoyé par patricktoulon

oui ca j'avais compris c'est pas ca que je t'ai demander

laisse moi deviner

sur le pixe W10 office 32 bits
sur le portable W10 office 64 bits
ou l'inverse

post du dessus

**patricktoulon** · 01/07/2017, 20h13

ok on a tout bon je m'occupe de ca tout a l'heure maintenant apéro, barbecue sous les pins juste un peu de bonheur quoi

**Nicolas JACQUIN** · 01/07/2017, 20h13

Envoyé par patricktoulon

ok on a tout bon je m'occupe de ca tout a l'heure maintenant apéro, barbecue sous les pins juste un peu de bonheur quoi

idem @+

**patricktoulon** · 02/07/2017, 09h33

Bonjour nicolas

cette versions devrait fonctionner sur tes deux PCs sans rien toucher si je ne me suis pas trompé dans le switch

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
Sub version_ALLWin_Off()
    Dim ppx#, version As String, X#, Y#, SuppLeft#, Suppop#
    With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With
    version = CStr(Val(Split(Application.OperatingSystem, " ")(3)) & "-" & Val(Application.version))
    'MsgBox version
    SuppLeft = Switch(version = "6,01-12", 4, version = "0-15", 0, version = "10-16", -5, version = "10-15", -5, version = "10-14", 0)
    supptop = Switch(version = "6,01-12", 4, version = "0-15", 0, version = "10-16", 0, version = "10-15", 0, version = "10-14", 0)
    With ActiveWindow
        X = .ActivePane.PointsToScreenPixelsX([D3].Left) / ppx
        Y = .ActivePane.PointsToScreenPixelsY([D3].Top) / ppx
    End With
    With UserForm1
        .Show 0
        .Left = X + SuppLeft
        .Top = Y + supptop
    End With
End Sub

**Nicolas JACQUIN** · 02/07/2017, 09h47

Bonjour Patrick,
oui c'est ok pour moi, petite ou grande fenêtre et n'importe quel zoom, sur les 2 pc
(version = "10-16") pour windows10 64 bits et excel 2016 32 bits,
(version = "0-15") pour windows10 64 bits et excel 2013 64 bits.

**patricktoulon** · 02/07/2017, 10h29

a la bonne heure!!

purée la partie a été dur hein !!!
reste les commentaires du professeur avec Xp et 2007 et pour office 2010 W10 il me semble que c'est 0 c'est pour ca que je ne l'ai pas mis dans le switch

on pourrait modifier le premier switch avec < que 6.03 pour inclure W8 j'ai pas jugé utile car ca m'étonnerait qu'il survive longtemps a l'image de vista et W 7

donc affaire conclue

et c'est le toulonnais qui gagne hihhihihhihihihi

**Nicolas JACQUIN** · 02/07/2017, 10h33

oui pas facile l'histoire
reste le switch Width et Height, hihihi
Non je déconne
Bien vu

**Marc-L** · 02/07/2017, 12h54

Au risque que ce soit ma dernière intervention sur ce sujet …

Envoyé par Nicolas JACQUIN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Zoom = 80 ---> DPI = 90 ---> coeff =1,25
Zoom = 90 ---> DPI = 106,666666666667 ---> coeff =1,48148148148148
Zoom = 100 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 110 ---> DPI = 87,2727272727273 ---> coeff =1,21212121212121

La densité d'affichage de Windows exprimée en dpi est fixe - et pour cause ! - et
indépendante du facteur de zoom d'Excel, simple à vérifier via l'API comme je l'ai déjà posté …

Et pour rappel la base de calcul en points d'Excel - indiquée dans l'aide VBA - est fixée à 72 dpi.

A moins que DPI dans vos tests exprime autre chose que la densité d'affichage de l'écran …

**unparia** · 02/07/2017, 13h25

Bonjour Marc-L
1) Bien évidemment !

2) Et s'il n'y avait que cela à dire sur la "solution universelle" proposée !

L'inventaire de tous les aleas et énormités de ce qui est ici présenté comme "solution" est à ce point énorme, que je choisis de laisser continuer à rêver sur des "tapis volants" ...

Amitiés, Marc

**patricktoulon** · 02/07/2017, 16h00

Bonjour Marc
oui tu as raison ta réponse est hors sujet dans le sens ou la solution recherche du dpi par pointstoscreenpixels a été abandonné
puisque je la prends directement dans la base de registre

valable pour W7 a 10 pour W XP j'attends une âme charitable pour contrôler dans sa base de registre si la clé existe

de meme pour unparia

**patricktoulon** · 03/07/2017, 11h03

fe
@Marc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

indépendante du facteur de zoom d'Excel, simple à vérifier via l'API comme je l'ai déjà posté …

le chalenge est justement de ne pas se servir des apis et d'essayer de trouver par l'application

par la base de registre ca fonctionne de W7 a W10
et par la constante "72" j'obtiens le coefficient point to pixels

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With CreateObject("WScript.Shell")
ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72
 End With

j'aurais préféré ne pas avoir a me servir d'un object

**unparia** · 03/07/2017, 11h14

Le message de Marc-L est pourtant très clair :

La densité d'affichage de Windows exprimée en dpi est fixe - et pour cause ! - et
indépendante du facteur de zoom d'Excel

et la réponse qui y est faite est carrément à côté de la plaque.
Exactement comme l'est (à côté de la plaque) la contribution :
https://www.developpez.net/forums/d1...pi-window-gdi/
où est également confondue la définition de l'écran (fixe) avec le dpi octroyé à une fenêtre.
C'est juste désespérant de voir tous ces amalgames

**patricktoulon** · 03/07/2017, 11h29

j'ai très bien compris

je ne veux pas travailler avec le ZOOM d'EXCEL !!!!!!mais celui du DPI octroyé c'est vous qu'avez pas compris ma démarche

encore une fois je travaille en dpi 120 (125%:sinon les textes sont trop petits)tout le temps donc mon coefficient pour l'affichage n'est pas 1.33333333333 mais 1.6666666667

c'est pas compliqué non de dieu !!

donc une mesure avec pointstoscreenpixels doit être divisé par ce coefficient pour convertir en point

alors oui avec getdevicecap on l'obtient mais j'arrête pas de répéter qu'il est hors de question dans ce chalenge d'utiliser l'es api

qu'est ce que vous comprenez pas dans ce que je dis c'est pas Français!!!!!???

**unparia** · 03/07/2017, 11h39

je ne veux pas travailler avec le ZOOM d'EXCEL !!!!!!mais celui du DPI octroyé c'est vous qu'avez pas compris ma démarche

encore une fois je travaille en dpi 120 (125%:sinon les textes sont trop petits)tout le temps donc mon coefficient pour l'affichage n'est pas 1.33333333333 mais 1.6666666667

c'est pas compliqué non de dieu !!

donc une mesure avec pointstoscreenpixels doit être divisé par ce coefficient pour convertir en point

alors oui avec getdevicecap on l'obtient mais j'arrête pas de répéter qu'il est hors de question dans ce chalenge d'utiliser l'es api

qu'est ce que vous comprenez pas dans ce que je dis c'est pas Français!!!!!???

Ce n'est pas que "ce n'est pas Français", mais c'est que c'est totalement insensé (et gravement révélateur de beaucoup de choses).
"nom de dieu" ou pas "nom de dieu", la transposition par rapport à l'écran de coordonnées en pixels en coordonnées en points (-toujours par rapport à l'écran) n'a plus rien à voir, ni de près ni de loin avec Excel et tout (et UNIQUEMENT) à voir avec le DPI de l'ECRAN.
Point barre.
(Je perds VRAIMENT mon temps à essayer de couper au couteau l'affreux brouillard qui t'entoure, patricktoulon).
Allez -->> j'ai d'autres choses à faire que de "partager" de telles puérilités.

**patricktoulon** · 03/07/2017, 11h41

OK bon vent

Allez -->> j'ai d'autres choses à faire que de "partager" de telles puérilités.

combien de fois a tu exprimé ton dégout sur ce débat
et pourtant tu es toujours la
ca!!! aussi c'est très révélateur

et puis M.... qu'est ce qui te gène dans le fait que je ne veuille pas aller chercher (mon 96 ou 120 puis /72) avec ou sans les api car jusqu'à preuve du contraire vous faite avec la même opération que moi
bref on le sait tu es pas d'accord on est puéril bete et idiots seul toi a la connaissance du nombre d'or on le sait tous maintenant

**unparia** · 03/07/2017, 12h28

Bien le bonjour chez toi, patricktoulon
Et bonne chance dans toutes tes démarches et approches ...
Tu "tiens le bon bout", c'est certain. Continue ainsi.

Content ?
N'en parlons plus ...

EDIT : ah j'oubliais --->> pour "affiner" tes raisonnements successifs (nombreux et différents depuis le début de cette discussion) : --->> pense à y "incorporer" l'âge du capitaine du navire voisin du tien ainsi que le tour de taille de son fiston de quinze ans. En te "débrouillant" (en rafistolant ceci et cela) pour obtenir ce qui pourrait être acceptable, tu pourras affirmer haut et fort que "cette fois-ci" (la combien, de "fois-ci") tout est parfait !
TOUT EST AINSI ET SERA AINSI POUR LE MIEUX DANS LE MEILLEUR DES MONDES;
Félicitations, donc, hein ...

**patricktoulon** · 03/07/2017, 13h38

re

EDIT : ah j'oubliais --->> pour "affiner" tes raisonnements successifs (nombreux et différents depuis le début de cette discussion) : --->> pense à y "incorporer" l'âge du capitaine du navire voisin du tien ainsi que le tour de taille de son fiston de quinze ans. En te "débrouillant" (en rafistolant ceci et cela) pour obtenir ce qui pourrait être acceptable, tu pourras affirmer haut et fort que "cette fois-ci" (la combien, de "fois-ci") tout est parfait !

si tu pouvais en faire de même j'aurais plus d'air

pour info

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Sub test()
   dpi_Api = GetDeviceCaps(GetDC(0), 88)
    With CreateObject("WScript.Shell"): DPI_Regedit = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI"): End With
    MsgBox "DPI octroyé avec api GDI =" & dpi_Api & " ppx= " & dpi_Api / 72 & vbCrLf & " DPI octroyé dans regedit = " & DPI_Regedit & " ppx= " & DPI_Regedit / 72
End Sub
End Sub

Nom : Capture.JPG
Affichages : 231
Taille : 69,2 Ko

ho!! ben ca alors c'est pas 96!!!?
ho! ben ca alors c'est pas 1.333333333333333 !!!???
c'est l'heure de la pèche
j'apprécierais bien une truite saumonée

Positionner curseur sur une cellule sélectée Windows Excel VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager