XL 2016 Cherche possesseur de MAC connaissant VBA

[Dudu2]

Bonjour,

Pour un XLDNaute du Canada j'ai développé un code sous Windows.
Je vire tout ce qui est API Windows. Et tous les caractères accentués.

1 - Cependant comment fait-on en MAC pour trouver le ratio Point / Pixel ?
2 - Y a-t-il une fonction Sleep(milliseconds) ?

Merci par avance

 

[RyuAutodidacte]

j'ai simplement repris ma fonction dans le calendar

???
tu parles de quelle fonction ?

 

[Dudu2]

Comment @RyuAutodidacte, tu ne connais pas le fameux Calendar universel de @patricktoulon ?!

If Mac then 1 else ptopx terminé

Ça me semble parfaitement correct.

@Dudu2 j'ai un problème avec ton if moi
ta condition IgnoreUserFormExternalMargins m'ajoute bien le décalage a gauche
mais ta condition suivante me l'enleve puisque je suis en dessous des 2.5

Moi je suis perdu dans tes configs et tes tests.
La config "standard", où t'as pas modifié les options d'Aero et autres, c'est celle qui n'a pas besoin d'une correction de marge ou bien celle qui en a besoin d'une de 2.4 points (4.8 / 2) ? Post #130 ou Post #170 ?

 

[patricktoulon]

celle que j'avais au début c'est d'origine
ombre
dimension de l'ombre
le peek
dimension du texte des barre de titre
etc etc
pas de recadrage

j' ai supprimé toutes ses cochonneries ,perso pour travailler c'est plus net
mais là il y a recadrage
ça prouve bien que wmapi.dll veille aux grains

il n'y a pas a ce perdre
mon width-insidedwidth=4.8(je te l'ai donné tout à l'heure)
divisé par 2 ca fait 2.4 conclusion ta 2d condition me l'enlève c'est tout
tu devrait tout simplement descendre la tolérence
if marginLeft>2 then
teminé

 

[Dudu2]

Cette tolérance je l'ai mise par rapport à ton retour sur le Width - InsideWidth de 4.8 uniquement.
Donc je n'ai pas de raison de la garder et dois simplement la supprimer. Finalement retour à la version initiale.

Edit: fichier supprimé car retour non fiable.

 

[RyuAutodidacte]

OK du coup on a 2 versions Mac pour placer le Userform (la tienne et la mienne)
Merci du conseil pour le pane j'ai pu faire évoluer ma version … Post 171

Par contre on a pas de version sans API sur Windows ??

Bon exercice moi qui m'étais jamais frotté à cette partie

 

[patricktoulon]

Par contre on a pas de version sans API sur Windows ??

tu l' a des 10aines de fois sur xld
il te suffit de taper left top userform
avec les membres Dudu2 patricktoulon rolland

 

[patricktoulon]

@Dudu2 tu fatigue ou quoi?

c'est ton code

'Ignore UserForm external margins for a precise visual position
    If IgnoreUserFormExternalMargins Then
        LeftMarginShift = (UserForm.Width - UserForm.InsideWidth) / 2
' DONC CA ME MET LE 2.4 on est d'accords

et après tu fait ça

#If Mac Then
        TopMarginShift = LeftMarginShift
#Else
        'Windows old UserForm versions have a difference (Width - InsideWidth) = 4.8 and must NOT be shifted
        'Windows new UserForm versions have a difference (Width - InsideWidth) = 10.8 and must be shifted
      '*****************************************************************************'
       If LeftMarginShift < 2.5 Then LeftMarginShift = 0'il faut que je remtte 2 ici
       'ici tu me l'enlève forcement puisque moi c'est 2.4 ET NON 2.5 !!!!!!!!

 

[patricktoulon]

???
tu parles de quelle fonction ?

sérieux il faut encore que je présente le calendar ?

 

[RyuAutodidacte]

sérieux il faut encore que je présente le calendar ?

Oui oui présente le moi

 

[Dudu2]

et après tu fait ça

Ce n'est pas le code du fichier du Post #166.

 

[Dudu2]

Par contre on a pas de version sans API sur Windows ??

Si, tu as la fonction qui est dans le code du fichier du Post #166.

 

[patricktoulon]

ok tu l'a carrément viré
pour moi c'est bon en thème épuré de toute cochonnerie embellissement graphique windows

 

[patricktoulon]

j'ai envi de tester sur W7

 

[Dudu2]

pour moi c'est bon en thème épuré de toute cochonnerie embellissement graphique windows

Ce que je ne sais toujours pas c'est si, dans ton environnement, cette épuration correspond à une configuration par défaut (on va dire initiale Windows sans modifications ultérieures) ou si c'est après tes interventions diverses sur les paramètres d'affichage.

Car si c'est après tes interventions, faut que je remette le test < 2.5. Car très peu de gens vont modifier ces trucs.

 

[patricktoulon]

Ce que je ne sais toujours pas c'est si, dans ton environnement, cette épuration correspond à une configuration par défaut (on va dire initiale Windows sans modifications ultérieures) ou si c'est après tes interventions diverses sur les paramètres d'affichage.

Car si c'est après tes interventions, faut que je remette le test < 2.5. Car très peu de gens vont modifier ces trucs.

de toute facon il y aura toujours des configs diverses et variées c'est pour ca que comme je te l'ai dit j'avais abandonné cette piste
ton fichier1B sur windows 7 et office 2013

avec le marginleft positif(pas divisé par 2)

    'Ignore UserForm external margins for a precise visual position
    If IgnoreUserFormExternalMargins Then
        LeftMarginShift = (UserForm.Width - UserForm.InsideWidth) ' / 2

#If Mac Then
        TopMarginShift = LeftMarginShift
#Else
        'Calculate UserForm Caption Height
        'UserFormHeight = UserForm.Height
        'UserForm.Height = 0
        'CaptionHeight = UserForm.Height
        'UserForm.Height = UserFormHeight
        'TopMarginShift = (UserForm.Height - CaptionHeight - UserForm.InsideHeight) '/ 2
        
        'Windows étrangement ne positionne pas sur la marge !?
        TopMarginShift = 0
#End If
    End If
    
    Set Pan = ObjectPane(WorksheetObject, Visible:=False)
    
#If Mac Then
    UserForm.Left = Pan.PointsToScreenPixelsX(WorksheetObject.Left) - LeftMarginShift + HorizontalShiftPoints
    UserForm.Top = Pan.PointsToScreenPixelsY(WorksheetObject.Top) - TopMarginShift + VerticalShiftPoints
#Else
    UserForm.Left = PixelsToPointsX(Pan.PointsToScreenPixelsX(WorksheetObject.Left)) + LeftMarginShift + HorizontalShiftPoints
    UserForm.Top = PixelsToPointsY(Pan.PointsToScreenPixelsY(WorksheetObject.Top)) - TopMarginShift + VerticalShiftPoints
#End If