1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub Macro3()
'
'définit la plage avec le Nom des personnes
Set Plage1 = Workbooks("CAPITAL_NON_AMORTI01APR12.XLS").Sheets("EXI_PAS_AMO").Range("$I$1:$I$1000")
'Définit la plage avec les cellules contenant la valeur "Aucune"
Set Plage2 = Workbooks("CAPITAL_NON_AMORTI01APR12.XLS").Sheets("EXI_PAS_AMO").Range("$J$1:$J$1000")
'Définit la cellule contenant le nom de la personne sélectionnée
NOM = Workbooks("2012_REPORT_CTRL_COLL_NEGO.xls").Sheets("SYNTHESE").Range("B1")
Windows("2012_REPORT_CTRL_COLL_NEGO.xls").Activate
'et c'est là qu'est le noeud du problème...
Sheets("SYNTHESE").Range("G9").Value = Evaluate("=sumproduct((Plage1=""" & NOM & """)*(Plage2=" & """Aucune""" & "))")
End Sub |
