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

J'en ai une fonctionnant depuis longtemps avec Excel versions 2003, 2007 & 2010,
certainement la même que tu as utilisé …

Comme sur MAC un point est égal à un pixel, le problème ne se pose que sur Windows
pour lequel alors j'utilise une dll comme par exemple gdi32 et sa fonction GetDeviceCaps (zoom à 100%).

Je devrait alors relire le début de cette discussion pour voir si un message d'Unparia m'illumine une paire de neurones …
Enfin quand il fera moins chaud !

je veux bien cette version pour la tester de zoom 50 a zoom 400 même avec les apis

Citation:

---

certainement la même que tu as utilisé …

---

oui celle que tout le monde utilise depuis des lustres sauf qu'elle donne pas un résultat exact pour tout les zoom

sauf que la dernière que j'ai écrite et n'utilise pas d'apis c'est d'ailleurs le chalenge

bonjour,
Ha..Ha..Ha...
:mouarf: ...no coment.. ;)
Pièce jointe 288930
:mouarf: ...no coment.. ;)

Citation:

---

perso,...j'aime bien ce genre de discution
pourquoi ?,..."parce qu'il y a "à boire et à manger"
...
c'est comme un vide grenier sur le thème de l'affichage,...
...
et...
il y a moi,...qui vient flâner, chaparder, ... ;)

---

si on devait retenir quelque chose de mon post :

Citation:

---

Tout est RELATIF... ;)

---

en ce qui concerne les FORM

FORM.Left=[F4].Left
FORM.Top=[F4].Top
FORM.Width=[F4:X4].Width
FORM.Height=[F4:F14].Height

@+JP

Citation:

---

FORM.Left=[F4].Left
FORM.Top=[F4].Top
FORM.Width=[F4:X4].Width
FORM.Height=[F4:K4].Height

---

a tu seulement testé mjpmjp :ptdr:

Citation:

---

Envoyé par patricktoulon

je veux bien cette version pour la tester de zoom 50 a zoom 400 même avec les apis

---

Comme indiqué, elle a été conçue pour un zoom à 100% …
Mais déjà sur différentes versions d'Excel (2003, 2007, 2010) et sur des profondeurs d'écran différentes (ppi) elle fonctionne …

bonjour,
oui j'ai testé avec FORM.Height=[F4:F14].Height ;)
@+JP

marc oui zoom a 100 avec un autre zoom c'est la bérézina

mjpmjp tu dois bien etre le seul alors

bonjour,
rectification, çà ne marche plus ???
en fait çà le redimensionne correctement, çà le place aux bonnes coordonnées (proportion de l'onglet) mais sur l'écran ???
j'ai utilisé le même code avec des contrôles activex et çà fonctionne !!!

@+JP

Citation:

---

j'ai utilisé le même code avec des contrôles activex et çà fonctionne !!!

---

Le calcul de positionnement de contrôles activex est fait par VBA en points et par rapport à la fenêtre active. Tel n'est pas le cas de celui d'un userform (je te l'ai dit plus haut).

re

Citation:

---

rectification, çà ne marche plus ???

---

ca n'a jamais marché :ptdr::ptdr:

tout est relatif :mouarf::mouarf:

re
Bon j'ai réussi en mettant cela dans le test

Code:

---

Z = (.Zoom + (9)) / 100

---

et ça donne ça
Pièce jointe 288990

Je n'aime en général pas faire ce que je vais faire ici :
Montrer comment les choses sont traitées et sériées au sein d'un cercle sérieux.
Un exemple de test (parmi de très nombreux, chacun d'entre eux ne concernant qu'un seul aspect à la fois)
Sur une feuille neuve d'un classeur neuf : un bouton de commande et ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() Cells.Font.Size = 10 For i = 1 To 4 Columns(i).ColumnWidth = 60 Next Range("A1").Value = "POINTS sur fenêtre active" Range("B1").Value = "Correspondance méthode PointsToScreenPixelsX" Range("C1").Value = "écart points/donnée précédente/fenêtre active" Range("D1").Value = "écart PointsToScreenPixelsX/donnée précédente" Range("C2:C100").Formula = "=A3-A2" Range("D2:D100").Formula = "=B3-B2" With ActiveWindow.ActivePane For i = 2 To 100 Range("A" & i).Value = i - 1 Range("B" & i).Value = .PointsToScreenPixelsX(i) Next End With End Sub

---

regarder ce qui se passe en colonne D et comparer avec colonne C (des écarts différents peuvent être constater en colonne D pour des écarts identiques en colonne C)
Faire cette expérience avec plusieurs facteurs de zoom et regarder à nouveau les résultats.

C 'est là l'UNE des démarches que nous faisons. Toutes sont faites avec la même rigueur.
Aucune n'a pour finalité d'apporter une "soluce" (un cataplasme). Chacune d'entre elles à pour seule finalité de montrer du doigt un bug.
Aucun éparpillement. Aucune supputation, etc, etc ...
Voilà voilà ;)

bonjour à tous,
patrick, j'aime bien ton humour :mouarf:

à part çà j'ai une question (sérieuse ;))
les contrôles et les forms naviguent dans des espaces client différents

quand j'écris :
FORM.Left=[F4].Left
FORM.Top=[F4].Top
FORM.Width=[F4:X4].Width
FORM.Height=[F4:F14].Height

tout fonctionne MAIS dans le ScreenToClient de Windows...donc
FORM.Left et [F4].Left ne cible pas le même espace...

question :
peut on indiquer/cibler/qualifier cet espace -> FORM.Left.sheets() -> FORM.Sheets().Left ...

@+JP

Citation:

---

Envoyé par unparia

Je n'aime en général pas faire ce que je vais faire ici :
Montrer comment les choses sont traitées et sériées au sein d'un cercle sérieux.
Un exemple de test (parmi de très nombreux, chacun d'entre eux ne concernant qu'un seul aspect à la fois)
Sur une feuille neuve d'un classeur neuf : un bouton de commande et ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() Cells.Font.Size = 10 For i = 1 To 4 Columns(i).ColumnWidth = 60 Next Range("A1").Value = "POINTS sur fenêtre active" Range("B1").Value = "Correspondance méthode PointsToScreenPixelsX" Range("C1").Value = "écart points/donnée précédente/fenêtre active" Range("D1").Value = "écart PointsToScreenPixelsX/donnée précédente" Range("C2:C100").Formula = "=A3-A2" Range("D2:D100").Formula = "=B3-B2" With ActiveWindow.ActivePane For i = 2 To 100 Range("A" & i).Value = i - 1 Range("B" & i).Value = .PointsToScreenPixelsX(i) Next End With End Sub

---

regarder ce qui se passe en colonne D et comparer avec colonne C (des écarts différents peuvent être constater en colonne D pour des écarts identiques en colonne C)
Faire cette expérience avec plusieurs facteurs de zoom et regarder à nouveau les résultats.

C 'est là l'UNE des démarches que nous faisons. Toutes sont faites avec la même rigueur.
Aucune n'a pour finalité d'apporter une "soluce" (un cataplasme). Chacune d'entre elles à pour seule finalité de montrer du doigt un bug.
Aucun éparpillement. Aucune supputation, etc, etc ...
Voilà voilà ;)

