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

Version imprimable

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

12/02/2017, 23h08
clubleo

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

Bonjour,
Avec Windows, sur une feuille Excel avec programmation VBA
Lors du déroulement d’une macro, je lance:

Activesheet.cells(x,y).Select

A sa suite, je voudrais simplement positionner la flèche de la souris au milieu de cette cellule sélectée.
Cela quelque soit la taille de la feuille affichée et son positionnement sur l'écran..

(Par ex. Pour ensuite avoir la possibilité d' une modification de valeurs dans cette cellule par le clavier ou un déclenchement par BeforeRightClick).

Par avance, merci pour une idée simple.
13/02/2017, 02h41
unparia

Bonjour
Ce que tu demandes :
- a très peu à voir avec Excel (la présente section du forum) et nécessite l'utilisation de VBA/Excel
- a également peu à voir avec VBA et concerne beaucoup plus l'utilisation de fonctions de l'API de Windows. VBA ne serait là que pour les invoquer et les utiliser

Tu sembles par ailleurs confondre Curseur et Caret(****). Ce sont deux choses très distinctes.

Peux-tu nous expliquer ce que tu penses pouvoir faire ainsi et quel en est le réel intérêt ?

EDIT : il te faut comprendre une chose essentielle, avant d'aller plus loin, voire de répondre à ma question.
Une cellule de Excel n'est pas la zone d'édition de la valeur qui sera enregistrée dans le tableur pour correspondre à cette "cellule". La vraie zone d'édition est ailleurs (tu peux la voir dans la barre des formules). Ce que tu penses saisir dans une "case" est en réalité saisi dans la vraie zone d'édition que tu vois dans la barre de formules. Tout le reste n'est que "mirage" (un jeu de "miroirs" entre une zone de saisie et une zone d'affic
hage à l'écran).
Il n'est par contre pas impossible qu'une solution te soit proposée en fonction de la réponse très claire que tu auras donnée à la question que j'ai soulignée (le but très précis de cette manoeuvre).

**** désolé d'avoir utilisé un mot anglais -->>http://traduction.babylon-software.c...rancais/caret/
ce que tu cherches à faire est positionner le point d'insertion dans une zone d'édition.
13/02/2017, 15h21
clubleo

1 pièce(s) jointe(s)

Positionner curseur sur une cellule sélectée Windows Excel VBA Ajout d'un exemple simplifié

Merci pour la rapide prise en compte de mon problème

Ci joint un exemple de test pour essayer de mieux faire comprendre cette routine de déplacement du curseur
13/02/2017, 18h21
unparia

Citation:

Ci joint un exemple de test pour essayer de mieux faire comprendre cette routine de déplacement du curseur

Désolé, mais je n'ouvre (et n'ouvrirai) jamais un classeur tiers (c'est ma "religion" qui me l'interdit).
Je ne vois par contre pas ce qui t'empêcherait d'exposer clairement et techniquement, comme je te l'ai demandé, les tenants et aboutissants. C'est sur ces bases-là, que je "fonctionne".
13/02/2017, 19h46
clubleo

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

Dommage pour mon exemple mais je comprends parfaitement les risques.

[A] En fait c’est très simple sous Excel avec VBA les cdes :
« activecell.left » donne la position de la cellule sélectée en pixels mais par rapport au haut de la feuille
& « activecell.top » donne la position de la cellule sélectée en pixels mais par rapport au coin gauche de la feuille.

Que la cellule soit visible ou non les instructions :
cells(1,1).top =0 pixels par rapport au bord supérieur de la feuille affichée
& cells(1,1).left =0 pixels par rapport au bord gauche de la feuille affichée

cells(2,2).top =50 pixels par rapport au bord supérieur de la feuille affichée
& cells(2,2).left =50 pixels par rapport au bord gauche de la feuille affichée

[B]
Avec l ‘api suivante:
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Long
On place le curseur sur la feuille aux coordonnées X & Y en pixels mais par rapport aux bords gauche et haut
de l ‘écran dans les limites par exemple 1-1920 et 1-1080

