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

Version imprimable

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

30/05/2017, 17h39
patricktoulon

re

hoh!!! j'en ai des tas
30/05/2017, 17h43
Nicolas JACQUIN

Si tu veux, ça me gène pas, c'est intéressant
30/05/2017, 17h54
unparia

Bonjour
Je ne veux pas vous faire de peine, mais ce dernier code provoque chez moi un décalage vers la droite (environ 2 pixels).
Alors que le code que j'ai mis dans mon message 225 place toujours à la perfection le userform.
Config : XP + office 2007

EDIT : je viens de mesurer le décalage ! il est très exactement de 2 points
30/05/2017, 18h25
patricktoulon

re

comme on le disait seule la config XP n'a pas été testée
cette config étant obsolètes au vue des versions offices actuelles ,xp ne recevant plus de mises a jours
je sais même pas si il supporterait 2010

pour comprendre d'ouvien le soucis il nous faudrait

la mesure de

Code:

application.width-application.usablewidth

le retour de

Code:

application.operatingsystem

et de

Code:

application.version

avec ces renseignement on pourrais peut être ajouter cette condition
30/05/2017, 18h34
patricktoulon

2 pièce(s) jointe(s)

re

Bonjour unparia

teste de ton poste 225 a 100%

Pièce jointe 280863

teste de ton poste a 200%

Pièce jointe 280866
30/05/2017, 18h42
patricktoulon

re

@unparia je viens de regarder notre dernière version et si tu enlevais 2 chez moi même avec -2 ca reste au bord de l'userform

Code:

cadre = IIf(system Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4 - 2)
30/05/2017, 18h51
unparia

1 pièce(s) jointe(s)

