Discussion :

[patricktoulon]

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

[Nicolas JACQUIN]

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

[Nicolas JACQUIN]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

c'est cette ligne qui déconne

[patricktoulon]

avec W10 et 2016?????

[Nicolas JACQUIN]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

, -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

[Nicolas JACQUIN]

comme c'est là, ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[Nicolas JACQUIN]

Sinon tanpis je laisse comme ça pas grave, mais c'est bizarre

[Nicolas JACQUIN]

Dès que c'est pas en pleine écran ça bug, bizarre

[patricktoulon]

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

[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

[patricktoulon]

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

[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

[patricktoulon]

re
en voila une drôle de surprise chez moi ca change pas toujours 9.599999999
c'est absolument pas normal que ca change

[Nicolas JACQUIN]

oui c'est normal apparemment 2013 later
https://msdn.microsoft.com/fr-fr/lib.../ff840678.aspx

[patricktoulon]

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

ca

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nicolas JACQUIN]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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

[Nicolas JACQUIN]

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