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

Version imprimable

Voir 40 message(s) de cette discussion en une page

10/06/2017, 23h12
Nicolas JACQUIN

Bonjour les copains,

@ Patrick
si tu as 5 minutes pour que l'on puisse + ou - clôturé notre petit code, avec ton Switch si tu as eu les retours que tu attendais.

@ Unparia
En dehors de ta bataille microsoft, j'aurai beaucoup aimer avoir une optique de ton idée sur le problème.

Bonne soirée.
11/06/2017, 06h08
unparia

Citation:

j'aurai beaucoup aimer avoir une optique de ton idée sur le problème

Ce n'est pas une "optique", mais un constat.
La raison semble être que :
- des données graphiques de l'interface avaient été prises en compte en dur dans la détermination de pointstopixelX/Y
- que des éléments graphiques de l'interface ont ensuite été modifiés sans penser à en modifier également leurs valeurs en dur

Lorsque je dis "éléments graphiques" : bien comprendre : ceux de la seule interface de l'application Excel.
Le bug est d'ailleurs présent avec ou sans positionnement d'un userform.
11/06/2017, 09h27
patricktoulon

re

Bonjour tous les deux
et oui unparia
pour s'en rendre compte comme je l'ai déjà dit
il suffit de demander pointstoscreenpixelsx/y avec et sans zoom avec fenêtre maximisée et non flottante (avec ou sans zoom ) on a la même cote ca on l'avait remarqué déjà
par contre quand on ne met pas en maximized et que l'on flotte l'activewindow la donne change

parti de la le calcul avec zomm sachant que la conversion pixel vers point peut être absolument inexacte seule ment au plus proche pour la simple et bonne raison
que x,y pixels n'existe pas c'est purement mathématique
donc si j'ai par exemple 1,3pixels dans mon calcul je ne peut avoir que 1 pixels ou 2 au plus proche
mathématiquement on arrange c'est tout au supérieur ou a l'inférieur
et a titre indicatif même certaines fonction en point cette fois ci le sont aussi surtout avec 2007 les versions ultérieures comme le shell prends en charge l'affichage différemment, certaines cotes sont prises en compte

Nicolas non je n'ai plus eu de retours visiblement la version switch n'intéresse plus personne seule la version avec "/2.4" semblait intéresser du au fait quelle parait très simple

une preuve toute simple de ce que j'avance
la formule pour positionner le curseur fonctionne parfaitement bien avec ou sans zoom (le curseur est bien placé et cela sans calcul +x ou - y)
tandis que pour le userform ca se complique
conclusion
voir "pointapi" dans la déclaration de l'api a quoi ca correspond matématiquement(voir le calcul sue l'api exécute vraiment)
c'est pour cela que j'ai parlé depuis un moment de la correspondance avec les api Windows(shell,user)
*faite le teste tout simplement
positionner le curseur avec setcursorpos
et reprenez les positions ---> convertion points et placement du userform vous allez aimer hein !!!
11/06/2017, 10h31
unparia

Citation:

convertion points et placement du userform

Du userform ou de n'importe quoi d'autre, en points***** relatifs à l'angle supérieur gauche de l'écran ;)

***** dès lors que l'on fait cette conversion en points par le biais de Pointstopixelsx/y (surtout x, d'ailleurs).

EDIT : POINTAPI (qu tu pourrais appeler titi si cela te plait mieux) n'est rien d'autre qu'une structure qui permet de stoker la valeur (en pixels) de deux coordonnées. POINTAPI ne calcule rien.
Cette structure n'est par ailleurs en aucun cas utilisée par SetCursorPos
11/06/2017, 11h11
patricktoulon

re

oui autant pour moi c'est getcursorpos
14/06/2017, 17h01
clubleo

[Toutes versions] Positionner curseur sur une cellule sélectée Windows Excel VBA

Bonjour les Amis,
Bravo à vous tous pour votre ténacité lors de l’étude de ma demande, elle semble vous faire découvrir anomalies ou autres pbs EXCEL.
Ma demande concernait simplement un projet personnel sur une unique feuille Excel où certains éléments saisis dans une cellule positionne le curseur dans une autre zone.
Mais je me suis heurté à ces POINTS qui se promènent sur des PIXELS de l’écran au gré de nombreux facteurs.

Mon ((« USINE à GAZ »)) de 22 lignes de base fonctionne correctement avec seulement un léger temps de réaction. J’espérais trouver dans le grand net une solution pour amélioration et passer à seulement 2 lignes. Ma grande surprise et que vous mêmes n’y est pas trouvé une réponse ou une étude similaire.

Pour ma part, je n’ai pas toujours pu suivre votre débat à travers une autre méthode.
Amateur, j’aime bien le côté ludique et sérieux de ce type de programmation c’est mieux que de faire du sudoku.

