SOMMEPROD 100% VBA

[JC de Lorient]

Bonjour le forum

Afin de limiter le nombre de formule conditionnée par la valeur d'une cellule je souhaiterais pouvoir ajouter des formules en VBA
explications:
j'ai ce code :
Dim agent, C As Range
Dim a
For Each agent In Sheets('Données').Range('C2:C' & Sheets('Données').Range('C65536').End(xlUp).Row)
With Sheets('Base').Columns(6)
Set C = .Find(agent, LookIn:=xlValues)
If Not C Is Nothing Then
If Month(Sheets('Base').Range(C.Address).Offset(0, -1)) _
= Month(Sheets('Gest Mens').Range('G1')) Then
a = Sheets('Gest Mens').Range('B65536').End(xlUp).Row + 1
Sheets('Gest Mens').Range('B' & a) = C
************
End If
End If
End With
Next

A la place des * je souhaiterais mettre des formules en VBA en colonne C, D, E, F et G
en colonne C et ligne a
=SOMMEPROD((Nom_Agent=B&a)*(MOIS(Terme)=MOIS($G$1)))
en colonne D E F (code semblable donc je devrais pouvoir m'en sortir a partir de le colonne C)
en colonne E =E&a/D&a
Le petit plus serait de pouvoir encadrer les cellules
En espérant avoir été suffisamment clair
merci a tous et bon week end Pascal

 

[Marc_du_78]

Bonjour Jean Charles,
Avec l'éditeur de macros j'obtiens :

ActiveCell.FormulaR1C1 = _
'=SUMPRODUCT((Nom_Agent=B&a)*(MONTH(Terme)=MONTH(R1C7)))'

Est-ce que ca répond à ta demande.
Bon Week end Pascal

 

[JC de Lorient]

re tout le monde
merci Marc
je pense que je devrais pouvoir me débrouiller avec ton aide
j'aurais juste voulu savoir comment formaler ceci :
Si je suis en B15, comment obtenir A15 en référence R1C1 ?
'=SUMPRODUCT((Nom_Agent=B&a)...
quelque chose comme Nom_Agent=offset(0,-1)

merci encore

 

[JC de Lorient]

re...

c bon j'ai trouvé !!!
=RC[-1]
merci encore