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

Citation:

Je te dis que tes actuve window.left +........+application usableheight..

Tu as réfléchi, avant d'écrire cela (tel qu'écrit) ? Ou tu l'as écrit en te précipitant une fois de plus et sans analyser (ni comprendre, donc) ce que tu écrivais ? :salut:

Et tu peux "me dire" ce que tu veux... hein ... L'essentiel étant que moi, j'ai mon "affaire" ... et pas toi :lol:

re

j'ai abrégé l'ecriture je n'avais pas envie d'ouvrir ton exemple que j'avais enregistré
désolé moi je l'ai mon affaire aussi elle fonctionne très bien et pas chez toi
et c'est inversement réciproque pour ta version

conclusion aucun de nous n'a la véritable solution universel

on va pas faire de la démagogie, la preuve et faite des deux cotés

re

@nicolas
tu veux bien essayer avec

soit actWleft1 et actWtop1 bloqué et mes miens débloqué
et inversement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub test16()
    Dim pppx#, xplus#, yplus#
    With ActiveWindow
        pppx = (.ActivePane.PointsToScreenPixelsX(3) - .PointsToScreenPixelsX(0)) / 3
 
        ' manque la largeur de colonne de numero de ligne
        'et un defaut de 3 ou 4 milimetre en moins pour le left 0
        ActiWleft1 = Application.Left + ActiveWindow.Left    'mode unparia
        ActiWtop1 = Application.Top + ActiveWindow.Top    'mode unparia
        'patrick j'ai la largeur de la colonne des numero de ligne incluse
        ActiWleft2 = (.PointsToScreenPixelsX(0) / pppx)    'mode patrick
        ActiWtop2 = (.PointsToScreenPixelsY(0) / pppx)    'mode patrick
    End With
    With UserForm1
        xplus = .Height - .InsideHeight
        yplus = .Width - .InsideWidth
        .Left = ActiWleft2 + yplus    '+ [b3].Left
        .Top = ActiWtop2 + yplus
        .Show
    End With
End Sub

PS: quand tu debloque et bloque les lignes n'oublie pas de changer dans le with userform

1 pièce(s) jointe(s)

il me mais erreur de syntaxe, je voit pas
Pièce jointe 279246

re

essaie sans ".activepane" mais ca n'a plus aucun sens

1 pièce(s) jointe(s)

en bloquant ton code à toi je suis hors feuil (sur autre écran)
et en bloquant les code unparia ci-dessous
Pièce jointe 279247

1 pièce(s) jointe(s)

j'ai bricolé un peu ta fonction et il y a du mieux, si ça peux t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
     Private Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long
     Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As Long, ByVal hdc As Long) As Long
     Private Declare Function GetDeviceCaps Lib "gdi32.dll" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Function PositionForm(Form As Object, rng As Range)
 Dim pttopx#, ttop#, lleft#, ecc#, Hheight#, Wwidth#, zz#
 Dim PixelsPerPointsX As Double, PixelsPerPointsY As Double
     DC = GetDC(0)
     PixelsPerPointsX = GetDeviceCaps(DC, 88) / 72
     PixelsPerPointsY = GetDeviceCaps(DC, 90) / 72
     ReleaseDC 0, DC
     lleft = ActiveWindow.PointsToScreenPixelsX(rng.Left * PixelsPerPointsX) / PixelsPerPointsX
     ttop = ActiveWindow.PointsToScreenPixelsY(rng.Top * PixelsPerPointsY) / PixelsPerPointsY
PositionForm = Array(lleft, ttop)
End Function
 
Sub TestUserform()
    r = PositionForm(UserForm1, [b3])
    With UserForm1: .Show 0: .Left = r(0): .Top = r(1): End With
End Sub

Pièce jointe 279251

re

