bonjour,
avec le code suivant dans "UsrForm_Initialize" :
Je n'obtiens pas le bon positionnement de la UserForm sur les feuilles de calcul ayant des volets : il y a un décalage.
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
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
Partager