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

 

[Dudu2]

As tu essayé ma fonction ??

Non, j'ai perdu le fil sur les problèmes de positionnements, les laissant à vous 2.
Veux-tu que je teste ? Quel post le fichier ?

 

[RyuAutodidacte]

Non, j'ai perdu le fil sur les problèmes de positionnements, les laissant à vous 2.
Veux-tu que je teste ? Quel post le fichier ?

Oui je veux bien
Normalement post 55 le fichier
C’est pour Mac/PC
Fais moi savoir quelle est ta version d’excel et Windows stp
Merci d’avance

 

[Dudu2]

Windows 10 64bits / Office 2016 64bits.
Que suis-je sensé vérifier sur l'affichage du UserForm ?

 

[RyuAutodidacte]

Windows 10 64bits / Office 2016 64bits.
Que suis-je sensé vérifier sur l'affichage du UserForm ?

Dans le sub tu mets la cellule que tu veux ou le userfom est censé apparaître (dans ton exemple tu avais mis F4, mais tu peux mettre Z100 …)
et dans le range visible tu te place n’importe où que ta cellule choisie soit visible ou pas et tu peux aussi redimensionner ta fenêtre Excel comme tu le souhaite
Résultat souhaité : ton userform apparaîtra tjs sur la cellule choisie qq soit ton positionnement dans la fenêtre d’excel

 

[Dudu2]

 

[RyuAutodidacte]

Re @Dudu2

Merci de tester …
Par contre là je ne comprends pas, car j'ai essayer sur un portable 14" (il me semble Lenevo),
écran seul et double écran sur windows entreprise et Office 365, et je n'ai pas eu le pbm …
J'aimerai bien savoir ce qui peut provoquer cette différence ?

je me demande si ce code passe sur ton PC dans la fonction (faut pas enlever les #):

Sub MacOuPC()
    #If Mac Then
        MsgBox "je suis un Mac"
    #Else
       MsgBox "je suis un PC"
    #End If
End Sub

 

[RyuAutodidacte]

@Dudu2
en remplacant

    #If Mac Then
        CmdBRib = CommandBars("ribbon").Height
    #Else
       CmdBRib = 0
    #End If

Par

    If Application.OperatingSystem Like "*Mac*" Then Then
        CmdBRib = CommandBars("ribbon").Height
    Else
       CmdBRib = 0
    End If

Ça donne quoi ?

 

[Dudu2]

Non les instructions préprocesseur, ça fontionne.

PtToPx = 0.75

Ce serait pas plutôt PxToPt = 0.75 ?

 

[Dudu2]

Essaie voir ça sur MAC ?

 

[RyuAutodidacte]

Non les instructions préprocesseur, ça fontionne.

PtToPx = 0.75

Ce serait pas plutôt PxToPt = 0.75 ?

C'est la question que j'étais en train de me poser y a qq minutes.
C'est qd même incroyable qu'entre 2 PC quasi même configuration ,que l'on trouve une différence de résultat.
je vais regarder cela de plus près. dès que j'ai un PC en main

 

[RyuAutodidacte]

En fait je vais rebooter mon Mac sur le system windows c'est un MacIntel
Sur PC ton code devrait donner quoi sur le fichier que tu m'as donné?

 

[Dudu2]

Sur PC le code que je t'ai donné fonctionne, à mon avis dans tous les cas.
Sur MAC, j'ai retiré toutes les API et utilisé un PxToPt = 0.75 car je ne sais pas le calculer sur MAC.

 

[RyuAutodidacte]

Re j'ai une nouvelle en rebootant en windows , j'ai essayé
PtToPx = 0.35
et ca colle, sa se positionne correctement chez moi

 

[RyuAutodidacte]

En fait il faudrait que je trouve le moyen de calculer automatiquement PtToPx

 

[Staple1600]

Bonsoir le fil

[ma contribution du soir]

Why does macOS handle screen resolution differently compare to Windows?

Answer (1 of 3): Around 2012, the industry decided the next level in screens would involve both; MORE Pixels AND SMALLER physical screens. This is how we went from 30 inch WQXGA (cough Apple Cinema Display) screens that were 2560 by 1600 to 27 inch (cough, a lot of 4K displays on the market) 4...

www.quora.com

[/ma contribution du soir]