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
Philippe.R
Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$ salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
Bonjour Emcy,
Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Emcy" <emcy@voila.fr> a écrit dans le message de news:0e1f01c36bca$0f3d0950$a101280a@phx.gbl...
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un
userform soit indisponible (grisée)
Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$ salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
Alain CROS
Bonjour.
Essaye comme ça.
'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub UserForm_Activate() Const MF_BYPOSITION = &H400& Const MF_REMOVE = &H1000& Dim hSysMenu As Long, nCnt As Long ' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(GetActiveWindow, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then ' Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator DrawMenuBar GetActiveWindow ' Force caption bar's refresh. Disabling X button Me.Caption = "Try to close me!" End If End If End Sub
Alain CROS.
"emcy" a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$ resalut,
je veux faire la même chose que Pampa-sr mais les reponses qui ont été données à sa question ne me conviennent pas car ça ne "grise" pas le bouton fermé(il est donc toujours accessible). Fonctionnelement ce système me va mais pas visuelement.
-----Message d'origine----- Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
.
Bonjour.
Essaye comme ça.
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub UserForm_Activate()
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(GetActiveWindow, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
Alain CROS.
"emcy" <emcy@voila.com> a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$a101280a@phx.gbl...
resalut,
je veux faire la même chose que Pampa-sr mais les
reponses qui ont été données à sa question ne me
conviennent pas car ça ne "grise" pas le bouton fermé(il
est donc toujours accessible). Fonctionnelement ce
système me va mais pas visuelement.
-----Message d'origine-----
Bonjour Emcy,
Vois tu la question, très proche de la tienne, posée par
Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Emcy" <emcy@voila.fr> a écrit dans le message de
news:0e1f01c36bca$0f3d0950$a101280a@phx.gbl...
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un
userform soit indisponible (grisée)
'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub UserForm_Activate() Const MF_BYPOSITION = &H400& Const MF_REMOVE = &H1000& Dim hSysMenu As Long, nCnt As Long ' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(GetActiveWindow, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then ' Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator DrawMenuBar GetActiveWindow ' Force caption bar's refresh. Disabling X button Me.Caption = "Try to close me!" End If End If End Sub
Alain CROS.
"emcy" a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$ resalut,
je veux faire la même chose que Pampa-sr mais les reponses qui ont été données à sa question ne me conviennent pas car ça ne "grise" pas le bouton fermé(il est donc toujours accessible). Fonctionnelement ce système me va mais pas visuelement.
-----Message d'origine----- Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
.
emcy
merci, c'est exactement ce que je cherchait
-----Message d'origine----- Bonjour.
Essaye comme ça.
'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
Private Sub UserForm_Activate() Const MF_BYPOSITION = &H400& Const MF_REMOVE = &H1000& Dim hSysMenu As Long, nCnt As Long ' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(GetActiveWindow, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then ' Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow ' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!" End If End If End Sub
Alain CROS.
"emcy" a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$
resalut,
je veux faire la même chose que Pampa-sr mais les reponses qui ont été données à sa question ne me conviennent pas car ça ne "grise" pas le bouton fermé(il est donc toujours accessible). Fonctionnelement ce système me va mais pas visuelement.
-----Message d'origine----- Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
.
.
merci, c'est exactement ce que je cherchait
-----Message d'origine-----
Bonjour.
Essaye comme ça.
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Private Declare Function GetActiveWindow Lib "user32" ()
As Long
Private Declare Function GetSystemMenu Lib "user32"
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32"
(ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal
hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal
hMenu As Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
Private Sub UserForm_Activate()
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(GetActiveWindow, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION
Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION
Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow
' Force caption bar's refresh. Disabling X
button
Me.Caption = "Try to close me!"
End If
End If
End Sub
Alain CROS.
"emcy" <emcy@voila.com> a écrit dans le message de news:
0f4001c36bd6$f9b7c6d0$a101280a@phx.gbl...
resalut,
je veux faire la même chose que Pampa-sr mais les
reponses qui ont été données à sa question ne me
conviennent pas car ça ne "grise" pas le bouton fermé(il
est donc toujours accessible). Fonctionnelement ce
système me va mais pas visuelement.
-----Message d'origine-----
Bonjour Emcy,
Vois tu la question, très proche de la tienne, posée par
Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Emcy" <emcy@voila.fr> a écrit dans le message de
news:0e1f01c36bca$0f3d0950$a101280a@phx.gbl...
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un
userform soit indisponible (grisée)
'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
Private Sub UserForm_Activate() Const MF_BYPOSITION = &H400& Const MF_REMOVE = &H1000& Dim hSysMenu As Long, nCnt As Long ' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(GetActiveWindow, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then ' Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow ' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!" End If End If End Sub
Alain CROS.
"emcy" a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$
resalut,
je veux faire la même chose que Pampa-sr mais les reponses qui ont été données à sa question ne me conviennent pas car ça ne "grise" pas le bouton fermé(il est donc toujours accessible). Fonctionnelement ce système me va mais pas visuelement.
-----Message d'origine----- Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
.
.
Pampa-sr
Moi aussi, donc merci itou.
-----Message d'origine----- merci, c'est exactement ce que je cherchait
-----Message d'origine----- Bonjour.
Essaye comme ça.
'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
Private Sub UserForm_Activate() Const MF_BYPOSITION = &H400& Const MF_REMOVE = &H1000& Dim hSysMenu As Long, nCnt As Long ' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(GetActiveWindow, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then ' Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow ' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!" End If End If End Sub
Alain CROS.
"emcy" a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$
resalut,
je veux faire la même chose que Pampa-sr mais les reponses qui ont été données à sa question ne me conviennent pas car ça ne "grise" pas le bouton fermé(il est donc toujours accessible). Fonctionnelement ce système me va mais pas visuelement.
-----Message d'origine----- Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
.
.
.
Moi aussi, donc merci itou.
-----Message d'origine-----
merci, c'est exactement ce que je cherchait
-----Message d'origine-----
Bonjour.
Essaye comme ça.
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Private Declare Function GetActiveWindow Lib "user32" ()
As Long
Private Declare Function GetSystemMenu Lib "user32"
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32"
(ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal
hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal
hMenu As Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
Private Sub UserForm_Activate()
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(GetActiveWindow, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION
Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION
Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow
' Force caption bar's refresh. Disabling X
button
Me.Caption = "Try to close me!"
End If
End If
End Sub
Alain CROS.
"emcy" <emcy@voila.com> a écrit dans le message de news:
0f4001c36bd6$f9b7c6d0$a101280a@phx.gbl...
resalut,
je veux faire la même chose que Pampa-sr mais les
reponses qui ont été données à sa question ne me
conviennent pas car ça ne "grise" pas le bouton fermé(il
est donc toujours accessible). Fonctionnelement ce
système me va mais pas visuelement.
-----Message d'origine-----
Bonjour Emcy,
Vois tu la question, très proche de la tienne, posée par
Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Emcy" <emcy@voila.fr> a écrit dans le message de
news:0e1f01c36bca$0f3d0950$a101280a@phx.gbl...
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un
userform soit indisponible (grisée)
-----Message d'origine----- merci, c'est exactement ce que je cherchait
-----Message d'origine----- Bonjour.
Essaye comme ça.
'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
Private Sub UserForm_Activate() Const MF_BYPOSITION = &H400& Const MF_REMOVE = &H1000& Dim hSysMenu As Long, nCnt As Long ' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(GetActiveWindow, False) If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then ' Menu count is based on 0 (0, 1, 2, 3...) RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar GetActiveWindow ' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!" End If End If End Sub
Alain CROS.
"emcy" a écrit dans le message de news: 0f4001c36bd6$f9b7c6d0$
resalut,
je veux faire la même chose que Pampa-sr mais les reponses qui ont été données à sa question ne me conviennent pas car ça ne "grise" pas le bouton fermé(il est donc toujours accessible). Fonctionnelement ce système me va mais pas visuelement.
-----Message d'origine----- Bonjour Emcy, Vois tu la question, très proche de la tienne, posée par Pampa-sr à 10h25 heure de Paris et les réponses
qu'y ont apportées Dédé et Clément ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Emcy" a écrit dans le message de news:0e1f01c36bca$0f3d0950$
salut a tous le monde !
je voudrais savoir comment faire pour que la croix d'un userform soit indisponible (grisée)
