XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #16

Pas encore fait, j'ai posté pour la publication 1 ressource sur mon problème majeur à chaque fois que je fait un UserForm pour quelqu'un, qui est le contrôle des valeurs saisies dans l'évènement Exit(), contrôle qui conditionne des actions ultérieures.

 

Dernière édition: 25 Septembre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2023

• #17

re
bonjour
avant tout perso
j'aurais testé si c'est pareil que avec W10 ou le ratio point/pixel reste à (* 0.75 ) ou (/ 1.333333333333333)
ce qui dans ce cas dispense de toute opération de calcul ratio

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #18

En 2 temps 3 mouvement, copie du code de @patricktoulon.
Voilà ce que ça donne sur PC, c'est pas bon mais on le sait, car ce qui est intéressant c'est l'affichage sur MAC.
@RyuAutodidacte, peux-tu faire une screenshot STP ?

 

Pièces jointes

• Classeur1.xlsm

  25.9 KB · Affichages: 5

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 25 Septembre 2023

• #19

Hi @Dudu2

Spoiler: Mais que passa :D

C'est une blague, attend la suite

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2023

• #20

re
comme je l'ai dis il faut faire les test d'abords des visible commandbars
si l'affichage d'origine est modifié ca ne fonctionne pas c'est sur
chez ryu ça fonctionne visiblement

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #21

Oui, mais je ne sais pas trop faire ça sans faire des recherches.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #22

Un truc qui me met la grouille dans les traitements aussi ce sont les caractères accentués qui ne sont pas les mêmes.
Ainsi je teste "Total général" dans une cellule, et ça ne le trouve pas sous MAC.
Je suppose qu'il faut translater ces caractères et qu'il doit bien y avoir quelque part une routine qui le fait.

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 25 Septembre 2023

• #23

Re @Dudu2

mon excel en plein écran :


Fenêtre Excel moitié écran à droite :


… Moitié à gauche :


Si je mets Excel en bas1/4 de la hauteur de l'écran le userform se retrouve en dehors de la fenêtre en haut

Si je met la fenêtre d'excel en haut de l'écran et je modifie la taille de la fenêtre excel sur la hauteur on peut retrouver le userform sur toutes les lignes (dont la blague)

La bonne nouvelle c'est que le userform garde l'axe de la colonne F

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #24

@RyuAutodidacte ,
Si tu te sens de saisir cette longue chaîne de caractères diacritiques et exécuter le code chez toi...

VB:

Option Explicit

Const LettresDiacritiques = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝŸàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"

Sub a()
    Dim i As Integer
    Dim S As String
   
    [C3].Value = LettresDiacritiques
    '[C:C].EntireColumn.AutoFit
   
    For i = 1 To Len(LettresDiacritiques)
        S = S & Hex(Asc(Mid(LettresDiacritiques, i, 1))) & " "
    Next i
    [C4].Value = S
End Sub

Chez moi ça donne ça:

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2023

• #25

re

c'est pas bon mais on le sait,

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #26

Ce que je ne comprends pas c'est que ton code ne donne pas le même résultat sur mon PC et ce ne sont pas les .Top et .Left de la Window ou de l'Application qui font la différence entre ces 2 comportements.
Étrange...

 

Pièces jointes

• Classeur1.xlsm

  27.8 KB · Affichages: 0

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #27

Je me souviens avoir fait une fonction de positionnement, il me semble qu'on en avait discuté, et il faut utiliser les PointsToScreenPixelsX/Y sur le Pane de l'objet.
Après les petits décalages sont dûs aux fameuses marges invisibles des UserForms qu'on avait réussi à supprimer via un mécanisme complexe d'API non utilisé ici.

 

Pièces jointes

• Classeur1B.xlsm

  34.8 KB · Affichages: 2

Dernière édition: 25 Septembre 2023

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #28

De toutes façons, le problème est ici principalement avec MAC.
Ce dernier fichier utilise l'API Windows pour la conversion Pixels en Points. Donc pas MAC !
Et même si on le code en dur, pas sûr que les autres fonctions PointsToScreenPixelsX existent en MAC.

De plus, j'ai fait un code batch pour traiter un fichier sur MAC. Pas de UserForm, rien que du code.
Ce code fonctionne sur PC et sur MAC, des tests de VarType() ou autres ne donnent pas les mêmes résultats rendant la Macro inexploitable.

Donc j'abandonne la portabilité MAC, c'est bien trop compliqué à gérer sans un MAC sous la main.
Merci @RyuAutodidacte pour ton support et @patricktoulon.
@+ pour de nouvelles aventures.

 

Dernière édition: 25 Septembre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2023

• #29

re
perso mes fonction pointstoscreenpixels fonctionnent très bien
c'est pour mac le sujet
d'ailleurs pour info le calendar V full MAC se promène aussi dans le nord américain
et je n'ai jamais eu de retour sur le active window ou pane ou quoi que se soit d'autre

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2023

• #30

Ok, ben tant mieux.
Mais comme je l'ai indiqué en edit plus haut:

J'abandonne la portabilité MAC, c'est bien trop compliqué à gérer sans un MAC sous la main.
Merci @RyuAutodidacte pour ton support et @patricktoulon.
@+ pour de nouvelles aventures.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif