Discussion :

[Pygmalion37]

Bonjour

J'ai un souci avec un fichier Excel pour lequel la procédure Change ne se déclenche pas.

Je suis donc parti d'un fichier Excel tout simple et le code, très basique suivant :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
    MsgBox "coucou"
 
End Sub

ne fonctionne pas. Il ne s'arrête pas sur le code. Rien de rien.

Quelqu'un pourrait il éclairer ma lanterne ?

Précision : il s'agit d'Excel 2007 mais j'ai fait la même chose avec un fichier ".xls", format 2003, utilisé avec 2007, aucun changement, rien ne fonctionne. De nature persévérante j'ai tenté la même procédure avec Excel 2003, rien ne fonctionne non plus.

Merci par avance pour votre aide.


Florent

[Marc-L]

Bonjour,

merci d'utiliser l'icône # pour baliser le code conformément aux règles du forum !

Voir le tutoriel Les évènements dans la feuille de calcul Excel …

[bboy-eazy]

bonjour,


N' y a-t-il pas un

Code :

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

application.enableevents = false

quelque part?

[Pygmalion37]

Bonjour
Mille excuses je ne connaissais pas les règles d'usage...
En fait le code fonctionne sur mon ordi portable et ne fonctionne pas sur l'ordinateur fixe du boulot.
Une clé de registre ?
Quelqu'un a t il une idée ?

bonjour,

N' y a-t-il pas un

Code :

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

application.enableevents = false

quelque part?

Hélas non, aucune trace dans le code...

Je précise que bien évidemment, dans les Options de Confidentialité, j'ai activé toutes les macros....

[Daniel.C]

Bonjour,

Ca m'est arrivé une fois et je n'ai pas compris pourquoi; peut-être une interaction avec une autre macro ?. Exécute :

Code :

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

1
2
3
Sub Events()
application.EnableEvents=True
End Sub

Si le problème persiste, colle cette macro dans le module "ThisWorkbook" :

Private Sub Workbook_Open()
Application.EnableEvents = True
End Sub

[Pygmalion37]

Bonjour
Merci pour cette idée mais à la lumière des commentaires précédents, je venais d'y penser.
Hélas, aucun résultat positif !!!!
Et cela ne fonctionne a priori sur aucun PC fixe dans la boîte pour laquelle je travaille.

Bonjour,

Ca m'est arrivé une fois et je n'ai pas compris pourquoi; peut-être une interaction avec une autre macro ?. Exécute :

Code :

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

1
2
3
Sub Events()
application.EnableEvents=True
End Sub

Si le problème persiste, colle cette macro dans le module "ThisWorkbook" :

Private Sub Workbook_Open()
Application.EnableEvents = True
End Sub

[issoram]

Bonjour,

Il y a un antivirus qui tourne sur ces PC? Peut être fouiller de ce côté là...

[Pygmalion37]

Hello !
Merci la solution était bien du côté de

Code :

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

application.EnableEvents=True

Le précédent programmeur en avait juste disséminé un peu partout.

Merci pour votre aide à tous.