[C] Le pb est donc de trouver le lien relatif entre la position en pixels de la cells(1,1) sur l’écran afin de positionner le curseur sur n’importe quelle autre cellule sélectable.

Merci pour la suite
13/02/2017, 19h53
unparia

Désolé, mais :
- tu continues de me parler de curseur alors que ton tout premier message parle de la position du caret (au sein d'une cellule)
- tu n'as toujours pas exposé le pourquoi de cette étrange manoeuvre
J'attends ces explications-là .
13/02/2017, 20h04
clubleo

Je suis désolé mais je parle toujours du curseur souris ou du touche pad que je souhaite positionner sur une cellule avec une api qui pourrait être SetCursorPos Lib "user32 ou autre
13/02/2017, 20h15
unparia

Désolé également (nous voilà deux à l'être, donc), mais je ne te répondrai (compte tenu de l'investissement lourd à faire éventuellement) que lorsque tu auras enfin toi-même donné une suite à l'essentiel, à savoir (bis repetita) :

Citation:

- tu n'as toujours pas exposé le pourquoi de cette étrange manoeuvre
J'attends ces explications-là .

Pour que tu comprennes mieux ma position : j'adore travailler, mais ne travaille jamais sans savoir à quoi tout cela mène (encore moins si je ne suis pas le principal intéressé - ce que tu es).
Alors c'est simple : ou tu exposes clairement le pourquoi (tenants et aboutissants) de la "chose", ce que cela devrait "permettre", etc ... ou, ma foi, tu vas devoir faire tout cela tout seul, selon le dicton en fonction duquel celui qui fait à sa tête doit être celui qui paye de son dos.
Maintenant : comme tu veux, tu "choises", hein ...;)
05/05/2017, 23h36
clubleo

Citation:

Envoyé par unparia

Désolé également (nous voilà deux à l'être, donc), mais je ne te répondrai (compte tenu de l'investissement lourd à faire éventuellement) que lorsque tu auras enfin toi-même donné une suite à l'essentiel, à savoir (bis repetita) :

Pour que tu comprennes mieux ma position : j'adore travailler, mais ne travaille jamais sans savoir à quoi tout cela mène (encore moins si je ne suis pas le principal intéressé - ce que tu es).
Alors c'est simple : ou tu exposes clairement le pourquoi (tenants et aboutissants) de la "chose", ce que cela devrait "permettre", etc ... ou, ma foi, tu vas devoir faire tout cela tout seul, selon le dicton en fonction duquel celui qui fait à sa tête doit être celui qui paye de son dos.
Maintenant : comme tu veux, tu "choises", hein ...;)

@@@@@@@@ RÉSOLU à partir de la Méthode Window.RangeFromPoint @@@@@@@@
06/05/2017, 07h51
unparia

Citation:

RÉSOLU à partir de la Méthode Window.RangeFromPoint

La méthode dont il s'agit faisant très exactement l'inverse (retourner la plage correspondant à des coordonnées) de ce que tu disais vouloir faire (positionner la flèche de la souris), je me ...:koi:
06/05/2017, 11h25
clubleo

Non, car avec cette méthode, j'effectue une boucle sur les lignes et une boucle sur les colonnes qui fournissent les coordonnées en points X & Y de la cellule.
06/05/2017, 11h29
unparia

Citation:

j'effectue une boucle sur les lignes et une boucle sur les colonnes qui fournissent les coordonnées en points X & Y de la cellule.

Hé bé ! Rien que cela !!!!!?????
Tu achètes tes rames où ? T'as un rabais, j'espère ...
Et Range("...").top et Range("...").left, etc .... ???
07/05/2017, 16h56
clubleo

