Discussion :

[shkyo]

Bonjour à tous, tout d'abord voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Sheets("Résultats ferro").Range("A1") = "OK"
    End If
    Application.EnableEvents = True
End Sub

Je veux donc qu'il se passe quelquechose quand on modifie une cellule de la colonne B

Cette mini-macro est bien sur placée dans "This Workbook" du fichier, dans la catégorie "SheetChange".

Et bien il ne se passe rien du tout !!!

Quelqu'un a-t-il une idée ?? Merci d'avance !

Oups, j'ai failli oublier, j'utilise Excel 2003 avec le SP2

[Singular]

As-tu mis un point d"arrêt sur la ligne de ton If pour voir ce qui s'y passe?

[shkyo]

As-tu mis un point d"arrêt sur la ligne de ton If pour voir ce qui s'y passe?

Et bien, j'ai mis un point d'arrêt avec le menu "débogage" mais où puis-je voir ce qu'il se passe ??? J'ai les fenêtres "espions", "exécution" et "variables locales" qui sont ouvertes, et je ne vois rien...

Peux-tu m'éclairer ?

[Bigalo]

Bonsoir,

Execute cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
    MsgBox Application.EnableEvents
End Sub

Ce que tu décris résulte souvent de la désactivation de EnableEvents effecuée lors d’un test !

Cordialement,

[shkyo]

Bonsoir,

Execute cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
    MsgBox Application.EnableEvents
End Sub

Ce que tu décris résulte souvent de la désactivation de EnableEvents effecuée lors d’un test !

Cordialement,

ARGH !!! C'est à faux...

Donc si je comprends bien, le code plus approprié sera ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.EnableEvents = False Then
        Application.EnableEvents = True
    End If
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Sheets("Résultats ferro").Range("A1") = "OK"
    End If
End Sub

J'ai bon ???

[shkyo]

Cela fonctionne exactement comme je le souhaitais !!!

Merci beaucoup !! Et comme d'hab, c'était une bricole, mais il faut le savoir...

[Bigalo]

Il n’est pas nécessaire de changer le code initial, qui est bon,

Mais chaque fois que l’on lance quelque chose du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Az
    Application.EnableEvents = False
    ' ...
    Application.EnableEvents = True
End Sub

Si pour une raison quelconque l’exécution est interrompue (bug, point d’arrêt,...) entre les 2 instructions modifiant la valeur de EnableEvents, celle-ci reste à False.

Il est donc bon de vérifier sa valeur avec le test précédent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
    MsgBox Application.EnableEvents
End Sub

et de le remettre à True si nécessaire, en lançant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub RAZ()
    Application.EnableEvents = True
End Sub

Ensuite, beaucoup de choses se remettent à fonctionner

Il faut toujours avoir cela à l’esprit, si on touche à EnableEvents !