Contenu récent par PHV.FSM

[HS] Positionner un UserForm sur la grille pour une version Excel 2007 ou ultérieure Voici une solution simple qui ne gère pas les données mal calibrées : Public PxToPt# Sub SetPosUserFormOnGrid(objUF As Object, target As Range, Optional noPane As Integer = 1) Set pn =...

Pour l'instant j'ai pas envie de réinstaller et cette version me convient. Puis si windows 10 est une daube ... J'utilise windows 10 sur mon ordi portable. Voilà tout.

Moi non plus je ne tolère pas cela mais désolé c'est très sérieux ! Tu es le seul à avoir des problèmes de version Windows, de zoom windows et pourquoi pas des anomalies durant la pleine lune. T'inquiète je ne vais plus perdre de temps à te répondre ...

Je viens de HACKER l'avatar de Patrick : En réalisant une extraction au niveau quantique voici se que j'ai découvert au niveau des couches Alpha :

Je travaille sur Windows 7 et je peux aussi faire des tests sur d'autre version mais cela n'a pas d'intérêt je crois. Sub aff(noPane As Integer) Dim PxToPt As Single With ActiveWindow PxToPt = Round(1440 / (.Panes(noPane).PointsToScreenPixelsX(7200 / .Zoom) -...

Merci pour le 'ta' formule, je pensais que c'était un travail collaboratif : Ma variable était PxToPt = 1 / Ptopx Voici le code correspondant : Public Function TopLeftCellule(ByVal LePane As Pane, ByVal Rng As Range, Optional ByVal DansLaCellule As Boolean = True) Dim L As Integer, T As...

Si j'ai compris tu veux afficher un UserForm et tu dois convertir la position en pixel, en point. Il serait plus simple de partager tout ton code pour comprendre ton problème car c'est peut-être un autre problème que tu as ?

J'avais tester le zoom de windows et cela n'interfèrait pas dans le calcul de de PxToPt ou ptopx. Ce coefficient permet de passer d'un taille (distance) en un nombre de pixel. Le fait de changer le zoom de Windows chez moi ne change pas la résolution de mon écran qui d'ailleurs est optimisé pour...

Pour revenir sur le sujet du post voici une autre méthode de calcul de PxToPt pour Excel 2003 qui n'utilise pas de d'appel à des fonctions système : Function GetRatio_PxToPt(wtTarget As Worksheet) As Single Dim rh As Single Dim dMem As Single Dim pxSz As Single Dim dTmp As Single Dim isHide As...

Sinon le calcul est bon en faite car c'est une façon maline de demander à Excel le facteur PxToPt qu'il utilise mais le problème c'est qu'un zoom différent de 100% nécessite des approximations ou arrondis qui se cumulent sur plusieurs colonnes. Ex : ptToPx = 1.333333 Largeur de 5 colonnes de 6...

Oui je t'ai répondu plus haut mais sans reprendre ta conversation :rolleyes: Le calcul de PtoPx est très intéressant et très bien optimisé mais il ne fonctionne pas avec certaine valeur de zoom : Avec 1,34722222222222 avec Zoom à 190% au lieu de 1,3333333333 J'avais développé une autre solution...

J'ai installé Excel 2007 et cela fonctionne très bien aussi, on peut donc conclure que la fonction pane.pointstoscreenpixel(X ou Y) fonctionne parfaitement et existe depuis Excel 2007. Je vais donc reprendre mon 1er message pour que ce soit plus claire (béquille pour la version 2003 uniquement).

Oui je suis d'accord, je ne comprenais pas le calcul de ptopx. Ce n'est pas utile de calculer ceci dans mon cas. J'aurai voulu savoir si cela fonctionne bien aussi sur la version Excel 2007. Je vais devoir installer une version pour voir ...

Pourrais-tu tester la procédure suivante avec ta fonction et me dire si le curseur de la souris se positionne correctement : #If VBA7 Then Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long #Else Public Declare Function SetCursorPos Lib...

Coucou Patrick ! Exact ! utilisant la version d'Excel 2003, je n'avais pas la fonction PointsToScreenPixelsX ou Y pour l'objet Pane mais uniquement pour l'objet Window. Je me suis rendu compte qu'à partir de la version Excel 2007 la fonction de l'objet Pane répond parfaitement à ce problème...