'dans un module standard définis une variable et une sub
Public Actif as Boolean
Public Sub comutateur() Actif = not Actif end sub
'dans tes procédures au tout début:
if not Actif then exit sub
--
Bonsoir,
Imaginons que j'aie 10 procédures du type dans un code de UF : "Private Sub Bouton1_MouseMove" (une pour chaque bouton de 1 à 10).
Est-il possible d'avoir une macro qui désactive toutes les procédures de type "_MouseMove" (et puisse les réactiver !) ?
Merci d'avance pour vos lumières,
JP
LSteph
...exemple:
'''''userform2textboxet1bouton
Private Sub CommandButton1_Click() Call comutateur End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Actif Then Exit Sub TextBox1 = Now TextBox2 = "" End Sub
Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Actif Then Exit Sub TextBox2 = Now TextBox1 = "" End Sub
'''''Module1 Public Actif As Boolean
Public Sub comutateur() Actif = Not Actif End Sub
Bonsoir,
Imaginons que j'aie 10 procédures du type dans un code de UF : "Private Sub Bouton1_MouseMove" (une pour chaque bouton de 1 à 10).
Est-il possible d'avoir une macro qui désactive toutes les procédures de type "_MouseMove" (et puisse les réactiver !) ?
Merci d'avance pour vos lumières,
JP
...exemple:
'''''userform2textboxet1bouton
Private Sub CommandButton1_Click()
Call comutateur
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Not Actif Then Exit Sub
TextBox1 = Now
TextBox2 = ""
End Sub
Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Not Actif Then Exit Sub
TextBox2 = Now
TextBox1 = ""
End Sub
'''''Module1
Public Actif As Boolean
Public Sub comutateur()
Actif = Not Actif
End Sub
Bonsoir,
Imaginons que j'aie 10 procédures du type dans un code de UF :
"Private Sub Bouton1_MouseMove" (une pour chaque bouton de 1 à 10).
Est-il possible d'avoir une macro qui désactive toutes les procédures de
type "_MouseMove" (et puisse les réactiver !) ?
Private Sub CommandButton1_Click() Call comutateur End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Actif Then Exit Sub TextBox1 = Now TextBox2 = "" End Sub
Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Actif Then Exit Sub TextBox2 = Now TextBox1 = "" End Sub
'''''Module1 Public Actif As Boolean
Public Sub comutateur() Actif = Not Actif End Sub
Bonsoir,
Imaginons que j'aie 10 procédures du type dans un code de UF : "Private Sub Bouton1_MouseMove" (une pour chaque bouton de 1 à 10).
Est-il possible d'avoir une macro qui désactive toutes les procédures de type "_MouseMove" (et puisse les réactiver !) ?
Merci d'avance pour vos lumières,
JP
j-pascal
Re,
Génial ! Et quand je pense que j'ai failli ne pas oser poser la question !! ;-)
Il faut vraiment peu de chose pour me rendre "heureux" :o)
Bonne journée,
JP
"LSteph" a écrit dans le message de news:
Bonsoir
'dans un module standard définis une variable et une sub
Public Actif as Boolean
Public Sub comutateur() Actif = not Actif end sub
'dans tes procédures au tout début:
if not Actif then exit sub
--
Bonsoir,
Imaginons que j'aie 10 procédures du type dans un code de UF : "Private Sub Bouton1_MouseMove" (une pour chaque bouton de 1 à 10).
Est-il possible d'avoir une macro qui désactive toutes les procédures de type "_MouseMove" (et puisse les réactiver !) ?
Merci d'avance pour vos lumières,
JP
Re,
Génial ! Et quand je pense que j'ai failli ne pas oser poser la question !!
;-)
Il faut vraiment peu de chose pour me rendre "heureux" :o)
Bonne journée,
JP
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
unlmqgRPIHA.4684@TK2MSFTNGP06.phx.gbl...
Bonsoir
'dans un module standard définis une variable et une sub
Public Actif as Boolean
Public Sub comutateur()
Actif = not Actif
end sub
'dans tes procédures au tout début:
if not Actif then exit sub
--
Bonsoir,
Imaginons que j'aie 10 procédures du type dans un code de UF :
"Private Sub Bouton1_MouseMove" (une pour chaque bouton de 1 à 10).
Est-il possible d'avoir une macro qui désactive toutes les procédures de
type "_MouseMove" (et puisse les réactiver !) ?