bonjour,

avec le code suivant dans "UsrForm_Initialize" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    Dim x, y
    x = GetDeviceCaps(GetDC(0), 88) / 72
    y = GetDeviceCaps(GetDC(0), 90) / 72
    With Me
        .StartUpPosition = 0
        .Left = (ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * x) * 1 / x) + ActiveCell.Width
        .Top = (ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y) + ActiveCell.Height
    End With
Je n'obtiens pas le bon positionnement de la UserForm sur les feuilles de calcul ayant des volets : il y a un décalage.

Mon problème est :
  • Soit comment déterminer le décalage :
    • largeur des colonnes figées
    • hauteur des lignes figées
  • Soit comment déterminer la position du volet en nombre de cellules ?
  • Soit connaitre l'adresse de la cellule dans le coin du volet


Avez-vous une fonction ou une instruction pour résoudre mom problème ?

Merci.

ES