begin process at 2012 02 13 07:32:08
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

bouton fermer d'un userform


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

bouton fermer d'un userform

lundi 31 juillet 2006 à 10:38:01 | bouton fermer d'un userform

inea

Bonjour,

Avant tout je tiens à m'excuser par avance de ne pas avoir su faire marcher le code existant puisque j'ai vu qu'il existait pas mal de chose à ce sujet.

Voilà je souhaiterais seulement qu'au lancement de mon formulaire la croix "fermer" ne s'affiche pas.

Je ne crois pas avoir vu de propriété a changer pour la désactiver... Faut-il que j'écrive quelque chose dans un "UserForm_Initialize" ?

Merci d'avance
Inea 

lundi 31 juillet 2006 à 10:43:59 | Re : bouton fermer d'un userform

casy

Membre Club

Pour supprimer tous les boutons (y compris la croix) de la barre de titre, il faut mettre la propriété ControlBox à false sur ta feuille.



Sevyc64  (alias Casy)
# LE PARTAGE EST NOTRE FORCE #
lundi 31 juillet 2006 à 10:44:34 | Re : bouton fermer d'un userform

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Ce sujet a déjà été largement traîté dans le forum et dans les sources, tu n'as pas trouvé ton bonheur avec le moteur de recherche du site ?
lundi 31 juillet 2006 à 11:18:04 | Re : bouton fermer d'un userform

inea

Merci Casy

Et oui Dark j'ai bien cherché mais étant débutante j'ai du mal à tout suivre des fois, il me faut une explication toute simple plutot que des zip a télécharger que je comprends pas toujours :o)

lundi 31 juillet 2006 à 11:49:47 | Re : bouton fermer d'un userform

inea

Réponse acceptée !

Je n'ai pas trouvé le control box dans les propriétés du userform du coup je me suis débrouillée autrment

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

du coup la croix est toujours là mais quand on appuie dessus ça ne ferme pas le userform

lundi 31 juillet 2006 à 11:59:03 | Re : bouton fermer d'un userform

casy

Membre Club
Dsl, Inea, la solution que je t'ai donné est valable pour VB6. Je n'avais pas percuté que tu étais en VBA.

Je ne connais pas bien VBA, mais apparenment cette propriété n'existe pas.

Mais ta solution est valable. De plus elle te permet même de rajouter un message pour dire à l'utilisateur qu'il n'a pas le droit de fermer la fenetre, qu'il est obliger de rester bosser devant.



Sevyc64  (alias Casy)
# LE PARTAGE EST NOTRE FORCE #
lundi 31 juillet 2006 à 12:11:29 | Re : bouton fermer d'un userform

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
La solution consiste à passer par les API de windows (comme expliqué dans pas mal de threads du forum) :

Private Declare Function GetSystemMenu Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Private Const MF_BYCOMMAND = &H0
Private Const SC_CLOSE = &HF060

Public Sub DisabledCloseButton(ByVal lHWndForm As Long)

Dim lMenu As Long

    Let lMenu = GetSystemMenu(lHWndForm, 0)
    Call DeleteMenu(lMenu, SC_CLOSE, MF_BYCOMMAND)

End Sub

lundi 31 juillet 2006 à 13:47:57 | Re : bouton fermer d'un userform

PCPT

Administrateur CodeS-SourceS
salut,

une petite classe ici

++

Prenez un instant pour répondre à ce sondage svp
lundi 31 juillet 2006 à 14:37:38 | Re : bouton fermer d'un userform

inea

Merci bcp à tous pour vos réponses !



Cette discussion est classée dans : bouton, chose, userform, fermer


Répondre à ce message

Sujets en rapport avec ce message

fermer une userform qd il y en a deux ? [ par gnosis35 ] une macro lance une userform dans cet userform j'ai un bouton qui ouvre une autre userformj'aimerai a l'aide d'un bouton existant sur cette derniere u creer un bouton pour fermer et initialiser mon userform [ par riopoti ] bonjour, je viens juste de debuter, et je voudrais creer un bouton qui me permettrai de fermer ma fenetre userform et d'initialiser les variables. me controle spreadsheet dans un userform [ par loulie77 ] bonjour, j'ai un classeur Excel dans lequel j'ai mis un bouton. quand on appuie sur ce bouton, ça ouvre une fenêtre (userform) dans lequel j'ai mis un Fermer Excel par un Bouton [ par takin55 ] Bonjour  je voudrais savoir comment faire pour Quitter un fichier Excel par un boutonJe créé un CommandButton1 dans ma feuilleQuand je clique dessus j [VBA/excel] mailto et bouton dans un userform [ par titibobo2 ] Bonjour,J'ai cette macro qui fonctionne avec un liens hypertext dans un cellule ( ça ouvre bien mon client de messagerei par defaut (lotus notes)Range Fermeture formulaire + execution automatique autre formulaire [ par dork_maule ] Salut a tous.J'ai un blems. Je suis en traint de créer un programme en visual basic.net qui gére les locations de voiture.Mon probléme est que j'ai cr probleme avec un bouton dans un userform [ par azerty53 ] Bonsoir a VBFpour un projet vba excel j'utilise un bouton dans un userform qui me permet d'aller chercher une image sur le disque dur et d'écrire l'ad Appel d'un bouton à partir d'une Userform différente [ par joule93 ] Bonjour, je souhaiterai lancer le code d'un bouton se trouvant dans une UserForm1, à partir du code d'une UserForm2.Mon code est le suivant:UserForm1. Aidez moi svp!Je souhaite faire grace a un bouton une croix en haut a gauche pour fermer mon programme VB [ par biddal ] Une croix en haut a droite qui serait un bouton qui me permettrait de fermer mon appli lorsque celle ci est lancer mais je ne trouve pas de code ni de bouton d'option et lien vers userform ou feuille excel [ par clovis7 ] Bonjour à tous. Ceci est sans doute très simple mais étant débutant, je lutte. Alors voila, j'ai un UserForme avec 3 boutons d'options ronds et un b


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,296 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales