d'accords je coorige et te donne la ligne pour qu'elle soit universelle ta fonction
d'accords je coorige et te donne la ligne pour qu'elle soit universelle ta fonction
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
voila
donc soit
Code : Sélectionner tout - Visualiser dans une fenêtre à part cadre = IIf(Application.OperatingSystem Like "*10*" And Application.Version <> 12, -5, 1)
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
erreur13 imcompatibilité de type, quand je met le curseur sur cadre il est cadre = vide
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
cadre = IIf(Application.OperatingSystem Like "*10*", -5, 1)
comme ça ça marche
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
allons donc???
msgbox Application.OperatingSystem Like "*10*"
msgbox application.verion <>12
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
cadre = IIf(Application.OperatingSystem Like "*10*" And Application.Version = "16.0", -5, 1)
comme ça c'est ok
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
je t'es mis message au dessus 16.0
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
alors ca devrait marcher
a moins qu'avec val
ou bien encore
Code : Sélectionner tout - Visualiser dans une fenêtre à part cadre = IIf(Application.OperatingSystem Like "*10*" And val( Application.Version )<> 12, -5, 1)
Code : Sélectionner tout - Visualiser dans une fenêtre à part cadre = IIf(Application.OperatingSystem Like "*10*" And not Application.Version like"*12*", -5, 1)
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
T'es un champion, ça marche nickel avec l'une ou l'autre, merci
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
et application.width-application.usablewidth ca donne quoi! chez toi
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
12
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
j'ai un doute
essaie -4 plutôt chez toi et teste a 100 et 200%
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
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
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
Quand je mets la colonne A à 20pix et avec 4 j'ai un décalage, mais en 5 je suis toujours ok
Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider
n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager