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]

re
@RyuAutodidacte chez moi 147 points

Le pourcentage des paramètres écran windows joue sur la taille ?
genre si il est mis à 200 % ? (pas dans Excel)

 

[Dudu2]

@RyuAutodidacte chez moi 196 points

@patricktoulon, ok donc tu n'as pas les mêmes settings entre le Post #130 (Aero Peek désactivé) et le Post #170 (Aero Peek activé).

Edit: Je vais en rester là en ignorant ce mini-décalage avec Aero Peek (ou autre setting) et en conditionnant le retrait d'une marge horizontale sur (Width - InsideWidth) >= 5 quitte à revoir ce chiffre si des retours le contredisent.

 

[RyuAutodidacte]

@RyuAutodidacte chez moi 196 points

Ton paramètre Windows écran est de 120%-125% ?

 

[Dudu2]

oui, 125 %

 

[RyuAutodidacte]

oui, 125 %

OK donc le pourcentage est surement à prendre en compte car à 100% tu aurais pour le commande bar Ribbon 156,8 (157)

 

[patricktoulon]

et moi 100%
oui j'ai activé l'aeropeak pour jouer avec vous

1. touche windows+R
2. tape sysdm.cpl dans la fenêtre exécuter
3. tu arrive à une fenêtre propriété systeme
4. ensuite onglet paramètre avancé
5. ensuite paramètres dans l'encart performences
6. tu arrive ici et tu n'a plus qu'a cocher ou décocher selon ton besoin

 

[Dudu2]

oui j'ai activé l'aeropeak pour jouer avec vous

Tu veux dire pour jouer avec nos nerfs !

Mais nous sommes inébranlables

 

[Dudu2]

OK donc le pourcentage est surement à prendre en compte car à 100% tu aurais pour le commande bar Ribbon 156,8 (157)

Oui, à 100% c'est 157.

 

[RyuAutodidacte]

Mais nous sommes inébranlables Regarde la pièce jointe 1180092Regarde la pièce jointe 1180091

je confirme

 

[Dudu2]

@RyuAutodidacte
Que cherches-tu à faire avec cette hauteur de Ribbon ? C'est en lien avec la position du UserForm ?

 

[Dudu2]

Bon, je vais sortir mon VTT électrique et faire une petite sortie dans les bois près de chez moi.
@patricktoulon, tu ferais mieux de sortir ta bécane et faire une ballade sur les petites routes du Var bordées de vignes et d'oliviers.

 

[patricktoulon]

@RyuAutodidacte
Que cherches-tu à faire avec cette hauteur de Ribbon ? C'est en lien avec la position du UserForm ?

re
ben c'est une question que je me pose moi aussi puisque pointstoscreenpixel fonctionne je n'en vois pas l'utilisté

@Dudu2
j'ai enlevé l'aeropeek les ombres aux fentres et je me retrouve avec le même décalage que toi
et tout ces détail mon ami c'est wmapi.dll

donc chez moi en thème windows 10 tout paramétré tout seul donc avec le peek et ombres et toute ces cochonneries je suis nickel sans marginleft ou top
et si j'enlève tout les paramètres surperflu j'ai un recalage comme toi de 2 points
mais c'est l'ombre qui joue le plus sur les résultats
ici sans ombre

 

[RyuAutodidacte]

@RyuAutodidacte
Que cherches-tu à faire avec cette hauteur de Ribbon ? C'est en lien avec la position du UserForm ?

oui je me tente à coder sur PC

 

[patricktoulon]

@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

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

#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

 

[patricktoulon]

bon avec ces conclusions pour mac
j'ai simplement repris ma fonction dans le calendar
et j'ai juste ajouté la condition if Mac then1 else ptopx
terminé
et encore je l'ai fait mais je demanderait a mes amis du grand nord au pays du sirop brunâtre
de tester car ils ne m'ont jamais rapporté ce problème d'auto conversion sur MAC