XL 2021 VBA - Est-ce que la ListBox a une Scroll Barre Verticale ?

[Dudu2]

Bonjour,

Comment déterminer, à part avec une approximation pas forcément juste sur la Font.Size comme dans l'exemple joint, si une ListBox as une Scroll Barre Verticale ?

 

[patricktoulon]

je vais faire des tests complémentaires cela doit dépendre de l'O.S et de la version d'Excel.
En tout cas quelque chose qui fonctionne sur mon Excel 2021 Windows 11 :

Function HasSb(ByVal ListBox) As Boolean
    Dim IAListBox As IAccessible
    Dim c As New CUIAutomation, UIA_elem As IUIAutomationElement, rectLB As tagRECT
    If ListBox.ListCount = 0 Then Exit Function
    Set IAListBox = ListBox
    Set UIA_elem = c.ElementFromIAccessible(IAListBox, 0)
    rectLB = UIA_elem.CurrentBoundingRectangle
    HasSb = IAListBox.accHitTest(rectLB.Right - 5, rectLB.Top + 5)
    HasSb = Not HasSb
End Function

ben chez moi non

ca dit toujours oui

 

[patricktoulon]

@Dudu2

 Set IAcObj = Lb
     AccessibleObjectFromPoint pz.Dt, cc, v
    HasScrollbarVX = v = 0

     Set IAListBox = ListBox
    Ret = IAListBox.accHitTest(Pt.X, Pt.Y)

c'est la même chose les deux testent si présence child aux points X et Y
c'est peut être plus simple et plus comprehensible avec acchitest et les points x et y sans conversion (currency) en effet

 

[patricktoulon]

bon dans tout les cas je pense que l'on tient la bonne solution
et pour le coup là oui c'est du 100%
😉

 

[jurassic pork]

ben chez moi non
ca dit toujours oui

C'est louche,
je viens d'essayer sous Excel 2007, Excel 2013 sous Windows 10, Excel 2016 sous Windows 11 cela semble OK.
Cela ne fonctionne pas sous Windows 7 .
Essaie le classeur que je mets en pièce jointe.

 

[Dudu2]

@jurassic pork, tu utilises UIAutomation alors que tu as dis toi-même en Post #40:

Je confirme ce que dit patrick, uiautomation ne fonctionne pas partout. Tout à l'heure j'ai dit que cela fonctionnait avec Excel 2007 sous windows 7 mais je n'avais pas testé avec le bon classeur. Les boundings rectangles ne sont pas bons.

Dans le Post #75, je n'utilise pas UIAutomation pour trouver les coordonnées de la ListBox.
C'est ce fichier que @patricktoulon devrait tester.

 

[jurassic pork]

@jurassic pork, tu utilises UIAutomation alors que tu as dis toi-même en Post #40:

Dans le Post #75, je n'utilise pas UIAutomation pour trouver les coordonnées de la ListBox.
C'est ce fichier que @patricktoulon devrait tester.

Effectivement c'est le retour des dimensions du UIAElement qui ne fonctionne pas avec Windows 7 mais normalement cela devrait fonctionner pour les windows > 8 pour avoir du 100% UIAutomation

 

[Dudu2]

@patricktoulon n'est-il pas sous Windows 7 ?

 

[jurassic pork]

@patricktoulon n'est-il pas sous Windows 7 ?

Ben d'après ce qu'il m'a dit c'est un vieux pc portable qu'il a sous windows 7, normalement il est sous Windows 10 avec un Excel 2013, c'est pour cela que je trouve louche que mon code ne fonctionne pas chez lui.

 

[patricktoulon]

non je suis sur W10 office 2013 pro plus

 

[patricktoulon]

@Dudu2 je l'ai testé ton fichier déjà
ca fonctionne et je t'ai dis en post #78 que les deux méthodes faisaient le même chose

 

[Dudu2]

Ok, mais dans certaines situations, INEXPLICABLES (selon la taille de la ListBox), ça ne fonctionne pas.
- Ni ma solution:-> le WindowFromAccessibleObject() rend le Handle du Parent (donc les X, Y sont faux)
- Ni la solution de @jurassic pork -> le HitTest ne rend pas la bonne valeur (alors que les X, Y sont corrects selon la position curseur)

La UserForm1.ListBox2 n'a pas de ScrollBar et pourtant les 2 méthodes disent qu'elle en a une !
Cliquer sur le bouton pour le tester directement.

Edit: le pire c'est qu'il suffit d'enregistrer à nouveau le classeur pour que ça fonctionne.
Ou d'entrer en édition sur le UserForm pour que ça ne fonctionne plus à nouveau.

 

[patricktoulon]

Ok, mais dans certaines situations, INEXPLICABLES (selon la taille de la ListBox), ça ne fonctionne pas.
- Ni ma solution:-> le WindowFromAccessibleObject() rend le Handle du Parent (donc les X, Y sont faux)
- Ni la solution de @jurassic pork -> le HitTest ne rend pas la bonne valeur (alors que les X, Y sont corrects selon la position curseur)

La UserForm1.ListBox2 n'a pas de ScrollBar et pourtant les 2 méthodes disent qu'elle en a une !
Cliquer sur le bouton pour le tester directement.

déjà répondu post #77 (même constat )

 

[Dudu2]

Trouvé la solution...Enfin je pense !
Dans TOUS les cas, quelle que soit la méthode, il faut faire un .SetFocus préalable sur la ListBox pour les USerForms.
Et probablement un .Activate pour les ActiveX.

    'Mandatory to avoid a potential wrong result
    If TypeOf ListBox.Parent Is Worksheet Then
        ListBox.Activate
    Else
        ListBox.SetFocus
    End If

 

[Dudu2]

En conséquence j'ai modifié le fichier du Post #75 qui fait un HitTest mais sans UIAutomation en incluant cette fois le petit code ci-dessus.

Edit:

@Dudu2 je l'ai testé ton fichier déjà
ca fonctionne et je t'ai dis en post #78 que les deux méthodes faisaient le même chose

Oui mais avec le HitTest on se débarrasse de cette fonction AccessibleObjectFromPoint() dont je ne maîtrise pas bien les déclarations en VBA7 et non-VBA7 et peut-être en Win64 et non-Win64 (le Currency ne me plait guère) ni même l'utilisation. On ne trouve pas d'exemple de déclaration complète de cette fonction sur Internet.

 

[jurassic pork]

En conséquence j'ai modifié le fichier du Post #75 qui fait un HitTest mais sans UIAutomation en incluant cette fois le petit code ci-dessus.

La propriété SpécialEffect a l'air aussi davoir de l'influence sur la précision du HitTest. Mettre cette propriété à fmSpecialEffectFlat pour le maximum de précision. Avec ta modif du post #89 c'est OK pour le classeur du post #87