Bonjour

Voici ma procédure pour copier le code « Worksheet_Change » de la feuille 1 du classeur source, effacer le code « Worksheet_Change » de la feuille1 du classeur destination et coller le code « Worksheet_Change » de la feuille 1 du classeur source vers la feuille1 du classeur de destination de plusieurs classeurs ouverts.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub CopieCodeFeuilleTousClasseurOuvert()
Dim S As String
Dim ClasseurSource
ClasseurSource = ThisWorkbook.Name
With Workbooks(ClasseurSource).VBProject.VBComponents("Feuil1").CodeModule
    S = .Lines(1, .CountOfLines)
End With
For Each W In Workbooks
    If W.Name <> ClasseurSource Then
        With W.VBProject.VBComponents("Feuil1").CodeModule
.DeleteLines 1, .CountOfLines
.AddFromString S
        End With
    End If
Next W
End Sub
Comment faire pour copier le code « Worksheet_Change » de toutes les feuilles du classeur source, effacer le code « Worksheet_Change » de toutes les feuilles du classeur de destination et coller le code « Worksheet_Change » de toutes les feuilles du classeur source vers de toutes les feuilles du classeur de destination de plusieurs classeurs ouverts.

Pourriez-vous m’aider SVP.

Merci d’avance.