_En aparté, je me pose des questions lors d’une future nouvelle demande, en effet, pour revenir un peu en arrière, je ne comprends pas du tout ce qui semble être de la suspicion dans le paragraphe suivant lors de ce débat :

Citation:

10/05/2017 ___ 21h10 ___ #21
EDIT : j'ignore les raisons de la démarche du demandeur et ne veux pas en entendre parler, y compris si je les "devine" et les désapprouve totalement

_SIMPLE REMARQUE:
Pour cette première entrée dans un forum et selon votre demande, je suis content d’avoir appris à utiliser aussi les balises comme QUOTE & aussi CODE pour l’envoie de mon humble module de code en VBA.

Encore une fois, bravo et merci pour cette passionnante étude. :bravo: :bravo: :bravo:
14/06/2017, 18h31
Nicolas JACQUIN

Bonjour clubleo,
le pire c'est que ce n'est pas fini, c'est vrai que c'est parti de pas grand chose mais au bout du compte cela nous aura appris beaucoup de chose, en tout cas pour ma part c'est très intéressant comme sujet, merci
14/06/2017, 21h42
patricktoulon

re

bonsoir a tous

hoh!!!! non c'est pas fini je viens comme unparia de mettre en evidence des erreurs incohérentes avec pointstoscreenpixels mais pas seulement lui

c'est carrément toute la partie (outils)concernant les mesure dans Excel qui est fausse je ferais une démonstration de l'erreur la plus fragrante demain

c'est absolument effarant!!!!!!!

si je vous dis application.left ou même activewindow.left qui sont simples et connus de tous ,ne sont même pas garanti et même loin de la
14/06/2017, 21h49
Nicolas JACQUIN

Salut Patrick,
oui pour moi déjà le application.left qui pose problème entre le mode plein écran et mode fenêtre, en mode plein écran il est à -5 d'où là qu'il faut les retirer
14/06/2017, 21h52
patricktoulon

re

non ca c'est normal chez moi aussi et 5.4

non c'est pire que ca
14/06/2017, 21h54
Nicolas JACQUIN

oui après je sais pas, mais j'y travaille.
14/06/2017, 22h01
patricktoulon

re

c'est normal car maximisé on perd le cadre autour de l'app ou l'activewindow

3 pièce(s) jointe(s)

Bonjour les copains,
je suis peut-être carrément à coté de la plaque mais si vous pouviez me donnez votre point de vue la dessus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function PositionForm8(usf As Object, rng As Range)
Dim K As Double, Z As Double, Wwidth As Double, Hheight As Double
 