Je sais (Nicolas JACQUIN l'avait dit).
Problème : pile-poil avec XP et Office 2007 quel que soit le zoom !
-->>
Pièce jointe 280871

essaie au moins avec la ligne modifiée notre version pour voir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function PositionForm2(usf, rng)
    Dim Zooom#, PtToPx#, cadre#, system
    system = Application.OperatingSystem
    cadre = Application.Width - Application.UsableWidth
    cadre = IIf(system Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4 - 2)
    With ActiveWindow
        Zooom = .Zoom / 100
        PtToPx = ((.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Zooom
        lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) + cadre
        ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx + IIf(system Like "*6*", cadre, 0)
 
        Wwidth = IIf(rng.Columns.Count > 1, rng.Width * (Zooom) - cadre * 2, usf.Width)
        Hheight = IIf(rng.Rows.Count > 1, rng.Height * Zooom - cadre, usf.Height)
    End With
    PositionForm2 = Array(lleft, ttop, Wwidth, Hheight)
End Function
Sub TestUserformtopleftcell2()
    r = PositionForm2(UserForm1, [b3])
    With UserForm1: .Show 0: .Left = r(0): .Top = r(1): End With
End Sub

30/05/2017, 19h07
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

voila on a maintenant une fonction compatible avec
W7 2007
W10 2007
W10 2010
W10 2013
W10 2016

demain je récupèrerais mon ancien PC portable si je trouve le chargeur est j'essaierais sur XP2003

on est les champions
et plus de données numérique en dur on prends tout dans excel sauf le 2.4 mais comme il est identique pour tous on le prendra pas en compte

W10 2013 ça passe pas non plus
j'ai un décalage dans les 2 sens sur mon portable

edit: il faudrait déjà tirer +cadre au left
30/05/2017, 19h11
patricktoulon

re

fait une capture
30/05/2017, 19h16
Nicolas JACQUIN

1 pièce(s) jointe(s)

Pièce jointe 280883
30/05/2017, 19h21
Nicolas JACQUIN

1 pièce(s) jointe(s)

non, même en retirant +cadre au left avec zoom 200 il y a un décalage
Pièce jointe 280888
30/05/2017, 19h23
Nicolas JACQUIN

1 pièce(s) jointe(s)

il faut mettre - cadre et ça passe au left

edit
Pièce jointe 280903
30/05/2017, 19h24
patricktoulon

re

c'est etonnant
il faut donc -cadre*2 au left
et +cadre*2 autop

a moins que application.width-application.insidewidth ne ramène encore une variante différente
donc les 3 test de rigeur
t=application.width-application.insidewidth &vbcrlf
t=t & application.operatingsystem & vbcrlf
t=t & application.version
msgbox t
30/05/2017, 19h53
unparia

Ouille ...
Je viens de poser un regard sur les différentes captures d'écran et vous invite à en faire autant.
Il semble bien qu'il y ait une sacrée différence de définition du zoom entre une version (la mienne, par exemple) et l'autre .
Regardons par exemple ma dernière image :
on passe d'un zoom à 50 % à un zoom à 200 %.
Dans la "philosophie" du développeur de ma version, on voit bien qu'il s'agit non de multiplier par 4 hauteur et largeur, mais d'obtenir une surface 4 fois supérieure (et donc de ne pas multiplier par 4 les deux dimensions).
J'observe une "approche" très différente à l'examen des autres captures d'écran !
Je commence à penser que tout le problème est là : définitions différentes de ce qu'est un zoom !
30/05/2017, 20h10
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

c'est etonnant
il faut donc -cadre*2 au left
et +cadre*2 autop

a moins que application.width-application.insidewidth ne ramène encore une variante différente
donc les 3 test de rigeur
t=application.width-application.insidewidth &vbcrlf
t=t & application.operatingsystem & vbcrlf
t=t & application.version
msgbox t

576
Windows(64-bit)NT:.00
15.0

Code:

lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) - cadre

le left comme ça est ok
30/05/2017, 20h20
patricktoulon

re

576 les bords de l'application y a erreur la!!!!
version 00 ya erreur encore
30/05/2017, 20h24
patricktoulon

re

a ben pas étonnant la version de Windows est en 64 bits même pas la peine de continuer a chercher
preuve est fait que la fonction peut même pas ramener le numéro de version Windows
il est de notoriété public et même Microsoft recommande l'installation de la version 32 bits
je me demande pourquoi on continue a le vendre ou l'installer sur les pcs commerciales
30/05/2017, 20h25
Nicolas JACQUIN

2 pièce(s) jointe(s)

tu t'es pas planté dans ce que tu m'as demandé
Pièce jointe 280911
Pièce jointe 280916
30/05/2017, 20h28
Nicolas JACQUIN

ma version qu'on a faite et qui fonctionne est pourtant un Windows 64bits aussi
30/05/2017, 22h03
patricktoulon

re

oui et non
en fait tu a system 32 et syswow64 dans Windows
une application32 bits tourne avec le sywow64 une sorte de (Windows 32 bits virtuel)

ce qui fait que si tu a un office xxxx 32 bits le application.operatingsystem te donnera toujours Windows (32-bit) NT x.xx même si ton Windows et en 64
30/05/2017, 22h10
Nicolas JACQUIN

1 pièce(s) jointe(s)

ok, y a un problème sur le code par rapport à mon pc, sur ce qu'on avait fait jusque là,
je suis en train de reprendre de ma base avec tout les rajouts que tu as fait pour voir ou ça bug,et il se trouve
que j'ai fait tous les essais en mode plein écran et en mode fenêtre sa bug, je pense que c'est au niveau du cadre
ça m'énerve

Pièce jointe 280956
30/05/2017, 22h25
Nicolas JACQUIN

Code:

cadre = IIf(system Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4)

c'est cette ligne qui déconne
30/05/2017, 22h50
patricktoulon

re

avec W10 et 2016?????
30/05/2017, 22h54
Nicolas JACQUIN

ben oui fait ch..., j'avais pas fait gaf
c'est au niveau de

Code:

, -cadre / 2.4, cadre / 2.4)

que ça doit coincé, j'ai rajouté cette ligne là en dernier et image que j'ai mi au dessus mais que en fenêtre réduite

comme c'est là, ça marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function PositionForm1(usf, rng)
Dim Z As Double, K As Double, E As Double
Dim Zooom#, PtToPx#, cadre#
    'system = Application.OperatingSystem
    'cadre = Application.Width - Application.UsableWidth
    'cadre = IIf(system Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4)
    cadre = IIf(Application.OperatingSystem Like "*10*" And Val(Application.Version) <> 12, -5, 1)