J'avais bien sur tout d'abord commencé par créer mon module avec des formules de type RangeXXXX.left mais elle renvoie une valeur qui représente la distance en points, entre le bord gauche de la colonne A et le bord gauche de la plageet non la position sur l'écran lorsque la cellule A1 n'est pas présente ou que la feuille est réduite. ( pb idem pour .top ligne 1 etc...)

bonjour
pour positionner le curseur sur une cellule il te faut d'abords connaitre la position top0 et left 0 de la grille excel je dis bien la grille pas la fenetre excel

voila pour ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Sub test()
Dim r As RECT
GetWindowRect Application.hwnd, r
L = r.Left: t = r.Top
y = t + 500
Do: x = x + 1: Loop Until TypeName(ActiveWindow.RangeFromPoint(x, y)) = "Range"
leLeft = x
x = r.Left + 100
y = r.Top
Do: y = y + 1: Loop Until TypeName(ActiveWindow.RangeFromPoint(x, y)) = "Range"
letop = y
MsgBox "left 0 delagrille  = " & leLeft & "le top 0 de la grille  = " & letop
'pour verifier on va activer la cellule qui se trouve a ces coordonnées
ActiveWindow.RangeFromPoint(leLeft, letop).Activate
End Sub

08/05/2017, 21h13
unparia

Bonjour patricktoulon
as-tu essayé de voir si :

Code:

toto = Application.Top + (Application.Height - Application.UsableHeight) + ActiveWindow.Top

ne faisait pas que toto était l'ordonnée en pixels du coin supérieur gauche de la grille (je dis bien la grille) de Excel ?
Tu devrais ...
Puis faire un calcul similaire avec l'abscisse.

Une fois cela compris : transposer les pixels en points et ajouter les coordonnées (déjà en points, elles) de la cellule (elles le sont par rapport au coin supérieur gauche de la grille Excel.
08/05/2017, 23h07
clubleo

Bonjour Patricktoulon
Merci de te pencher aussi sur mon étude. Ta proposition est plus concise que la mienne et m’intéresse donc.
J’ai placé tout ton code en entier et seul dans un module. J’ai un pb il stoppe à l’exécution de
GetWindowRect Application.hwnd,r avec le message suivant:
Erreur d’exécution ‘438’ Propriété ou méthode non gérée par cet objet.

Sur fenêtre espion :
_ Application.hwnd : <Propriété ou méthode non gérée par cet objet> : Variant/Integer : Module1.test
_ GetWindowRect : <Expression non définie dans le contexte> : Empty : Module1.test
10/05/2017, 07h34
unparia

Bon

Je me suis ce matin amusé à mettre en oeuvre ce que j'exposais dans mon message précédent.
Je confirme que ma méthode fonctionne bien et qu'il est donc inutile de faire appel à des fonctions de l'Api de Windows pour déterminer les coordonnées à l'écran d'une cellule de la feuille Excel.
Une simple opération arithmétique (voir ce que j'en dis plus haut) suffit.
Et ce : quelles que soient les différentes configurations possibles des fenêtres de Excel et quelle que soit la position de la cellule (à la suite d'un scroll, par exemple)
10/05/2017, 14h58
patricktoulon

re

bonjour unparia
chez moi écran 82cm TV avec amélioration des taille a 125% ca donne n'importe quoi ta petite formule plus haut
10/05/2017, 15h54
unparia

Bonjour patricktoulon
Je ne vois vraiment pas ce que la résolution et la taille de l'écran ont à voir avec ce que j'ai écrit.
Montre voir ce que tu as écrit sur ces bases.
10/05/2017, 20h29
patricktoulon

re
re
Bonjour unparia
et bien j'ai repris ta ligne de code a l'identique
voila ce qu'il me faut pour avoir la "A1", il faut que j'ajoute 103 a y pour tomber dans la cellule
Code:

1 2 3 4 Sub test() toto = Application.Top + (Application.Height - Application.UsableHeight) + ActiveWindow.Top MsgBox ActiveWindow.RangeFromPoint(34, Round(toto) + 103).Address End Sub

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