Création d'un module

[Sylvain]

Bonjour à tous le forum,
Grâce à l'un des utilisateurs de ce forum, Eric, que je remercie une nouvelle fois pour son aide, je suis sur le point d'achever la programmation de mon code.

Il me reste à résoudre un petit problème. Dans mon fichier, je possède différentes feuilles avec des données et deux feuilles de synthèses. POur le moment sur chacune des feuilles de données, j'utilise le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Range("C17") Or Target.Cells = Range("D20") Or _
Target.Cells = Range("D21") Or Target.Cells = Range("D22") Or _
Target.Cells = Range("D23") Or Target.Cells = Range("D24") Or _
Target.Cells = Range("D25") Or Target.Cells = Range("D26") Or _
Target.Cells = Range("D27") Or Target.Cells = Range("D28") Or _
Target.Cells = Range("D29") Or Target.Cells = Range("D30") Or _
Target.Cells = Range("D31") Or Target.Cells = Range("D32") Or _
Target.Cells = Range("D33") Or Target.Cells = Range("D34") Or _
Target.Cells = Range("D35") Or Target.Cells = Range("D36") Or _
Target.Cells = Range("D37") Or Target.Cells = Range("D38") Or _
Target.Cells = Range("D39") Then
...
...
End sub

qui ne va donc se lancer que si une des cellules mentionnées ci-dessus est modifiée.

Ce code est le même quelque soit la feuille de donnée. Est-il possible de ne créer qu'une seule fois cette fonction et de la lancer lorsqu'une des cellules est modifiée. Pour le moment, j'ai recopié ce code sur chacune des feuilles de données.

Merci pour votre aide,
Sylvain

 

[Sylvain]

re, Pasal, Arnaud, le forum

Arnaud, j'ai suivi ta méthode et tout marche bien. C'est vrai qu'en cas de modification, je n'aurai qu'à modifier ma macro et non pas le code de chacune des feuilles.
Merci bcp pour votre aide.

Sylvain

 

[Pascal76]

Re

Bon là je n'ai pas trop le temps de regarder ton code

De plus il manque des feuilles que tu appelles dans ton code donc ça bug rapidement

J'essaierais de voir plus tard tu peux peut-être m'envoyer le fichier avec toutes les feuilles vu qu'il n'y a pas de données dedans dans ma BAL.

Pascal