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

Dudu2 · 30 Septembre 2023

Sinon, je sais bien que chaque environnement (combinaison version Window / version Office) a ses propres caractéristiques. Mais à défaut d'autre chose il faudrait tenter ce Width - InsideWidth < 5, c'est tout ce qu'on a pour le moment ! Mais bon là c'est sûr il faut des testeurs !

Edit: J'ai adapté ce fichier de test en conséquence.

patricktoulon · 30 Septembre 2023

re
tiens dudu2 je l'ai retrouvé ça date de 2017 ;c'est pour te dire
tu verra il y autant de différences que de retours

teste de position userform

Bonjour a tous j'aurais besoins de vos retours sur la postion du userform ces retours doivent s'accompagner de la version excel utilisé et la version de window exemple chez moi emplacement B3 correcte , W7 , excel 2007 je vous remercie par avance pour le temps que vous prendrez pour ma petite...

excel-downloads.com

et depuis la version 22h2 de windows 10 ca a encore changer (en mieux certes)
et ryu il nous a laissé tomber

RyuAutodidacte · 30 Septembre 2023

@Dudu2

Dudu2 à dit:
Edit: Tu pourrais placer directement les Left et Top de la cellule dans les PointsToScreenPixelsX/Y. Ça t'éviterait d'invoquer le Zoom dans le calcul.

Dudu2 à dit:
Une remarque sur ton code...
Tu positionnes par rapport à Panes(1). Alors je ne sais pas sur Mac mais si la cellule est dans un autre Pane faudrait voir si ça fonctionne, j'ai un petit doute.

Je valide , j'ai modifié en conséquence et mis le paramètre getPane dans la function :

VB:

Sub TestUserform() ' Auteur RyuAutodidacte - Version 2.1 | 26-27/09/2023-V1 | 30/09/2023-V2
Dim UfC, cel As String
    cel = "F4" ' Mettre l'adresse de la cellule voulue
    UfC = UserformOnCell(cel, 3)
     With UserForm1
        .startupposition = 0
        .Left = UfC(0)
        .Top = UfC(1)
        .Show 0
    End With
End Sub

Function UserformOnCell(cel As String, getPane As Byte) As Variant ' Auteur RyuAutodidacte - Version 2.1 | 26-27/09/2023 | 30/09/2023-V2
Dim Adr, Z, L, T, MargeLeft As Byte, MargeTop As Byte

    MargeLeft = 2:              MargeTop = 3

    Adr = Split(ActiveWindow.VisibleRange.Address, ":")
    If (Range(cel).Column >= Range(Adr(0)).Column And Range(cel).Column <= Range(Adr(1)).Column And Range(Adr(0)).Row <= Range(cel).Row) = False Then
        ActiveWindow.ScrollRow = Range(cel).Row
        ActiveWindow.ScrollColumn = Range(cel).Column
    End If
    
    With ActiveWindow
        L = .Panes(getPane).PointsToScreenPixelsX(Range(cel).Left) - MargeLeft
        T = .Panes(getPane).PointsToScreenPixelsY(Range(cel).Top) - MargeTop
    End With
    
    UserformOnCell = Array(L, T)
End Function

@patricktoulon

patricktoulon à dit:
et si j'ai raison je t'ai déjà donné une fonction fonctionnelle en page 1 ou 2 de ce topic

Si tu parles de cela vois ce que le code fais et regarde la partie espion

patricktoulon à dit:
activewindow.left=100
msgbox 100 & vbcrlf & activewindow.panes(1).pointstoscreenpixelsx(0)

patricktoulon à dit:
L = .Panes(1).PointsToScreenPixelsX(0)
donc acivewindow et panes et pointstoscreenpixels fonctionnent sur mac

RyuAutodidacte · 30 Septembre 2023

patricktoulon à dit:
et ryu il nous a laissé tomber

Laisse moi le temps de faire mon message … t as les réponse s au dessus

patricktoulon · 30 Septembre 2023

re
@Dudu2 ton fichier post#166 VS mon code simple
a droite le tiens , à gauche le mien

RyuAutodidacte · 30 Septembre 2023

