XL 2016 Cherche possesseur de MAC connaissant VBA

1. Est-ce qu'un Application.Sendkeys altère le Numlock du clavier numérique comme cela le fait sur mon PC. Raison pour laquelle j'utilise CreateObject("wscript.shell").SendKeys (Keys) qui ne fonctionne pas sur MAC.
   
   
2. J'ai utilisé un UserForm affiché en vbModeless mais sur MAC, c'est la cata, ça part dans tous les sens.
   J'ai dû revenir àl'affichage vbModal.
   
   
3. J'ai du mal à position le Top d'un UserForm.
   Alors j'ai vu ce sujet et j'utilise Application.UsableHeight plutôt que Activewindow.Height mais pas encore testé. As-tu des infos là-dessus ?
   
   
4. La fonction Timer semble ne pas fonctionner sur MAC, mais je n'en suis pas sûr.
   
   
5. La fonction Sleep(milliseconds) fonctionne-t-elle ?
   
   
6. Il semble y avoir un SetForegroundWindow mais comment le déclare-t-on sous MAC ?

1. Code:

   Sub test()
       MacScript ("delay 0.5")
       MsgBox "fini"
   End Sub

2. VB:

   Sub test2()
       MacScript ("do shell script ""Sleep 0.09""")
       MsgBox "temps écoulé"
   End Sub

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

1. VB:

   Sub ResolutionScreen1()
       Res = MacScript("do shell script ""system_profiler SPDisplaysDataType | grep Resolution""")
       MsgBox Res
   End Sub
   'Résultat : "Resolution: 5120 x 2880 Retina"

2. VB:

   Sub ResolutionScreen2()
       Res = MacScript("do shell script ""system_profiler SPDisplaysDataType | awk '/Resolution/{print $2, $3, $4}'""")
       MsgBox Res
   End Sub
   'Résultat : "5120 x 2880"

Dudu2 à dit:

Ok merci,
Je vais faire un petit code que je donnerai à @RyuAutodidacte pour test.

Cliquez pour agrandir...