Position de l'userform tjs sur la cellule doublecliquée

[Evelynetfrancois]

bonsoir tout le monde

j essaye de faire une bricole pour etre plus convivial
j aimerais que l'usf se positionne (s'ouvre)à l endroit ou je doubleclic
j ai donc fait une feuille demo(jointe) ou tout semble marcher à merveille.....
tant que je ne scroll pas la feuille !
si je viens à scroller la feuille ,alors là c est le bazard
Auriez vous une combine
merci d avance pour tout
E et F

 

[Dranreb]

Re : Position de l'userform tjs sur la cellule doublecliquée

Bonjour.
Quelque chose dans ce gout là:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Y As Double
Dim X As Double
Y = Target.Top + Me.Rows(3).Top - Me.Rows(ActiveWindow.ScrollRow).Top
X = Target.Left
Range("A1").Value = X
Range("A2").Value = Y
UserForm1.Show
End Sub

Mais il ne devrait pas être nécessaire de passer par des cellules pour noter la position.

À +

 

[MJ13]

Re : Position de l'userform tjs sur la cellule doublecliquée

Bonjour EF, Dranreb

Tu peux t'inspirer de ce fichier.

 

[Evelynetfrancois]

Re : Position de l'userform tjs sur la cellule doublecliquée

Merci mj13 et dranreb
Tout ceci me convient vraiment bien, comme d'habitude..
La version de danreb me parait beaucoup plus accessible pour moi
Disons que je la comprends ......
Je vais maintenant essayer de l'intégrer au véritable classeur

Encore un très grand MERCI à vous deux
Bonne soirée .........
E et F

 

[MJ13]

Re : Position de l'userform tjs sur la cellule doublecliquée

Re

Il faudra que je teste la version de Dranreb et si cela fonctionne, alors, cela fait longtemps que je cherche ce type de code .

Sinon, EF, pense à nous donner ta solution .

 

[Evelynetfrancois]

Re : Position de l'userform tjs sur la cellule doublecliquée

donc chez moi ca donne


Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Y As Double
Dim X As Double
If Not Application.Intersect(Target, Range("c8:c83")) Is Nothing Then 'pour limiter la zone de dbclics
Y = Target.Top + Me.Rows(3).Top - Me.Rows(ActiveWindow.ScrollRow).Top
X = Target.Left
Sheets("parametres").Range("p1").Value = X
Sheets("parametres").Range("p2").Value = Y
Materiel.Show
End If

puis a l'init je vais rechercher les valeurs left et top


Private Sub UserForm_Initialize()
Materiel.Left = Sheets("parametres").Range("p1").Value - 50 'j ai rajouté 50 pour bien centrer sur la cell
Materiel.Top = Sheets("parametres").Range("p2").Value + 50 'j ai rajouté 50 pour bien centrer sur la cell
End Sub
et tout fonctionne impec !! encore merci Bernard
E et F