Discussion :

[ADV974]

Bonjour,

Je suis nouvelle sur le forum et plutôt novice en vba. Je souhaite indiquer en cellule G9 le nombre de cellules contenant "Aucune" et ce pour la personne sélectionnée en B1. Pour le moment, voici le code que j'ai réalisé:

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 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

J'ai longtemps cherché la solution sur les différents problèmes mais j'avoue que je désespèreSi une bonne âme souhaite m'aider, ce serait super!

Merci beaucoup

[hunteshiva]

Bonjour,

tu t'est trompé de Forum, ici c'est du vb.net.
le VBA est à poster dans le forum Office -> EXCEL:
http://www.developpez.net/forums/f54...-office/excel/

[gFZT82]

Bonjour,

Tu peux essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("SYNTHESE").Range("G9").Value = Evaluate("=SUMPRODUCT((" & Plage1.Address(, , , True) & "=""" & NOM & """)*(" & Plage2.Address(, , , True) & "=""Aucune"")*1)")

Cordialement.