XL 2010 Faire apparaitre USF à l'endroit ou je clique

Dranreb

XLDnaute Barbatruc

• 4 Septembre 2016

• #16

Chez moi ça marche comme ça pour ce qui est du positionnement. Si les mots clés PtrSafe gênent, enlevez les.

J'ai ajouter la fermeture quand le curseur sort de l'UFm
J'ai du changer le cadrage pour qu'il y soit dedans au début.
J'ai enlevé les PtrSafe. Remettez les si ça ne marche pas sans eux chez vous.

 

Pièces jointes

• PositCreolia.xlsm

  23.7 KB · Affichages: 72

Dernière édition: 4 Septembre 2016

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 5 Septembre 2016

• #17

Bonsoir le forum,

Dranreb, sympa ce truc-là. Mais une fois l'UF apparent, si on veut le fermer, ça plante.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Septembre 2016

• #18

Oui, Magic_Doctor, je sais. J'ai pas voulu compliquer dans un premier temps, vu qu'il suffit d'en sortir le curseur pour qu'il se ferme.
Il faut écrire une UserForm_QueryClose qui met Cancel = True. Mais ça ne résoudrait probablement quand même pas tous les cas de figure…
Et surtout ça mettrait des bâtons dans les roues à Windows quand il voudra le décharger.
Cancel = Me.Visible puis Me.Hide serait dans doute un peu mieux si la boucle veille aussi à se terminer par Not Me.Visible
Enfin c'est compliqué, quoi…

 

Dernière édition: 5 Septembre 2016

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Septembre 2016

• #19

Comme ça ça ne plante plus et ça ne devrait pas gêner Windows :

VB:

Private Sub UserForm_Activate()
Dim Pt As POINTAPI, X As Double, Y As Double
ÇaTourne = True
Do While ÇaTourne: DoEvents
  GetCursorPos Pt: X = Pt.X * 3 / 4: Y = Pt.Y * 3 / 4
  If Not Me.Visible Or X < Me.Left Or X > Me.Left + Me.Width _
  Or Y < Me.Top Or Y > Me.Top + Me.Height Then ÇaTourne = False
  Loop
If ÀDécharger Then Unload Me Else Me.Hide
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = ÇaTourne: ÇaTourne = False: ÀDécharger = CloseMode >= vbFormCode
End Sub

En tête les variables globales suivantes :

VB:

Private ÇaTourne As Boolean, ÀDécharger As Boolean

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 5 Septembre 2016

• #20

Re,

Ça a l'air de bien marcher.
Trop compliqué pour que j'y fasse des modifications comme, par exemple, ne faire apparaître l'UF uniquement sur une aire donnée de la feuille. Ici, ce serait [A1, E17].

 

Pièces jointes

• PositCreolia (1).xlsm

  22.9 KB · Affichages: 58

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Septembre 2016

• #21

Bonjour.
Tout aussi simple à l'appel pour le positionnement exactement au milieu de cette aire:
USF1.Posit [A1:E17], 0, 0

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 5 Septembre 2016

• #22

re bonjour à tous je vais essayer cela de suite et vous tien informer un grand merci à vous

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 6 Septembre 2016

• #23

Si... à dit:

Salut

En voilà un problème, d'apparence simple 😳 !

édition : Jacky67, ton exemple nous montre des bouts de formulaire sur les bords (droit, bas)

Cliquez pour agrandir...

Bonjour Si
En trichant un peu 😀

 

Pièces jointes

• position_userform v2.xlsm

  47.5 KB · Affichages: 66

Vote positif 0 Vote négatif

F

farid

XLDnaute Occasionnel

• 26 Septembre 2020

• #24

Jacky67 à dit:

Oui, et l'explication est là
http://www.developpez.net/forums/d8...ba-excel/position-d-userform-rapport-cellule/
Re..
Une solution de Michel Pierron en pj

Cliquez pour agrandir...

Merci , super, nickel

 

Vote positif 0 Vote négatif