Salut,
dans la zonz code de la feuille ajouter c'est deux lignes
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Seulement vous les collez dans zon généraral du code feuille

En fait, ce n'est pas vraiment le Height qui pose problème.
Si je redimentionne la hauteur puis la largeur, la hauteur sera changée mais pas la largeur.
Si je redimentionne la largeur puis la hauteur, la largeur sera changée mais pas la hauteur.
Donc à chaque fois le premier marche mais pas le second...
Aides-toi et le ciel t'aidera...

Je vous donne un exemple pour simplifier trop de discution
tu crées un projet puis t'insère 3 boutton de command
et tu colles cequi suit dans la zone code de la feuille:

rivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Command2_Click()
Dim hr&, dl&
Dim usew&, useh&
usew& = Command1.Width / Screen.TwipsPerPixelX
useh& = Command1.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Command1.hWnd, hr, True)
End Sub
Private Sub Command3_Click()
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub