XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2023

• #61

As tu essayé ma fonction ??

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #62

Dudu2 à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2023

• #63

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

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #64

Dudu2 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2023

• #65

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #66

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 #):

VB:

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

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #67

@Dudu2
en remplacant

VB:

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

Par

VB:

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

Ça donne quoi ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2023

• #68

Non les instructions préprocesseur, ça fontionne.

PtToPx = 0.75

Ce serait pas plutôt PxToPt = 0.75 ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2023

• #69

Essaie voir ça sur MAC ?

 

Pièces jointes

• Classeur1B.xlsm

  30.8 KB · Affichages: 2

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #70

Dudu2 à dit:

Non les instructions préprocesseur, ça fontionne.

PtToPx = 0.75

Ce serait pas plutôt PxToPt = 0.75 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #71

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é?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2023

• #72

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.

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #73

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

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 27 Septembre 2023

• #74

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Septembre 2023

• #75

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]

 

Vote positif 0 Vote négatif