récupérer la position exacte d'une cellule (Avec les API)

Bonjour,

Pour pouvoir positionner exactement un USF particulier,je désire récupérer la position exacte de la cellule (La cellule active par exemple) quelles que soit les options en vigueur à l'instant T.

Je sais le faire par rapport à un autre USF, mais je voudrais aussi pouvoir le faire par rapport à la position exacte d'une cellule.
Je sais le faire également sans API, mais dans ce cas ce n'est possible que s'il n'y a pas de scrolling, sinon l'affichage passe en dehors de l'écran.
C'est la raison pour laquelle il me semble nécessaire de passer par les API.

Hum... Il y a aussi un problème de zoom, là ce serait la cerise sur le gâteau ! Mébon l'essentiel serait déjà de gérer le scroll.

Merci.

Bonjour galopin01,

Avec les deux propriétés du code ci-dessous tu devrais t'en sortir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test()   Dim rg As Range Set rg = ActiveCell   MsgBox "Position par rapoprt a l'en-tete de colonne " & rg.Top MsgBox "Position par rapoprt a l'en-tete de ligne " & rg.Left   'Positionne la cellule en haut a gauche ActiveWindow.ScrollRow = rg.Row ActiveWindow.ScrollColumn = rg.Column   End Sub

---

Bonjour

mais non!!!

colle ca dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&) Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)   Sub position_usf(usf, cel) ' 1 inch = 72 points for usually 96 or 120 dpi Dim x#, y#, w#, h# x = GetDeviceCaps(GetDC(0), 88) / 72 y = GetDeviceCaps(GetDC(0), 90) / 72 With usf .StartUpPosition = 0 .Left = (ActiveWindow.PointsToScreenPixelsX(cel.Left * x) * 1 / x) .Top = (ActiveWindow.PointsToScreenPixelsY(cel.Top * y) * 1 / y) End With ActiveWindow.ScrollRow = cel.Row ActiveWindow.ScrollColumn = cel.Column End Sub

---

ensuite dans le activate du userform par exemple
tu met ceci si tu veux que le userform se mette sur la cellule active

Code:

---

position_usf Me, ActiveCell

---

sinon si tu veux gérer l'affichage en dehors du module userform
tu met dans une sub dans le meme module standard par exemple avec un userform nommé "userform1"

Code:

---

1 2 3

sub position usf() position_usf userform1, cells(45,18) end sub

---

l'userform1 se positionnera sur la cellule ligne 45,colonne 18 le scroll sera automatique
;)

Bonjour,
[Edit] Pas vu le message de patricktoulon... Je vais examiner sa proposition et je reviendrai plus tard !


anthonysansh :
Je connaissais effectivement le ScrollRow... Et j'y suis effectivement arrivé avec un codage un peu bourrin :
Je pense que ce serait plus clean avec les API mébon... en attendant ça dépanne !

Merci encore.

Je laisse néanmoins le post ouvert car bien que la question revienne souvent elle n'a jamais été résolue avec les API, mais toujours avec des contours tirés par les cheveux...

Le code actuel (Fonctionne sur colonne J et gère le scroll descendant à partir de la ligne 10)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim i%, j%, k%, iR%, x&, y&, param$ If Target.Count = 1 And Target.Column = 10 Then Cancel = True iR = Application.CommandBars.Item("Ribbon").Height x = Target.Left y = Target.Top If Target.Row > 10 Then ActiveWindow.ScrollRow = Target.Row - 10 y = y - (Target.Row - 11) * Target.Height Else ActiveWindow.ScrollRow = 1 End If i = iR - IIf(iR < 100, 14, 36) j = IIf(Application.DisplayFormulaBar = True, 20, 0) k = IIf(ActiveWindow.DisplayHeadings = True, 15, 0) param = Target.Height + i + j + k + y param = param & " " & Target.Left + k + 1 / 3 * k   i = UserForm1.ShowUSF(param) End If End Sub

---

Et le code du UserForm :

Code:

---

1 2 3 4 5 6 7

Public Function ShowUSF(Var$) Dim T T = Split(Var) Me.Top = T(0) Me.Left = T(1) Me.Show End Function

---

A+

bonjour patricktoulon,
Ok c'est bon, Je pense pouvoir adapter.

Superbe !

Merci.
Bonne soirée.