CHRISTOPHEAGPM
XLDnaute Nouveau
Bonjour le forum,
L'un d'entre vous peut t'il m'expliquer comment transformer la dernière partie de la formule suivante en code VBA ?
En sachant que :
Je bute sur la partie
Pour le reste, grace à vous j'ai trouvé la solution suivante (avec une boucle) :
L'un d'entre vous peut t'il m'expliquer comment transformer la dernière partie de la formule suivante en code VBA ?
Code:
=SOMMEPROD((récapitulatif!$G$10:$G$1099='Production HA & Fam'!F$3)*(récapitulatif!$I$10:$I$1099='Production HA & Fam'!$C7)*(récapitulatif!$H$10:$H$1099='Production HA & Fam'!$B$4)*(récapitulatif!$BH$10:$BH$1099>=1))
En sachant que :
Code:
Dim rng As Range, M As Integer
With Worksheets("récapitulatif")
M = .Range("G10").End(xlUp).Row
Set rng = .Range("G1099:G" & M)
rng.Name = "ColG"
Set rng = .Range("I1099:I" & M)
rng.Name = "ColI"
Set rng = .Range("H1099:H" & M)
rng.Name = "ColH"
Set rng = .Range("BH1099:BH" & M)
rng.Name = "ColBH"
Je bute sur la partie
Code:
(récapitulatif!$BH$10:$BH$1099>=1))
Pour le reste, grace à vous j'ai trouvé la solution suivante (avec une boucle) :
Code:
E = .Range("f3"): C = .Range("C" & L)
.Cells(L, 6) = Evaluate("sumproduct((ColG=""" & E & """)*(ColI=""" & C & """)*(ColH=""" & B & """))")