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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :

Code:
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,,
 

Pièces jointes

  • TestCodeBloquant.xlsm
    25.8 KB · Affichages: 39

Roland_M

XLDnaute Barbatruc
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 !
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024