XL 2010 Résolu par Roland : Je n'arrive pas à activer mes macros

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai un nouveau souci dans mon classeur (Grrrr ça marchait avant LOL)
Je n'arrive plus à faire en sortes que les macros soient actives ?????
J'ai fait un fichier test qui contient dans le code de la feuille1 les codes suivants :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$I$3" Then Exit Sub
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
If Len(Target) = 9 And IsNumeric(Target) Then
ActiveSheet.Unprotect Password:=""
[H1] = [E1] & [I3]
End If

If Not Intersect(Target, Range("i7:i20000")) Is Nothing Then 'heure appel
    Application.EnableEvents = True
    ActiveSheet.Unprotect Password:=""
    Target.Offset(0, 2) = Now()
    End If
If Not Intersect(Target, Range("l7:l20000")) Is Nothing Then
    Application.EnableEvents = True
    ActiveSheet.Unprotect Password:=""
    Target.Offset(0, -7) = Now()
    Target.Offset(0, 8) = ""
    Target.Offset(0, 9) = ""
    End If
If Not Intersect(Target, Range("u7:u20000")) Is Nothing Then
    Application.EnableEvents = True
    ActiveSheet.Unprotect Password:=""
    Target.Offset(0, -16) = Now()
    End If

ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub

Pourtant, dans les codes j'ai mis des "Application.EnableEvents = True" partout
et je n'ai pas mis de "False".

Pourriez-vous me dire ce que j'ai zappé ?
Je joins le fichier test,
Grands Merci à vous toutes et tous,
Amicalement,
Lionel,,

 

[Roland_M]

Bonjour,

pour lever le doute, tu copies ce petit Sub
Sub Reactive()
Application.EnableEvents = True
End Sub

et tu Tapes F5 ceci va réactiver les événements !
ensuite on verra !?

 

[Usine à gaz]

Bonjour Roland,
Encore avec moi LOL ...... tu es trop 😉
Je fais ça et je te dis.
Merci,
Lionel,

 

[Usine à gaz]

Je mets ça dans un module standard ?

 

[Usine à gaz]

LOL, j'ai mis ça dans un module standard et quand je fais F5 il ouvre la smgbox "atteindre"
pareil si je mets dans code du classeur ou de la feuille.

 

[Roland_M]

oui, ou feuille !

 

[Roland_M]

re

c'est parce que tu n'est pas placé sur le Sub !

 

[Usine à gaz]

LOL, j'ai mis ça dans un module standard et quand je fais F5 il ouvre la smgbox "atteindre"
pareil si je mets dans code du classeur ou de la feuille.

 

[Usine à gaz]

J'essaie de voir si j'ai pas un souci dans les options mais je ne vois rien

 

[Roland_M]

re

je viens d'essayer ton classeur, il fonctionne bien !?
pour toi voir si ça fonctionne tu mets:
au début de ton sub msgbox "entrée"
et à la fin de ton sub msgbox "sortie"

tu verras qu'il s'effectue, maintenant reste à voir ton code ce qu'il effectue bien !?
mais ton code n'est pas correcte, il faut revoir tout ça car c'est incohérent !

 

[Usine à gaz]

J'ai créé un bouton pour exécuter Sub Reactive() mais rien ne se passe

 

[Usine à gaz]

"je viens d'essayer ton classeur il fonctionne bien !?
pour toi voir si ça fonctionne tu mets
au début de ton sub msgbox "entrée"
et à la fin de ton sub msgbox "sortie""

Je n'ai pas de sub msgbox ???
Je dois être aveugle

 

[Roland_M]

aie aie aie, Lionel, mon ami, tu ne comprends pas grand chose !

c'est à toi de mettre ces msgbox pour essayer !

 

[Usine à gaz]

LOL, c'est bien vrai en ce domaine 😕
MsgBox "entrée" s'affiche et rien d'autre et pas d'exécution de la macro.
Il ne peut pas y avoir un souci dans les options du classeur ?

 

[Roland_M]

re
as-tu vu aussi s'afficher les autres msgbox "exécution" et "sortie" ?