Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Userform Ovale

Userform Ovale

3 réponses
Avatar
Dom
Bonjour,

Je cherche a faire un Userform Ovale, j'ai bien telecharge un classeur avec
des demos,
mais je n'ai toujours pas compris comment faire cette Userform Ovale.

Si quelqu'un avec ce code, je le remercie d'avance.

Dom
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jf aubert
Salut Dom,

et si tu nous disais ce que tu as téléchargé ?

Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"Dom" a écrit dans le message de news:

Bonjour,

Je cherche a faire un Userform Ovale, j'ai bien telecharge un classeur
avec
des demos,
mais je n'ai toujours pas compris comment faire cette Userform Ovale.

Si quelqu'un avec ce code, je le remercie d'avance.

Dom




Avatar
Michel Pierron
Bonsoir Dom;
Dans le module UserForm:
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 Boolean) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long

' Fermeture par clic droit dans barre de titre
Private Sub UserForm_Initialize()
Dim hWnd As Long, e&, x&, y&
e = ((Me.Width - Me.InsideWidth) / 2) * 4 / 3
x = Me.InsideWidth * 4 / 3
y = (Me.Height - e) * 4 / 3
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowRgn hWnd, CreateEllipticRgn(e, e, x, y), True
End Sub

MP

"Dom" a écrit dans le message de
news:
Bonjour,

Je cherche a faire un Userform Ovale, j'ai bien telecharge un classeur
avec

des demos,
mais je n'ai toujours pas compris comment faire cette Userform Ovale.

Si quelqu'un avec ce code, je le remercie d'avance.

Dom




Avatar
Dom
Je remercie tout le monde de vos effort, l'Userform Ovale fonctionne super
bien.
Et je m'apercois encore que je suis tres loin des capacitées de certaines
personnes.
Mais je suis dans l'espoir d'y arrivé un jour.

Merci encore de vos effort.

Dom


"Michel Pierron" a écrit dans le message de
news:
Bonsoir Dom;
Dans le module UserForm:
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 Boolean) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long

' Fermeture par clic droit dans barre de titre
Private Sub UserForm_Initialize()
Dim hWnd As Long, e&, x&, y&
e = ((Me.Width - Me.InsideWidth) / 2) * 4 / 3
x = Me.InsideWidth * 4 / 3
y = (Me.Height - e) * 4 / 3
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowRgn hWnd, CreateEllipticRgn(e, e, x, y), True
End Sub

MP

"Dom" a écrit dans le message de
news:
Bonjour,

Je cherche a faire un Userform Ovale, j'ai bien telecharge un classeur
avec

des demos,
mais je n'ai toujours pas compris comment faire cette Userform Ovale.

Si quelqu'un avec ce code, je le remercie d'avance.

Dom