---

Bonjour Jacques,
vous m'impressionné avec vos calcul, mais c'est surprenant de tel écart !!

Rien, NICOLAS, ne doit t'impressionner dans ce test.
Regarde-le bien. Il n'est que purement logique et a pour seul but de montrer que les écarts de transpositions ne sont pas ce qu'ils devraient être et que l'on obtient dans certains cas des correspondances différentes pour des valeurs identiques.
Ce test ne cherche à aucun moment de deviner, de dire, de supposer, etc ... que la cause en est ceci ou cela. Il MONTRE l'incohérence et se garde bien de proposer un "remède" alors même que ne sont pas connus les éléments des calculs faits par Microsoft.
Ce qui évitera, déjà, de "présenter" des "soluces" plus fantaisistes les unes que les autres, en affirmant de surcroît ici et là des "Ah ! voilà ! Cette fois-ci "j'ai bon" !)
Combien de "cette fois-ci ?" différentes et pourtant annoncées comme "la soluce" dans cette discussion (puis abandonnées au profit d'une autre "ah ! Cette fois-ci j'ai bon".
Tu comprendras mes réticences réitérées à participer à ce genre de "jeu" ;)

Citation:

---

Envoyé par unparia

Rien, NICOLAS, ne doit t'impressionner dans ce test.
Regarde-le bien. Il n'est que purement logique et a pour seul but de montrer que les écarts de transpositions ne sont pas ce qu'ils devraient être et que l'on obtient dans certains cas des correspondances différentes pour des valeurs identiques.
Ce test ne cherche à aucun moment de deviner, de dire, de supposer, etc ... que la cause en est ceci ou cela. Il MONTRE l'incohérence et se garde bien de proposer un "remède" alors même que ne sont pas connus les éléments des calculs faits par Microsoft.
Ce qui évitera, déjà, de "présenter" des "soluces" plus fantaisistes les unes que les autres, en affirmant de surcroît ici et là des "Ah ! voilà ! Cette fois-ci "j'ai bon" !)
Combien de "cette fois-ci ?" différentes et pourtant annoncées comme "la soluce" dans cette discussion (puis abandonnées au profit d'une autre "ah ! Cette fois-ci j'ai bon".
Tu comprendras mes réticences réitérées à participer à ce genre de "jeu" ;)

---

C'est vrai, je suis d'accord avec toi et l'énonçais d'ailleurs dans un message précédent.

Citation:

---

j'avoue qu'on est dans une discussion un peu boiteuse avec des peut-être que si ou ça

---

Bien amicalement. ;)

Citation:

---

Envoyé par mjpmjp

bonjour à tous,
patrick, j'aime bien ton humour :mouarf:

