Discussion :

[patricktoulon]

d'accords je coorige et te donne la ligne pour qu'elle soit universelle ta fonction

[patricktoulon]

voila

Code :

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

cadre = IIf(Application.OperatingSystem Like "*10*" And Application.Version <> 12, -5, 1)

donc soit
window10 et excelXXXX mais pas 2007 =-5
window7 et excel 2007 =1
window10 et excel 2007 =1 même si le shell de w10 n'affiche pas le cadres des fenêtres comme w7
voila

[Nicolas JACQUIN]

erreur13 imcompatibilité de type, quand je met le curseur sur cadre il est cadre = vide

[Nicolas JACQUIN]

cadre = IIf(Application.OperatingSystem Like "*10*", -5, 1)
comme ça ça marche

[patricktoulon]

allons donc???
msgbox Application.OperatingSystem Like "*10*"
msgbox application.verion <>12

[Nicolas JACQUIN]

cadre = IIf(Application.OperatingSystem Like "*10*" And Application.Version = "16.0", -5, 1)
comme ça c'est ok

[patricktoulon]

cadre = IIf(Application.OperatingSystem Like "*10*", -5, 1)
comme ça ça marche

oui comme ca mais tu teste pas l'exception W10 avec 2007

[Nicolas JACQUIN]

je t'es mis message au dessus 16.0

[patricktoulon]

alors ca devrait marcher
a moins qu'avec val

Code :

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

cadre = IIf(Application.OperatingSystem Like "*10*" And val( Application.Version )<> 12, -5, 1)

ou bien encore

Code :

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

cadre = IIf(Application.OperatingSystem Like "*10*" And not Application.Version  like"*12*", -5, 1)

[Nicolas JACQUIN]

T'es un champion, ça marche nickel avec l'une ou l'autre, merci

[patricktoulon]

re
Bonjour Nicolas
maintenant on peut le dire c'est universel

maintenant que tu comprends ma logique tu peut essayer de reprendre la méthode de Jacques en essayant de lui affublé cette condition
elle sera universel aussi
la seule chose qui me gène dans ta version c'est le( -5 /+1)qui fonctionne mais on ne sais pas ou il les prends
je préfèrerait que tu trouve une dimension dans excel
perso j'ai pensé a ceci:

X=round((cells(rows.count,columns.count).height/3))'=5
il faudrait que tu teste voir si c'est pareil chez toi avec ou sans zoom

[patricktoulon]

que donne le rsultat de ca chez toi vu qu'avec W10 le cadre est absent

Code :

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

usable = Application.Width - Application.UsableWidth

[Nicolas JACQUIN]

que donne le rsultat de ca chez toi vu qu'avec W10 le cadre est absent

Code :

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

usable = Application.Width - Application.UsableWidth

Bonjour Patrick,
ça donne 1.5

[Nicolas JACQUIN]

re
Bonjour Nicolas
maintenant on peut le dire c'est universel

maintenant que tu comprends ma logique tu peut essayer de reprendre la méthode de Jacques en essayant de lui affublé cette condition
elle sera universel aussi
la seule chose qui me gène dans ta version c'est le( -5 /+1)qui fonctionne mais on ne sais pas ou il les prends
je préfèrerait que tu trouve une dimension dans excel
perso j'ai pensé a ceci:

X=round((cells(rows.count,columns.count).height/3))'=5
il faudrait que tu teste voir si c'est pareil chez toi avec ou sans zoom

oui c'est bien égal à 5

[patricktoulon]

et application.width-application.usablewidth ca donne quoi! chez toi

[Nicolas JACQUIN]

12

[patricktoulon]

c'est ce qui explique le + ou - 6
mais pour l'universalité c'et inexploitable car chez moi c'est 9.086xxxxx
ca m'ennuie d'utiliser une cells pour le 5 car elle pourrait être éventuellement modifiée
faut chercher encore
on finira bien par trouver

[patricktoulon]

j'ai un doute
essaie -4 plutôt chez toi et teste a 100 et 200%

[Nicolas JACQUIN]

escuse moi je m'étais planter, à force je mi perds, le résultat à l'œil est le même, j'ai essayé à 400%, je vois rien de différent

[Nicolas JACQUIN]

Quand je mets la colonne A à 20pix et avec 4 j'ai un décalage, mais en 5 je suis toujours ok