Discussion :

[nero7]

Bonjour le forum
j'ai un probleme concernant les dimensions de l usf. J'ai créé un, et je veux l'ajuster pour qu'il soit calé exactement avec la partie blanche de la feuille (feuille de calcul).
J'ai essayé avec le code suivant mais ça marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
UserForm1.Top = Cells.Top
UserForm1.Left = Cells.Left
UserForm1.Height = Windows(1).Height
UserForm1.Width = Windows(1).Width
 
End Sub

j'ai remplacé "windows(1)" par " Application" mais cela donne un plein ecran et c'est pas ça ce que je veux.

Cordialement.

[LeForestier]

Bonjour et bienvenue sur le forum,
Essaye ce code, il ne tient pas compte des bordures mais ça tu peu adapter si nécessaire,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub PositionUF()
Dim X, Y, L, H
Dim X1, Y1, L1, H1
Dim H2
    With ActiveWindow
        .WindowState = xlNormal
        Y = .Top
        X = .Left
        H = .Height
        L = .Width
    End With
    H1 = Application.UsableHeight
    L1 = Application.UsableWidth
    Y1 = Application.Top
    X1 = Application.Left
    H2 = Application.Height
    Me.Move X + X1, (H2 - H1) + Y + Y1, L, H
End Sub

A+