XL 2016 VBA Challenge - Positionner un UserForm sur Objet feuille dans une feuille fractionnée

patricktoulon

XLDnaute Barbatruc

• 12 Mars 2021

• #61

@Dudu2 c'est la seule chose qui n'est pas accessible il faut que la pane soit activée
@Dranreb

Je ne vais quand même pas ajouter un argument pour indiquer dans quel Pane on le veut.
Ce serait trop bizarre de sélectionner une cellule dans l'un de ceux où la plage est visible tout en voulant quand même l'afficher dans un autre où elle y est aussi

Cliquez pour agrandir...

ben pourtant il faudrait si tant est que cela soit possible de designer une pane sans quelle soit active
tout du moins par l'identification du bouton cliqué
j'ai tester monbouton.topleftcell.select pour activer la pane et avant de lancer le positionnement mais ça ne marche pas
je ne pense pas que ca soit accessible sauf en dur decidé

peut etre avec getcrsorpos et comparaison avec range width en pixel de pane 1+/-les scrolls et comparaison avec la position du curseur lors du click sur le bouton
si x cursor >et y< c'est pane2
si x > et y> c'est pane4
si < et y> alors pane 3
si < et < alors pane 1
c'est la seule solution que je vois
je vais voir ça plus tard là je dois partir Dentiste

 

Dernière édition: 12 Mars 2021

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2021

• #62

À mon avis c'est suffisant pour mon calendrier s'il cherche déjà dans les autres Pane seulement si la plage n'est pas visible dans celui actif. Mais si c'est indispensable dans votre cas ça doit pouvoir s'ajouter.
Voir si explorer la boucle à l'envers arrangerait les choses
For P = Wnw.Panes.Count To 1 Step -1

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2021

• #63

Bon, c'est bien ça, il faut utiliser le Pane dans lequel se trouve l'objet cible. Comme dans le code de @Danreb.
Par contre je ne sais pas (encore) comment déterminer si l'objet est dans le VisibleRange du Pane.
Si l'objet est un Range, Intersect() fait l'affaire. Si c'est autre chose (ex. TextBox) faut trouver un autre moyen.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2021

• #64

VB:

If Not Intersect(Pan.VisibleRange, Obj) Is Nothing Then

Si c'est un contrôle ActiveX je suppose que ça entre dans le cadre du 1er cas If TypeOf Obj Is MSForms.Control
Si c'est un Shape on doit bien pouvoir au moins utiliser ses TopLeftCell et RightBottomCell

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2021

• #65

En effet, pour les Shapes, TopLeftCell (et éventuellement RightBottomCell) font l'affaire.
Pour un ActiveX en feuille, c'est incompatibilité de type dans l'Intersect évidemment.
Pour être général, il va falloir localiser le Top Left de l'objet dans les Panes.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2021

• #66

Non mais je parlais d'utiliser l'autre séquence, complètement différente, où il n'y a pas d'Intersect
Pas sûr que ça marche par contre. Plutôt voir si on peut isoler et utiliser le Shape qui le porte.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2021

• #67

Ok mais je vois pas trop comment faire car ici le Obj.Parent est la feuille.
Je ne vois rien qui permette de relier l'objet à son Pane.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2021

• #68

Il faut d'abord identifier ce que c'est. Si c'est un OLEObject il a aussi des propriétés TopLeftCell et BottomRightCell

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2021

• #69

Sinon, une petite recherche du Top Left de l'objet qui s'applique à tous les types d'objets...

VB:

Sub a()
    Dim Obj As Object
    Dim Pan As Pane
    Dim i As Integer

    Set Obj = ActiveSheet.TextBox1

    For i = 1 To ActiveWindow.Panes.Count
        Set Pan = ActiveWindow.Panes(i)
        If Obj.Left >= Pan.VisibleRange.Cells(1, 1).Left _
        And Obj.Left <= Pan.VisibleRange.Cells(1, Pan.VisibleRange.Columns.Count).Left _
        And Obj.Top >= Pan.VisibleRange.Cells(1, 1).Top
        And Obj.Top <= Pan.VisibleRange.Cells(Pan.VisibleRange.Rows.Count, 1).Top Then Exit For
    Next i

    If i <= ActiveWindow.Panes.Count Then MsgBox "Objet est dans le Range visible du Pane " & i
End Sub

Peut-être ajouter la largeur et la hauteur de l'objet et des des limites du VisibleRange pour être plus tolérant ?
Dans ce cas le test est:

Code:

        If Obj.Left >= Pan.VisibleRange.Cells(1, 1).Left _
        And Obj.Left + Obj.Width <= Pan.VisibleRange.Cells(1, Pan.VisibleRange.Columns.Count).Left _
                      + Pan.VisibleRange.Cells(1, Pan.VisibleRange.Columns.Count).Width _
        And Obj.Top + Obj.Height >= Pan.VisibleRange.Cells(1, 1).Top _
        And Obj.Top <= Pan.VisibleRange.Cells(Pan.VisibleRange.Rows.Count, 1).Top _
                     + Pan.VisibleRange.Cells(Pan.VisibleRange.Rows.Count, 1).Height Then Exit For

 

Dernière édition: 12 Mars 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2021

• #70

Voilà, fort de ces conclusions, j'ai republié le code et le fichier en Post #31.
Maintenant, faut que j'y intègre la position par rapport à l'objet ActiveWindow à des objets de UserForm comme vous l'avez fait avant moi.

Dans un UserForm, le Parent de l'objet qui sert de référence absolue au positionnement relatif de l'objet peut être ça ? (pris dans vos codes)
- le UserForm
- un MSForms.Page d'un objet MSForms.MultiPage
- un MSForms.Frame

@Danreb, dans le code je vois des calculs savants impliquant des constantes (0.9, -0.9, +6, -6).
Je vais lire tes commentaires pour comprendre

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2021

• #71

Oh, ce ne sont que des règles de positionnement pour que ce ne soit pas complètement collé, d'une convention pour faire coincider les bords supérieurs etc., ça ne fait plus partie du calcul de repérage de l'emplacement.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Mars 2021

• #72

Du positionnement d'un UserForm sur un Objet de la feuille, je suis passé au positionnement d'un Objet sur un autre Objet (dans la mesure où cela fait sens évidemment).

Quelques petites difficultés à trouver les positionnements, par exemple pour le Page / MultiPage dont les marges se calculent en combinant les propriétés de ces 2 Objets.

Edit: 16h52 - Petite correction de commentaire.

 

Pièces jointes

• VBA Positionner un Objet sur un Objet.xlsm

  74.5 KB · Affichages: 20

Dernière édition: 13 Mars 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Mars 2021

• #73

re
bonjour @Dudu2 de quelle marge tu parles
c'est des marges visibles ET!! invisibles qui concerne les frames,listbox,multipage et tout autre control possédant un handle que tu parles ????

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Mars 2021

• #74

Bonjour @patricktoulon,
Je parle des marges des Parents des Controls.
1 - Les marges gauche et haute du UserForm (j'ai enfin compris comment les calculer).
2.1 - Les marges gauche et haute d'un Frame
2.2 - les marges gauche et haute d'une Page / Multipage
Ces marges sont à ajouter pour trouver la position du Control en coordonnées absolues dans la fenêtre

Exemple: Position Left absolue en Points d'un Control en Frame d'un UserForm:
Left du UserForm +
Marge gauche UserForm +
Left Frame +
Marge gauche du Frame +
Left du Control

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Mars 2021

• #75

D'ailleurs je viens de modifier le fichier (à reprendre) pour identifier spécifiquement les bordures gauche et haute du UserForm en variables dédiées pour plus de clarté.

 

Vote positif 0 Vote négatif