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

arthour973

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

Fichiers joints

Roland_M

XLDnaute Barbatruc
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 !?
 

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:

arthour973

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

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

c'est à toi de mettre ces msgbox pour essayer !
 
Dernière édition:

Roland_M

XLDnaute Barbatruc
re

perso quand je tape une valeur dans I3 car c'est bien de ça qu'il s'agit ?
je vois l'affichage des trois msgbox !
quand à ton code je sais pas trop ce qu'il en retourne, mais la macro se déclanche bien !

conclusion c'est du côté de ton code qu'il faut voir car il est incohérent !
on va revoir ça !
 
Dernière édition:

arthour973

XLDnaute Barbatruc
Supporter XLD
Exact, j'avais pas cliqué sur I3.
Donc sur I3 les trois msgbox s'affichent.

Mais j'ai cliqué sur les autres cellules et là, rien ne se passe sauf l'affichage de la msgbox entrée
 

Discussions similaires


Haut Bas