Autres calcul de position d’écart left top qui déraille

[patricktoulon]

Bonjour a tous
pour calendar je suis en train de faire un patch qui me permettra de respecter les positions en forcant une marge left et top

sauf que dans l'exemple qui suit ( 2 userforms simple) le calcul ne fait pas la différence en - ou +

le calcul additionne tout le temps ??????????????????

1. ouvrez l'userform ,cliquez sur le bouton rouge
2. le userform2 s'affiche replacez le en coin haut et gauche de B3
3. et recliquez sur le bouton rouge du uf1

j'ai tout essayé même avec sgn rien y fait c'est un truc de fou

 

[fanch55]

Salut Patrick,
En XL2019, tout semble fonctionner comme tu l'attends .

 

[patricktoulon]

re
bonjour @fanch55
ben non puisque les textbox reçoivent la nouvelle position hors c'est la différence entre la première position et la 2d qui devrait atterrir dans les textboxs
je dirais même pire il additionne au lieu de soustraire selon le cas
si j'ai mon uf2 a 123 de left et que le repositionne à 128 de left je devrait avoir dans ddecx 5
si j'ai mon uf2 a 128 de left et que le repositionne à 123 de left je devrait avoir dans ddecx -5
hors dans les deux sens il additionne j'obtiens 133

 

[Eric C]

Bonjour Patrick, fanch55, le forum

Pour moi, cela fonctionne également - XL 2010 - 32 bits

@+ Eric c

 

[fanch55]

re
bonjour @fanch55
ben non puisque les textbox reçoivent la nouvelle position hors c'est la différence entre la première position et la 2d qui devrait atterrir dans les textboxs
je dirais même pire il additionne au lieu de soustraire selon le cas
si j'ai mon uf2 a 123 de left et que le repositionne à 128 de left je devrait avoir dans ddecx 5
si j'ai mon uf2 a 128 de left et que le repositionne à 123 de left je devrait avoir dans ddecx -5
hors dans les deux sens il additionne j'obtiens 133

Si je comprend bien, les textbox doivent avoir la différence entre les deux dernières positions ?

 

[patricktoulon]

@fanch55 oui c'est ça
j'ai bien essayé sgn mais rien n'y fait

oper = Val(Sgn(uf2.Left - CDbl(ddecx)))
           'ddecy = uf2.Top - CDbl(ddecy)
            ddecx = Val(CDbl(ddecx)) + (oper * uf2.Left)

 

[Usine à gaz]

Bonjour Patrick, à tous
Chez moi office365 :

 

[fanch55]

Si je comprend bien, les textbox doivent avoir la différence entre les deux dernières positions ?

Je t'avoue que je ne comprend pas pourquoi tu remets les variables à Zéro ?
Private Sub showW_Click()

ddecx = 0: ddecy = 0

 

[patricktoulon]

re
c'est pas des variables c'est les textboxs

 

[Dranreb]

Bonjour.
Vous devriez elever les - CDbl(ddecy) et - CDbl(ddecx) dans la clause Else de votre If. Ils ne servent à rien puisque vous faites au départ ddecx = 0: ddecy = 0

 

[fanch55]

re
c'est pas des variables c'est les textboxs

ok, mais elles sont remises à zéro à chaque fois avant de faire les calculs ?
C'est donc normal qu'on y retrouve toujours les positions de l'Usf ...

 

[patricktoulon]

c'est bon @fanch55 avait raison la remise a zero n’était pas au bon endroit
et je pleure misère depuis une heure
maintenant effectivement selon si en positif ou negatif il faut soustraire ou additionner me reste a aménager le sgn
j'ai essayé ça mais non ca marche pas dans tout les sens