With ActiveWindow
.WindowState = xlMaximized
Z = .Zoom / 100
K = ((.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Z
 
lleft = .PointsToScreenPixelsX(rng.Left * K * Z) / K + .Left
ttop = .PointsToScreenPixelsY(rng.Top * K * Z) / K
Wwidth = (rng.Width * Z) - .Left * 2
Hheight = (rng.Height * Z) - .Left
End With
 
PositionForm8 = Array(lleft, ttop, Wwidth, Hheight)
 
End Function
 
    Sub TestUserformDansPlage8()
        R = PositionForm8(UserForm1, [B3:F12])
        With UserForm1: .Show 0: .Left = R(0): .Top = R(1): .Width = R(2): .Height = R(3): End With
        End Sub

Pièce jointe 287306
Pièce jointe 287309
Pièce jointe 287314

Merci

20/06/2017, 20h59
patricktoulon

3 pièce(s) jointe(s)

re

ben oui t'es a coté :mouarf:

zoom a 100
Pièce jointe 287369

zoom a 150
Pièce jointe 287374

et c'est pire en mode fenêtre
Pièce jointe 287375

bonjour
bon revenons a nos moutons a tete reposée
j'ai fait une petite expérience
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Sub testX() With ActiveWindow Z = .Zoom / 100 ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3 SetCursorPos .ActivePane.PointsToScreenPixelsX([c3].Left), .ActivePane.PointsToScreenPixelsY([c3].Top) x = .ActivePane.PointsToScreenPixelsX([d3].Left) y = .ActivePane.PointsToScreenPixelsY([d3].Top) End With With UserForm1 .Show 0 SetWindowPos FindWindow(vbNullString, UserForm1.Caption), 0, x + 7, y + 7, .Width * ppx / Z, .Height * ppx / Z, 0 End With End Sub
nous avions un soucis avec pointtoscreenpixel
nous avions un soucis avec le zoom
nous avions un soucis avec les versions WinDows/excel

maintenant regardez bien le code
le "7" peut différé selon les versions (il correspond au app.left maximisé) qui est négatif (-4.4)en point pour être exact ce qui nous donne 7.333333 en pixel
maintenant poser vous la question "pourquoi j'applique le coefficient du zoom a l'userform pour qu'il garde sa taille initiale !!!!????????
essayez sans le coefficient zoom pour l'userform
regardez bien le curseur avec un zoom diffèrent (il est toujours bon)
ca va bien plus loin qu'un variable écrite en dur dans une DLL

23/06/2017, 16h37
unparia

A patricktoulon :
crois-tu VRAIMENT que je vais "accepter" ce "genre" de "logique" ?
C'est quoi, tout cela ? C'est quoi, une telle approche ?
De supputations en supputations diverses et variées depuis plusieurs messages. Tu vas où, ainsi ? (vas-y sans moi... ce n'est pas sérieux).
23/06/2017, 16h46
patricktoulon

Citation:

Envoyé par unparia

A patricktoulon :
crois-tu VRAIMENT que je vais "accepter" ce "genre" de "logique" ?
C'est quoi, tout cela ? C'est quoi, une telle approche ?
De supputations en supputations diverses et variées depuis plusieurs messages. Tu vas où, ainsi ? (vas-y sans moi... ce n'est pas sérieux).

a tu tester au moins ?

pourquoi réponds tu alors ????

que veux tu comme j'attends la réponse que la firme Redmond ne te donnera jamais si tant est que tu la pose vraiment ,je suis bien obligé de chercher

et je ne fait aucune supputation dans mon dernier post je demande juste d'observer

encore une fois une de tes multiples réponses inutiles et non a propos

c'est pas l'heure de la pêche ?
23/06/2017, 18h22
unparia

Citation:

a tu tester au moins ?

Tu ne fais que cela, patricktoulon, depuis plusieurs jours : inviter à tester (un coup ceci, un coup cela, etc ...).
Je ne suis pas là pour "tester" des fantaisies diverses, non ...

Citation:

pourquoi réponds tu alors ????

Pardi ! Parce qu'il s'agit d'une discussion, qu'elle est censée être conduite dans un esprit de rigueur informatique; parce-qu'elle est suivie par d'autres et parce-que mon rôle de forumeur et de développeur est également de montrer du doigt ce que je considère comme un (je devrais dire DES) égarements(s) de type "alchimiste"

Citation:

que veux tu comme j'attends la réponse que la firme Redmond ne te donnera jamais si tant est que tu la pose vraiment ,je suis bien obligé de chercher

Je ne vois rien qui t'oblige à chercher. Je ne vois non plus rien qui te l'interdit, mais le faire en mettant à contribution Pierre Paul et Jacques dans des démarches qui s'écartent de la logique informatique me parait malsain à divers titres et justifie que j'alerte Pierre, Paul et Jacques.
Cet aspect-là est autre et ce ne sera pas une réponse, qui sera demandée, mais soit la correction d'un bug, soit la suppression (si non corrigée) de ce qui est annoncé (tromperie sur la marchandise) comme étant fonctionnel ... Ne pas confondre double-patte et patachon !
Pour ton info : nous sommes maintenant à ce sujet plusieurs forumeurs (site anglophone sérieux) à non pas chercher une "soluce", mais à faire la démonstration sans appel de la présence d'un bug. C'est de cette étude et du rapport qui en résultera que découlera alors une injonction faite à qui de droit (correction du bug ou suppression d'une fonctionnalité de la liste des fonctionnalités utiles).

Citation:

et je ne fait aucune supputation dans mon dernier post je demande juste d'observer

observer quoi ? ce que TU observes ?
23/06/2017, 22h28
patricktoulon

re

re
[QUOTE][Pardi ! Parce qu'il s'agit d'une discussion, qu'elle est censée être conduite dans un esprit de rigueur informatique; parce-qu'elle est suivie par d'autres et parce-que mon rôle de forumeur et de développeur est également de montrer du doigt ce que je considère comme un (je devrais dire DES) égarements(s) de type "alchimiste"
/QUOTE]
et ben dis donc tu te prends pas pour un petit c'est pas la modestie qui t'étouffe a toi

parce que ca correspond pas a ton sens alors c'est de "l'égarement"

alors ton doigt comme tu dis met le ailleurs

toujours pareil avec toi beaucoup de grande phrases mais tu n'apporte pas beaucoup d'eau au moulin
bref tout ce que tu peux dire ne m'intéresse plus car ca n'est que du venin d'un vieux cropic
pour moi c'est la fantaisie ce genre de discussion je préfère les avoir face a face
ne réponds pas ca me soule et fou moi la paix moi et mes petites expériences
24/06/2017, 07h32
unparia

Sans autres commentaires, patricktoulon ....
Tu as tout dit.
Content ? Bonne chance, tant à toi-même, qu'à tes considérations diverses. ;)

Voir 40 message(s) de cette discussion en une page