With ActiveWindow
    Zooom = .Zoom / 100
    PtToPx = ((.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Zooom
 
    lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) + cadre
    ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx + IIf(system Like "*6*", cadre, 0)
 
    Wwidth = IIf(rng.Columns.Count > 1, rng.Width * (Zooom) - cadre * 2, usf.Width)
    Hheight = IIf(rng.Rows.Count > 1, rng.Height * Zooom - cadre, usf.Height)
End With
 
    PositionForm1 = Array(lleft, ttop, Wwidth, Hheight)
    UserForm1.Label1.Caption = "Zoom" & "  " & Zooom * 100
End Function

30/05/2017, 22h59
patricktoulon

re

quest ce que c'est cette histoire
ton fichier ne reconnais plus app....width ou app...Insidewidth
si toutes les heures tes fichiers répondent différemment alors on s'en sort plus:ptdr::ptdr:
30/05/2017, 23h04
Nicolas JACQUIN

Sinon tanpis je laisse comme ça pas grave, mais c'est bizarre
30/05/2017, 23h07
Nicolas JACQUIN

1 pièce(s) jointe(s)

Dès que c'est pas en pleine écran ça bug, bizarre
Pièce jointe 280983
30/05/2017, 23h10
patricktoulon

re

ben non il ne faut pas laisser demain si c'est pointstoscreenpixels qui bug sans raison ou si il ne reconnait plus active window tu imagine ??

non il faut régler le soucis
enfin tu fais comme tu veux mais ta version ne pourra pas être universelle
30/05/2017, 23h13
Nicolas JACQUIN

ce qui me fait plus chier dans l'histoire, c'est que tu as passé des heures dessus pour que je te dise ça maintenant :oops:
30/05/2017, 23h15
patricktoulon

re

parfois ca peut durer des semaines la résolution d'un problème
ca marchait cet apres midi non? alors ca doit continuer a marcher
30/05/2017, 23h19
Nicolas JACQUIN

j'ai peut-être une réponse qui pourrais aider
Application.Width - Application.UsableWidth en n'importe quelle taille de la fenetre est à 1.5
et en mode pleine écran est à 12
31/05/2017, 01h39
patricktoulon

re

re
en voila une drôle de surprise chez moi ca change pas toujours 9.599999999
c'est absolument pas normal que ca change
31/05/2017, 02h08
Nicolas JACQUIN

oui c'est normal apparemment 2013 later
https://msdn.microsoft.com/fr-fr/lib.../ff840678.aspx
31/05/2017, 09h28
patricktoulon

re

re tu interprète ce que tu lis en aucun cas il est dit qu'une fenêtre maximisée perds sont borderwidth

ca

Citation:

Si la fenêtre est réduite, la largeur est en lecture seule et renvoie la largeur de l'icône de la fenêtre

ca veut dire réduit dans la barre des taches
31/05/2017, 10h02
patricktoulon

re
re
donne moi le résultât de ca sur tes deux PCs
Code:

1 2 3 4 system = Round(Val(Split(Application.OperatingSystem, " ")(3))) vers = Val(Application.Version) MsgBox system + vers
je m'occupe du reste j'ai une autre astuce sous la manche
31/05/2017, 13h45
Nicolas JACQUIN
Citation:
Envoyé par patricktoulon

re
donne moi le résultât de ca sur tes deux PCs

Code:

1 2 3 4 system = Round(Val(Split(Application.OperatingSystem, " ")(3))) vers = Val(Application.Version) MsgBox system + vers

je m'occupe du reste j'ai une autre astuce sous la manche
Bonjour Patrick

ça donne 26 sur le miens
et 15 sur le portable.
31/05/2017, 14h12
patricktoulon

re

26 correspondrait a 16 pour office 2016 et 10 pour Windows

15 c'est parce que vba ne retourne rien pour application.operatingsystem

tu confirme que 16 et la version qui t'est retournée pour office sur ton pc actuel ??

ce que je cjercjhe c'est de savoir
2007=12
2010= ?
2013=?
2016=16
31/05/2017, 14h16
Nicolas JACQUIN

oui moi c'est bien 16, et le portable en 2013 c'est 15, la version est affiché dans program files

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

Fuseau horaire GMT +2. Il est actuellement 17h41.