essaie avec la ligne qui marche chez toi
nu n'a plus qu'a bloquer l'un ou l'autre ne change rien dans le with userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test16()
    Dim pppx#, xplus#, yplus#
    With ActiveWindow
        'pppx = (.ActivePane.PointsToScreenPixelsX(3) - .PointsToScreenPixelsX(0)) / 3
        pppx = (.ActivePane.PointsToScreenPixelsX(ActiveSheet.[b1].Width) - .PointsToScreenPixelsX(0)) / ActiveSheet.[b1].Width'celle la fonctionnais chez toi cette nuit 
        ' manque la largeur de colonne de numero de ligne
        'et un defaut de 3 ou 4 milimetre en moins pour le left 0
        ActiWleft1 = Application.Left + ActiveWindow.Left    'mode unparia
        ActiWtop1 = Application.Top + ActiveWindow.Top    'mode unparia
        'patrick j'ai la largeur de la colonne des numero de ligne incluse
        ActiWleft1 = (.PointsToScreenPixelsX(0) / pppx)    'mode patrick
        ActiWtop1 = (.PointsToScreenPixelsY(0) / pppx)    'mode patrick
    End With
    With UserForm1
        xplus = .Height - .InsideHeight
        yplus = .Width - .InsideWidth
        .Left = ActiWleft1 + yplus    '+ [b3].Left
        .Top = ActiWtop1 + yplus
        .Show
    End With
End Sub

c'est pareil mais là c'est plus sur aucun des deux écran et à la même pour l'autre

re

t 'est sur d'avoir bien fait ce que je dis ?? parce que c'est illogique
réessaies avec Excel fenêtré au milieu de ton écran

ben oui je pense, j'ai voulu faire une petite video comme tu fait mais ça ne marche pas, je sais pas de quel logiciel te sert tu ?

A Patricktoulon :

Citation:

j'ai abrégé l'ecriture je n'avais pas envie d'ouvrir ton exemple que j'avais enregistré
désolé moi je l'ai mon affaire aussi elle fonctionne très bien et pas chez toi
et c'est inversement réciproque pour ta version

conclusion aucun de nous n'a la véritable solution universel

on va pas faire de la démagogie, la preuve et faite des deux cotés

Quelle "preuve" ? --->>
1) Je n'ai jusqu'à présent montré ici aucun code entier de placement de cet userform sans fonction de l'API ni conversions d'unités.
2) je n'ai donné qu'une indication sur un calcul précis d'une partie précise.
3) si ton essai d'utilisation de cette indication n'aboutit pas, ma foi ... C'est ton code d'essai qui n'est pas bon. Et non la preuve à laquelle tu fais allusion :coucou:
Ce n'est pas bien, de dénoncer comme n'aboutissant pas ce que tu ne sais pas utiliser !
Allez !
Je vais te faire un autre dessin, dès que j'en aurais le temps.
Et je vais te donner ensuite une autre INDICATION (plus simple que la première encore). On va voir ce que tu sauras en faire.
Mais si tu n'y arrives pas non plus, garde-toi de dire que c'est de la faute de cet autre calcul et mets en cause ce que TU EN FAIS.

Pas trouvé encore le temps pour le dessin (enfants + petits enfants présents)
Mais regarde ce qu'est ce quesako --->>

Citation:

hbarre = Userform1.Height - Userform1.InsideHeight
quesako = Application.Height - Application.UsableHeight - (hbarre - 6)

C'est quoi, qu'il te retourne en points fenêtres flottantes ou non ? (sauf si appli en plein écran -->> cas particulier et autre calcul)
Cherche (facile à trouver) ce que c'est.
Cette valeur est le point de départ de calculs purement arithmétiques..

re

re

Citation:

Je vais te faire un autre dessin, dès que j'en aurais le temps.

commence par corriger l'erreur que tu a faite sur le premier concernant l'activewindow en couleur cyan

chez moi quand je flotte le classeur le activewindow.left ou top change ;il est donc très clair que la partie en couleur cyan dans ton dessin n'est pas l'activewindow
a titre indicatif la fentre de l'application contient 7 fentres(7handle) dont 2 en mode UI
j'attendrais ton dessin
pour ma part

celle ci fonctionne au milimetre prêt chez moi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub TestUserformtopleftcell2() r = RectanGleRangeII(UserForm1, [B3:F8]) With UserForm1 .Show 0 .Left = r(0) .Top = r(1) .Width = r(2) .Height = r(3) End With End Sub Function RectanGleRangeII(usf, rng) Dim pppx#, plus#, z#, rect With ActiveWindow.ActivePane pppx = (.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width L1 = (.PointsToScreenPixelsX([A1].Left) / pppx) R1 = (.PointsToScreenPixelsY([A1].Top) / pppx) End With z = (ActiveWindow.Zoom / 100) With usf: plus = .Width - .InsideWidth: End With RectanGleRangeII = Array((L1 + [rng].Left + (plus / z)) * z, (R1 + [B3].Top + ((plus / 2) / z)) * z, rng.Width - plus * 2, rng.Height - plus * 2) End Function
edit:

voici la liste des classe des fentres contenue dans l'application excel 2007

Citation:

EXCEL2
EXCELJ
EXCELI
EXCEL;
EXCEL<
EXCELH
XLDESK

Citation:

chez moi quand je flotte le classeur le activewindow.left ou top change

Bien évidemment, qu'il change !
Le "classeur", dis-tu ? ... tiens .... ! :koi:
C'est une plaisanterie, ou quoi, cette remarque ????

Citation:

celle ci fonctionne au milimetre prêt chez moi

Une paille !!!! Ca fait combien de pixels, un millimètre ? :D
Bon : as-tu au moins déterminé quelle valeur en points était celle de Quesako ?
Pour ton information - et tu le verras in fine (dans quelques mois au train où tu vas) : je ne compte pas en millimètres, mais en beaucoup moins, hein ...:whistle:

Le voilà, ton dessin (avec "paroles", en plus).

Tout y est dit à qui sait l'entendre et je n'ai pas la moindre intention d'y ajouter une seule explication supplémentaire.
Tout ce qui devait être dit quant au calcul de A, B, etc ... Ben --->> je l'ai déjà dit et ne vais donc pas le répéter.

Aucune conversion en unités logiques d'une autre échelle n'intervient dans cette "affaire". Tout est calculé en points.

EDIT : bon ... passe pas (mage trop gourmande ?) . J'en refais une autre demain

re

c'était une expression "au millimètre prêt"
bref chez moi c'est nickel
tu tourne tout ce que je dis dans un sens qui n'est pas celui de départ d'autant plus que ce que j'ai dis rends les explications de ton dessin fausse et apres tu me dit "mais bien sur" :ptdr:
combien de fois crois je te l 'avoir dit que: faire de la démagogie n'est pas nécessaire ici
les faits, actes,et écrits seuls sont valables pour moi
bref ca n'a plus aucun sens que tu me réponde
je vais attendre ton dessin si tant est que tu en ai encre envie

Où ai-je parlé de "classeur", patricktoulon ? où ?

Le plus fort, c'est que je crois deviner que ton incompréhension résulte du fait que tu t'obstines à sortir des coordonnées (en VBA) de l'application pour te référer à celles de Windows (par rapport à l'écran et, elles, en pixels)
Désolé pour toi, mais pour VBA, les coordonnées de l'activeWindow sont établies, elles, en POINTS et par rapport non à l'angle supérieur gauche de l'écran, mais à celui de la fenêtre application.
Exactement comme sont établies, par exemple, les coordonnées d'un contrôle d'un userform.
Comme d'ailleurs sont établies les coordonnées de tout point présent dans toute fenêtre parente Windows. Par rapport à l'angle supérieur gauche de la fenêtre conteneur et non par rapport à l'angle supérieur gauche de l'écran !
Quand vas-tu enfin comprendre cela ?
Ce n'est qu'à la fin, une fois seulement établies ces coordonnées, que l'on ajoute celles du top de la fenêtre application. Non pour corriger les coordonnées de l'activewindow, mais tout( simplement pour placer le userform. Et (que c'est amusant), pour VBA, mêmes ces coordonnées-là sont calculées ... en Points également.

Dur dur, tout cela ? Vraiment ?
Il me faut recommencer mon dessin ... Trop gros, il n'est pas passé...

re

c'est bon j'ai eu confirmation de ce que je pensait sur un autre forum

ma méthode est bonne sauf W10 avec 2007 il faut juste ajouter un petit quelque chose de rien du tout

en même temps en voyant toutes les captures (celle de Nicolas/les miennes )ca au du sauter au yeux de tout le monde

j'attends des retours avec W10 ou 8 et 2013,2016 quand je les aurai je donnerais la solution que j'ai adopté

et oui!!!!! pixel to point n'en déplaise a d'autre