S
Sylvain
Guest
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
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