J'ai fait une correction pour que le pane soit pris en compte correctement et je l'ai mis en option dans la function :

VB:

Sub TestUserform() ' Auteur RyuAutodidacte - Version 2.1 | 26-27/09/2023-V1 | 30/09/2023-V2
Dim UfC, cel As String
    cel = "F4" ' Mettre l'adresse de la cellule voulue
   ' dans optional si vous voulez le pane actif mettre => ActiveWindow.ActivePane.Index
    UfC = UserformOnCell(cel)
     With UserForm1
        .startupposition = 0
        .Left = UfC(0)
        .Top = UfC(1)
        .Show 0
    End With
End Sub

Function UserformOnCell(cel As String, Optional getPane As Byte = 1) As Variant   ' Auteur RyuAutodidacte - Version 2.1 | 26-27/09/2023 | 30/09/2023-V2
Dim Adr, Z, L, T, MargeLeft As Byte, MargeTop As Byte

    MargeLeft = 2:              MargeTop = 3
    With ActiveWindow
        Adr = Split(.Panes(getPane).VisibleRange.Address, ":")
        If (Range(cel).Column >= Range(Adr(0)).Column And Range(cel).Column <= Range(Adr(1)).Column And Range(Adr(0)).Row <= Range(cel).Row) = False Then
            .Panes(getPane).ScrollRow = Range(cel).Row
            .Panes(getPane).ScrollColumn = Range(cel).Column
        End If
 
        L = .Panes(getPane).PointsToScreenPixelsX(Range(cel).Left) - MargeLeft
        T = .Panes(getPane).PointsToScreenPixelsY(Range(cel).Top) - MargeTop
    End With
 
    UserformOnCell = Array(L, T)
End Function

patricktoulon · 30 Septembre 2023

ok ryu
donc le point(0) est bien donné
donc tu chasse le dahu depuis plus de 9 pages
alles un dernier petit test pour confirmer au cas ou hein
teste ce fichier
envoie une capture d'ecran
regle le ptopx si besoin dans le code mais dis moi si tu l'a modifié

Dudu2 · 30 Septembre 2023

Ok, y a encore une mini marge à gauche !
Ce que je ne comprends pas car je l'ai réduite à zéro pour ton environnement en me basant sur ton Post #130. où tu dis "j'enlève ton leftmargin je suis bon".

patricktoulon · 30 Septembre 2023

re
quand je lis ces deux lignes de code

VB:

 L = .Panes(getPane).PointsToScreenPixelsX(Range(cel).Left) - MargeLeft
        T = .Panes(getPane).PointsToScreenPixelsY(Range(cel).Top) - MargeTop

donc aux quelles tu n'ajoute pas de coeff de conversion points/pixel

et que surtout!!! toute à l'heure tu me dis 23 pour le pointstoscreenpixelsX(0)
ce qui est cohérent (à peu près la même chose chez nous les windowsiens )

je ne peux qu'en conclure que sur mac les fonctions pixel travaille en points

LOL ET RE LOL ET ENCORE UN LOL

RyuAutodidacte · 30 Septembre 2023

patricktoulon à dit:
teste ce fichier

Je veux bien tester mais ne met pas de l'activeX

patricktoulon · 30 Septembre 2023

@Dudu2 c'est à moi que tu parles
@RyuAutodidacte je te le refait avec un bouton shape

RyuAutodidacte · 30 Septembre 2023

Re

VB:

CommandBars("ribbon").Height

il est à combien chez vous ?

patricktoulon · 30 Septembre 2023

@Dudu2
alors oui si je met deux fenêtres (fichiers excel cote à cote )en utilisant l'aeropeak de window
( le glisser au bord de l'ecran) j'ai en effet un petit effet de bord de rien du tout

patricktoulon · 30 Septembre 2023

re
@RyuAutodidacte chez moi 147 points

RyuAutodidacte · 30 Septembre 2023

patricktoulon à dit:
@Dudu2 c'est à moi que tu parles
@RyuAutodidacte je te le refait avec un bouton shape

Tu sais ca existe les boutons sans activeX aussi

XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

teste de position userform

RyuAutodidacte

XLDnaute Impliqué

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Discussions similaires