XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2 · 21 Septembre 2023

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 · 30 Septembre 2023

patricktoulon à dit:
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 · 30 Septembre 2023

@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 · 30 Septembre 2023

Dudu2 à dit:
@RyuAutodidacte chez moi 196 points

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

Dudu2 · 30 Septembre 2023

oui, 125 %

RyuAutodidacte · 30 Septembre 2023

Dudu2 à dit:
oui, 125 %

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

patricktoulon · 30 Septembre 2023

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

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

Dudu2 · 30 Septembre 2023

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

Tu veux dire pour jouer avec nos nerfs !
Mais nous sommes inébranlables

Dudu2 · 30 Septembre 2023

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 · 30 Septembre 2023

Dudu2 à dit:
Mais nous sommes inébranlables Regarde la pièce jointe 1180092 Regarde la pièce jointe 1180091

je confirme

Dudu2 · 30 Septembre 2023

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

Dudu2 · 30 Septembre 2023

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 · 30 Septembre 2023

Dudu2 à dit:
@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 · 30 Septembre 2023

Dudu2 à dit:
@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 · 30 Septembre 2023

@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

VB:

  '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 · 30 Septembre 2023

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

XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires