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

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