Bonjour à tous,

J'ai une feuille "feuille1 "qui contient un bouton , ce dernier me permet de créer la copie de la feuille1 et la nomme en "feuille2".

Après la fermeture de mon classeur excel je supprime la feuille2 et elle sera recréer après le clique sur le bouton.

Cela dit je veux gérer les changements effectué sur la feuille2 et je ne sais pas comment m'y prendre.

j'arrive à gérer les changement sur ma feuille1 mais pour la feuille2 je ne sais pas comment m'y prendre avez vous une idée ?


Voilà le traitement que je veux faire dans la feuille2 :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("H10:CN10")) Is Nothing Then
 
Dim sum As Single
Dim ing, coor As Single
Dim selec As String
Dim j As Integer
sum = 0
ing = 0
coor = 0
For j = 1 To 3  ' 7 to  I
 
Application.Goto reference:="DataZero_" & j
ActiveCell.Select
sum = Application.WorksheetFunction.sum(Range(Range("DataZero_" & j), Range("DataZero_" & j).Offset(selection.CurrentRegion.Rows.count - 1, 0)))
 
ActiveCell.Offset(-3, 0).Select
selec = ActiveCell.Value
'MsgBox sum
 
If (selec = "ingénieur ") Then
ing = sum + ing
 
ElseIf (selec = "Coordinateur") Then
 coor = sum + coor
End If
 
Next  
  MsgBox "  somme coor " & coor
 
 
End If
 
End Sub