hoh!!! j'en ai des tas
hoh!!! j'en ai des tas
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
Si tu veux, ça me gène pas, c'est intéressant
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
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
Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .
****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...
Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.
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
le retour de
Code : Sélectionner tout - Visualiser dans une fenêtre à part application.width-application.usablewidth
et de
Code : Sélectionner tout - Visualiser dans une fenêtre à part application.operatingsystem
avec ces renseignement on pourrais peut être ajouter cette condition
Code : Sélectionner tout - Visualiser dans une fenêtre à part application.version
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
Bonjour unparia
teste de ton poste 225 a 100%
teste de ton poste a 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
@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 : 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 - 2)
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 sais (Nicolas JACQUIN l'avait dit).
Problème : pile-poil avec XP et Office 2007 quel que soit le zoom !
-->>
Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .
****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...
Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.
essaie au moins avec la ligne modifiée notre version pour voir
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 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
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
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
fait une capture
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
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
non, même en retirant +cadre au left avec zoom 200 il y a un décalage
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
il faut mettre - cadre et ça passe au left
edit
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 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
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
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 !
Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .
****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...
Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.
576
Windows(64-bit)NT:.00
15.0
le left comme ça est ok
Code : Sélectionner tout - Visualiser dans une fenêtre à part lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) - cadre
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
576 les bords de l'application y a erreur la!!!!
version 00 ya erreur encore
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
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
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
tu t'es pas planté dans ce que tu m'as demandé
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
ma version qu'on a faite et qui fonctionne est pourtant un Windows 64bits aussi
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