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
| Sub MAJDONNEETOTAL()'On determine les colonnes où l'on recherche les thèmes à mettre à jour
Dim A As Range
Set A = Cells.Find(What:="Zone de Production MELUN", After:=ActiveCell, _
LookIn:=xlFormulas2, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False) ' //On recherche la plage .Column
If Not A Is Nothing Then
'Une fois les colonnes ciblées, on cherche le chaptitre à mettre à jour
Dim B As Range
Set B = Worksheets("DashBoard").Columns(A.Column).Resize(, 19).Find(What:=domaine1, After:=ActiveCell, LookIn _
:=xlFormulas2, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False) ' // Ici aussi on recherche une plage .Address
If Not B Is Nothing Then
MPS1 = MPS1 + MPS1Bis: MPS2 = MPS2 + MPS2Bis
'Mise à jour du domaine global (MPS + MPC de chaque thème)
If MPS1 + MPC1 = 0 Then
Worksheets("DashBoard").Range(B.Address)(1, 11).Value = 1
Else
If MPS2 + MPC2 = 0 Then
Worksheets("DashBoard").Range(B.Address)(1, 11).Value = 0
Else
Worksheets("DashBoard").Range(B.Address)(1, 11).Value = (MPS2 + MPC2) / (MPS1 + MPC1)
End If
End If
Else
' // ToDo si B n'est pas trouvé
End If
Else
' // ToDo si A n'est pas trouvé
End If
End Sub |
Partager