appliquer une macro a tous les userforms ?

salut le forum,

personne a d'idee pour realiser cette macro a tous les usf?

peut etre impossible?

merci a vous

avo

Bonjour Avoriaz, le Forum

Je te conseille l'Excellent Tutorial du Grand Chef à Trois Plumes Lien supprimé car je pense qu'il doit y avoir une solution par là... Mais je n'ai jamais appliqué sur UserForm... (Si quelqu'un connait ?)

Sinon en plus simpliste :

Module Standard Public

Option Explicit

Public NotClose As Boolean

Public Sub TestClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
      MsgBox "Cette commande ne peut être exécutée, Veuillez fermer le logiciel avec le bouton prevu a cet effect !!." _
      & vbCrLf, vbOKOnly + vbExclamation, "Fin de la commande"
    NotClose = True
   End If
End Sub

'
Private Module de Chaque UserForm

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
TestClose Cancel, CloseMode
Cancel = NotClose
NotClose = False
End Sub

Bon Appétit à tous et toutes
@+Thierry

Arf le Lien sur le Site de Laurent Longre :

http://longre.free.fr/pages/prog/evenements.htm#Exemple_modclasse
<http://longre.free.fr/pages/prog/evenements.htm#Exemple_modclasse>

(Le dièse ne passe pas en Hyperlien ici, faire un Copié Collé de l'URL)

@+Thierry

Personnellement je me contenterais de la solution de Thierry, simplifiée comme ceci (NotClose est inutile, les arguments sont passés ByRef) :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
TestCroix Cancel, CloseMode
End Sub


'cette macro dans un module standard
Sub TestCroix(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Cette commande ne peut être exécutée, Veuillez fermer le logiciel avec le bouton prevu a cet effect !!." _
& vbCrLf, vbOKOnly + vbExclamation, "Fin de la commande"
Cancel = True
End If
End Sub

Bonjour Ti

Merci de ce complément d'info, et oui, par défaut les arguments sont passés ByRef et peuvent donc être modifiés par la Sub de réception... (Contrairement à ByVal qui n'est qu'une Copie de la Variable)

Et moi je fiche toujours tout plein de Boolean partout ! lol

Merci encore
Bon App
@+Thierry

salut le forum,

ca marche !!! les deux methodes j'ai essayer a titre d'infos les deux facons...

encore merci a thierry et ti pour l'aide apportée ....

une fois de plus...

avo