XL 2016 Position d'un formulaire sur une feuille de calcul

[JpTac]

Bonjour à tous,

j'aimerai pouvoir fixer à un endroit précis de ma feuille de calcul un formulaire lorsque je l'ouvre.
Dans la fenêtre de propriété du formulaire j'ai du mal à trouver cette instruction.
Votre aide me serai très utile.
Cordialement

 

[Etoto]

Bonjour et bienvenue sur XLD,

Houlà, il nous faudrait plus d'info et aussi si possible le fichier sans les données confidentielles.

Merci d'avance

 

[Dranreb]

Bonjour.
Mon calendrier est équipé d'un dispositif de positionnement.

 

[Etoto]

Bonjour.
Mon calendrier est équipé d'un dispositif de positionnement.

J'aime beaucoup ton fichier 👍 merci.

 

[JpTac]

Merci pour ces réponses rapides.
Je viens de lire le programme du fichier joint ( MonCalandrier ) , ce qui me permet d'avancer dans ma réalisation, je vais tester.

 

[Dudu2]

Bonjour,

Au cas où... Une fonction pour positionner un UserForm par rapport à un objet de la feuille (Range, Contrôle de formulaire, Contrôle ActiveX, Shape, Image, ...).

 

[patricktoulon]

bonjour
mon calendrier aussi possède cette propriété

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

www.excel-downloads.com

sinon vous avez un topic dans les ressources diverses dédié juste a cela

placer un userform en lieu et place d'un range

pour placer un userform au niveau d'une cellule il y plusieurs choses a prendre en compte la position de l'application les scrolls vertical et horizontal les ligne éventuellement figées qui faussent les calculs le fractionnement de fenêtre qui...

www.excel-downloads.com

 

[patricktoulon]

je l'avais meme sorti de l'userform en fonction

Option Explicit

Function GetScreenLeftTopCell(obj As Range, Optional posLeft As Long = 0, Optional posTop As Long = 0)
    Dim Z#, EcX#, L1#, T1#, C#, R#, Vr As Range, Hx#, Wx#, Ok As Boolean, Op&, PtoPx#, I&
    With ActiveWindow
        PtoPx = (.ActivePane.PointsToScreenPixelsX(72) - .ActivePane.PointsToScreenPixelsX(0)) / 72    'coeff point to pixel
        Op = Int(Val(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))    'number version system
        'exit si la cellule injecté n'est pas vible a l'ecran
        For I = 1 To .Panes.Count
            If Not Intersect(.Panes(I).VisibleRange, obj) Is Nothing Then Ok = True
        Next
        If Ok = False Then Beep: MsgBox " cette cellule n'est pas visible a l'ecran": Exit Function
        Z = (ActiveWindow.Zoom / 100): Set Vr = .VisibleRange    'Coeff zoom ,  rangevisible partie mobile
        EcX = 4 And Op = 6 And Int(Val(Application.Version)) < 16  'ecart cadre grosse bordures 2007 et Windows 7
        'placement partie mobile
        L1 = (.ActivePane.PointsToScreenPixelsX(Int(obj.Left)) / PtoPx) * Z + EcX
        T1 = .ActivePane.PointsToScreenPixelsY(Int(obj.Top)) / PtoPx * Z + EcX
        'limite splitrow et splitcolumn
        With .Panes(1).VisibleRange: C = .Cells(.Cells.Count).Column: R = .Cells(.Cells.Count).Row: End With
        If .SplitRow > 0 Then  'placement  si dans le splitrow
            If obj.Row < R + 1 And .ScrollRow > R Then T1 = ((.ActivePane.PointsToScreenPixelsY(Vr.Cells(1).Top) / PtoPx) * Z) - (Range(obj, Cells(R, 1)).Height * Z) + EcX
        End If
        If .SplitColumn > 0 Then    'placement  si dans le splitcolumn
            If obj.Column < C + 1 And .ScrollColumn > C Then L1 = ((.ActivePane.PointsToScreenPixelsX(Vr.Cells(1).Left) / PtoPx) * Z) - (Range(obj, Cells(1, C)).Width * Z) + EcX
        End If
    End With
    'option de placement :
    Wx = (obj.Width / 2) * Z
    Hx = (obj.Height / 2) * Z
    L1 = L1 + (Wx * posLeft)
    T1 = T1 + (Hx * posTop)
    GetScreenLeftTopCell = Array(L1, T1)
End Function

pour tester

Sub test()
    Dim pos
    'possibilité d'argumentation pour les positions sur la cellule
    'pos = GetScreenLeftTopCell([H15]) ' en plein sur la cellule
    'ou
    'pos = GetScreenLeftTopCell([H15], 1, 0)    ' à moitié verticalement dans la cellule
    'ou
    'pos = GetScreenLeftTopCell([H15], 0, 1)    ' à moitié horizontalement  dans la cellule
    'ou
    'pos = GetScreenLeftTopCell([H15], 1, 1)    ' à moitié horizontalement et verticalement dans la cellule
    'ou
    'pos = GetScreenLeftTopCell([H15], 0, 2) ' juste en dessous de la cellule
    'ou
    pos = GetScreenLeftTopCell([H15], 2, 0)    ' a droite de la cellule

    With UF1
        .Left = pos(0): .Top = pos(1)
        .Show
    End With
End Sub

😉

 

[Lyriss113]

Bonjour,

Au cas où... Une fonction pour positionner un UserForm par rapport à un objet de la feuille (Range, Contrôle de formulaire, Contrôle ActiveX, Shape, Image, ...).

Apres des heures de recherches, j'ai enfin trouve ce fichier. tu es le meilleur 🙂

 

[Dudu2]

@Lyriss113,
Tu as soit cette ressource:

VBA - Positionner un Objet par rapport à un autre Objet - Principal concerné... le UserForm

Le fichier à télécharger contient: Le Module_PositionObjectOnObject est à inclure dans le projet VBA. Il contient la fonction PositionObjectOnObject() dont les arguments sont décrits dans le code. Le Module_Test qui présente de nombreux...

excel-downloads.com

Soit ce fichier joint plus simple s'il ne s'agit que de positionner un UserForm sur un Objet de la feuille.