Private Sub showW_Click()
     With uf2
        Dim L1#, T1#

        If Not .Visible Then
          ddecx = 0: ddecy = 0 '1er lancement
     .StartUpPosition = 0
            With ActiveWindow
                PtoPx = (.ActivePane.PointsToScreenPixelsY(72) - .ActivePane.PointsToScreenPixelsY(0)) / 72    'coeff point to pixel
                Z = .Zoom / 100
                L1 = (.ActivePane.PointsToScreenPixelsX(Int([b3].Left)) / PtoPx) * Z    'placement partie mobile
                T1 = .ActivePane.PointsToScreenPixelsY(Int([b3].Top)) / PtoPx * Z
            End With
            .Left = L1
            .Top = T1
            .Show 0
            ddecx = L1
            ddecy = T1
        Else
               
              operx = Sgn(uf2.Left - CDbl(ddecx))
              opery = Sgn(uf2.Top - CDbl(ddecy))
            
            ddecy = (opery * uf2.Top) - CDbl(ddecy)
            ddecx = (operx * uf2.Left) - CDbl(ddecx)
        End If
    End With
End Sub

 

[Dranreb]

N'mporte quoi … soustraire un négatif revient à ajouter sa valeur absolue. Alors ça devrait toujours être ajouter, qui revient à soustraire sa valeur absolue si c'est négatif !

 

[patricktoulon]

oui je sais ça @Dranreb
j'aurai voulu faire avec sgn mais je n'ai pas l'inversion
je fait facon neuneu

Private Sub showW_Click()
     With uf2
        Dim L1#, T1#

        If Not .Visible Then
          ddecx = 0: ddecy = 0 '1er lancement
     .StartUpPosition = 0
            With ActiveWindow
                PtoPx = (.ActivePane.PointsToScreenPixelsY(72) - .ActivePane.PointsToScreenPixelsY(0)) / 72    'coeff point to pixel
                Z = .Zoom / 100
                L1 = (.ActivePane.PointsToScreenPixelsX(Int([b3].Left)) / PtoPx) * Z    'placement partie mobile
                T1 = .ActivePane.PointsToScreenPixelsY(Int([b3].Top)) / PtoPx * Z
            End With
            .Left = L1
            .Top = T1
            .Show 0
            ddecx = L1
            ddecy = T1
        Else
              
              'operx = Sgn(uf2.Left - CDbl(ddecx))
              'opery = Sgn(uf2.Top - CDbl(ddecy))
            
            'ddecy = uf2.Top + (opery * CDbl(ddecy))
            'ddecx = uf2.Left + (operx * CDbl(ddecx))
        
        If uf2.Left < CDbl(ddecx) Then operx = "-"
         ddecx = operx & Abs(uf2.Left - CDbl(ddecx))
        If uf2.Top < CDbl(ddecy) Then opery = "-"
        ddecy = opery & Abs(uf2.Top - CDbl(ddecy))
      
        
        
        
        End If
    End With
End Sub

 

[patricktoulon]

allez on garde comme ça
merci a tous

Private Sub showW_Click()
    With uf2
        Dim L1#, T1#, OperX&, OperY&
        If Not .Visible Then
            ddecx = 0: ddecy = 0    '1er lancement
            .StartUpPosition = 0
            With ActiveWindow
                PtoPx = (.ActivePane.PointsToScreenPixelsY(72) - .ActivePane.PointsToScreenPixelsY(0)) / 72    'coeff point to pixel
                Z = .Zoom / 100
                L1 = (.ActivePane.PointsToScreenPixelsX(Int([b3].Left)) / PtoPx) * Z    'placement partie mobile
                T1 = .ActivePane.PointsToScreenPixelsY(Int([b3].Top)) / PtoPx * Z
            End With
            .Left = L1
            .Top = T1
            .Show 0
            ddecx = L1
            ddecy = T1
        Else
            OperX = Sgn(uf2.Left - CDbl(ddecx)): ddecx = OperX * (Abs(uf2.Left - CDbl(ddecx)))
            OperY = Sgn(uf2.Top - CDbl(ddecy)): ddecy = OperY * (Abs(uf2.Top - CDbl(ddecy)))
        End If
    End With
End Sub