à part çà j'ai une question (sérieuse ;))
les contrôles et les forms naviguent dans des espaces client différents

quand j'écris :
FORM.Left=[F4].Left
FORM.Top=[F4].Top
FORM.Width=[F4:X4].Width
FORM.Height=[F4:F14].Height

tout fonctionne MAIS dans le ScreenToClient de Windows...donc
FORM.Left et [F4].Left ne cible pas le même espace...

question :
peut on indiquer/cibler/qualifier cet espace -> FORM.Left.sheets() -> FORM.Sheets().Left ...

@+JP

---

oui on peu plus ou moins y arriver je dis plus ou moins parce que justement le problème ici c'est que d'une version a l'autre c'est géré différemment dans le sens ou par exemple la détermination du point top est compliqué car ne réponds pas pareil sur les version supérieurs de 2007 c'est bien pour ca que ce post perdure



unparia non seulement il y a un bug mais il est différent d'une version a l'autre ca on l'avait compris
alors on dit bug mais ca n'en est peut être pas un c'est peut être un étalonnage pour le quel il nous manque ca logique pour le comprendre
je parle de logique par ce que les résultat même faux sont des suite assez particulière comme tu le démontre chez moi le résultat de ton test (+1,+2,+2,+1,+2,+2,+1,etc....)d'ou l'histoire de mon mod2 et 3 dans ma dernière formule qui fonctionne sur 2007 a 100%

chez Nicolas par exemple se sera diffèrent on la vu
ce qui laisse supposer que pointstoscreenpixels ne fait pas les choses tout seul cette fonction utilise certainement d'autre fonctions/données peu être même matérielles
ca m'étonnerait qu'il l'ai réécrite cette fonction pour chaque versions
parti de la ce n'est pas des cataplasme mais une suite logique selon la versions de window
bien que je te l'accorde c'est assez tordu ils auraient pu faire les choses plus simple

la preuve que la fonction ne donne pas d'erreur malgré tout ce que tu a pu dire et ce que j'ai pu constater c'est que quand on utilise les setcursorpos le curseur est bien placé a tout les coups

ca veut bien dire que cet étalonnage doit subir le calcul pixel to point différemment que ce que l'on croit non (mathématiquement seulement ) mais avec une certaine logique que visiblement ni toi ni moi n'avons compris c'est justement ce nous cherchons ici afin justement d'éviter de faire des paragraphes de code patch ou cataplasme

en tout cas il y a une logique c'est sur
ce qui me renforce sur ce point c'est bien le test cursorposition avec pointstoscreenpixels sans adjuvent de code ou autre , qui lui est toujours bon dans n'importe quelle conditions (zoom,fenetrée,maximisé,etc...)

on pourrait aussi parler du bug du zoom alors qui par la seul opération de multiplication du pointstoscreenpixels par le zoom donne des résultats mathématiquement faux pour la simple et bonne raison que visiblement dans le calcul les donnée sont arrondi a moins de chiffre après la virgule se qui a pour conséquence forcement des résultats mathématiquement faux juste approximatifs


je pense sincèrement en toute humilité que c'est nous qui ne savons pas l'utiliser


pour info ma version 2007 fonctionne a 100% et la ligne 5 correspond a ce que tu décrit dans ton test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub version_2007() Dim X As Double, Y As Double, Z As Double, versio, ppx As Double With ActiveWindow Z = (.Zoom) / 100 If Val(Right(Z, 1)) Mod 2 <> 0 And Z <> 1 And Z <> 3 Then ssupp = 0.1: Z = Z + ssupp ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3 X = .ActivePane.PointsToScreenPixelsX([d3].Left) Y = .ActivePane.PointsToScreenPixelsY([d3].Top) End With With UserForm1 .Show 0 .Left = (X / ppx) * Z + 4.4 .Top = (Y / ppx) * Z + 4.4 End With End Sub

---

la vérité est ailleurs mon cher Mulder

Citation:

---

la vérité est ailleurs mon cher Mulder

---

parmi lesquelles de tes "vérités" différentes énoncées comme telles jusqu'ici, "mon cher bidule" ? :lol:
Ah oui, excuse-moi : ce sera probablement ton prochain "cette fois-ci, j'ai bon" ....

tu déforme encore mes propos
je viens de te dire que moi aussi je ne comprends pas cette logique mais tes test et les miens prouvent bien qu'il y en a une ,les séries que tu trouve ne sont pas désordonnées
reste a savoir comment l'exploiter
pour 2007 la je peux le dire "c'est bon je lai " :ptdr:
c'est pour les version ultérieures que j'ai du mal utilisant seulement les retours des autres ,j'ai du formater ma partition W10 je ne travaille plus que sur W7 2007 et 2010

bonjour,

Code:

---

1 2	USF.Move Application.Left + 3, Application.Top

---

je n'arrive pas à trouver l'espace de travail ICI en manuel (1253.25 x 195)
Pièce jointe 289142

application.left + 3 = 1249.75
@+JP