teste de position userform

pierrejean

XLDnaute Barbatruc

• 25 Mai 2017

• #2

bonjour patricktoulon
W10 excel 2010 coin supérieur gauche en B3

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 25 Mai 2017

• #3

Hello
W10.....Xl 2007

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Mai 2017

• #4

re
merci Messieurs
pierrejean donc W10 excel 2010 c'est bon
jacky67 ok il faut donc que trouve pourquoi j'ai ce petit ecart essaie en supprimant + ((plus / 2) / z))
car en effet les dimention cadre sont enregistré avec pour 2007 pour 2010 et plus c'est le shell qui s'en charge et comme c'est W10 tu n'a donc pas le cadre autour du userform ,ce qui explique cet ecart
esperant ton retour merci d'avance

 

Dernière édition: 25 Mai 2017

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 25 Mai 2017

• #5

patricktoulon à dit:

re
merci Messieurs
pierrejean donc W10 excel 2010 c'est bon
jacky67 ok il faut donc que trouve pourquoi j'ai ce petit ecart essaie en supprimant + ((plus / 2) / z))
car en effet les dimention cadre sont enregistré avec pour 2007 pour 2010 et plus c'est le shell qui s'en charge et comme c'est W10 tu n'a donc pas le cadre autour du userform ,ce qui explique cet ecart
esperant ton retour merci d'avance

Cliquez pour agrandir...

Avec
.Left = (L1 + [B3].Left) * z
.Top = (R1 + [B3].Top) * z



Bonne nuit

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Mai 2017

• #6

ok donc pour le left tu fais pareil (suppression de j'ajout plus) et c'est bon c'est ca ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Mai 2017

• #7

nickel je te remercie beaucoup

il faut que je trouve le moyen de faire cette exception dans le code
si W10 et 2007 pas de "plus"

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Mai 2017

• #8

Bonjour à tous


Merci beaucoup Patrick pour ce code que je recherche depuis longtemps. cela fonctionne bien sur Win 7 et Excel 2010, il se positionne en B3.

Sinon, je l'ai adapté pour qu'il se positionne à droite de la cellule, ce qui m'intéresse ici.

Sub Test_USF_Aligne_Sur_Cellule()
Dim pppx#, plus#, z#
With ActiveWindow.ActivePane
pppx = (.PointsToScreenPixelsX(ActiveSheet.Range(ActiveCell.Address).Width) - .PointsToScreenPixelsX(0)) / ActiveSheet.Range(ActiveCell.Address).Width
L1 = (.PointsToScreenPixelsX(Range(ActiveCell.Address).Left) / pppx)
R1 = (.PointsToScreenPixelsY(Range(ActiveCell.Address).Top) / pppx)
End With
z = (ActiveWindow.Zoom / 100)
With UserForm1
.Show 0
plus = .Width - .InsideWidth
.Left = (L1 + [B2].Left + (plus - 10 / z)) * z + 20
.Top = (R1 + [A1].Top + ((plus - 150 / 2) / z)) * z
End With
End Sub

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 26 Mai 2017

• #9

Bonjour,

J'utilise ce code pour placer l'usf à droite de la cellule active :

VB:

Private Sub UserForm_Initialize()
Dim wsh As Worksheet  'Feuille
Dim cel As Range  'Cellule
Dim Tif As Single  'Top interieur fenêre
Dim Lif As Single  'Left interieur fenêre
Dim fzF As Single  'Facteur de zoom fenêtre
Dim dTs As Single  'Décalage Top du au scroll
Dim dLs As Single  'Décalage Left du au scroll
  ' Déterminer la position top et left du haut droit des volets de la fenêtre
  Set wsh = ActiveSheet
  ' - zoom et décalage dû au scroll
  With ActiveWindow
  fzF = .zoom / 100
  dTs = wsh.Rows(.SplitRow + 1).Top - wsh.Rows(.ScrollRow).Top
  dLs = wsh.Columns(.SplitColumn + 1).Left - wsh.Columns(.ScrollColumn).Left
  End With
  ' - prise en compte des options d'affichage
  With Application
  Tif = .Top + 25.5 + 18  '+ barre de titre + menus
  If .CommandBars.Item("Ribbon").Height > 100 Then Tif = Tif + 68.25  '+ ruban (non masqué)
  If .DisplayFormulaBar = True Then Tif = Tif + 20.25  '+ barre de formule
  If ActiveWindow.DisplayHeadings = True Then Tif = Tif + 15 * fzF  '+ titres colonnes
  Lif = .Left - 1.5
  If ActiveWindow.DisplayHeadings = True Then Lif = Lif + 22 * fzF  '+ titres lignes
  End With
  ' Positionner le formulaire
  Set cel = ActiveCell
  Me.StartUpPosition = 0
  Me.Top = Tif + (dTs + cel.Top) * fzF
  Me.Left = Lif + (dLs + cel.Offset(0, 1).Left) * fzF + 12
End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mai 2017

• #10

bonjoir MJ13 drole d'adaptation
pour le mettre a droite d'une ccllule il te suffisait de prendre la cellule cible .offset(0,1).left
et les +10 et compagnie ça ne marchera que sur ton pc essaie le sur un autre pc tu verra
merci pour le retour
mon but est justement de trouver le moyen de ne pas mettre de numérique en dur dans le code a fin que cela sot universel

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mai 2017

• #11

patrice 33740 je vais étudier ton code merci

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 26 Mai 2017

• #12

Bonjour,

« et les +10 et compagnie ça ne marchera que sur ton pc »
C'est pas si simple que ça ! Tout dépend de ce qu'on veut faire.
Par exemple ...- 10 / z)) * z + 20 c'est pareil que ...)+30 et là, ça ne tient pas compte du facteur de zoom
Idem pour ...- 150 / 2) / z)) * z qui donne ...) - 75

Par contre; par exemple dans mon code,
Tif = .Top + 25.5 + 18
25,5 est la taille de la barre de titre et 18 celle de la barre des menus, dans les 2 cas avec un facteur de 100%, elles ne varient pas d'un ordinateur à l'autre (tout au moins proportionnellement).
Par contre elles varient avec le facteur de zoom

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Mai 2017

• #13

Bonjour à tous

@Patrick: En fait ton code que j'ai adapté, je l'ai fait un peu par hasard, en changeant les paramètres et cela a l'air de fonctionner quelque soit le zoom. Après il faut adapter les paramètres en fonction de la position recherchée.

Mais jusqu'ici, j'avais trouvé un code de Frédéric Sigonneau mais qui n'était pas adapté au zoom dans la feuille.

@Patrice: Merci aussi pour ton code qui a l'air de fonctionner.

 

Dernière édition: 27 Mai 2017

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 27 Mai 2017

• #14

Bien le bonjour à tous !

voir ce petit exemple (extrait de mes classeurs)

EDIT: voir ici:
https://www.excel-downloads.com/threads/teste-de-position-userform.20017772/page-3#post-20131997

 

Dernière édition: 11 Juin 2017

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Mai 2017

• #15

bonsoir a tous
@Patrice 25.5 et 18 c'est faux chez moi c'est 22
d'ailleurs avec ton exemple le userform tombe au milieu de la cellule a droite de celle qui est active
tu ne prends pas en compte de DPI

 

Vote positif 0 Vote négatif