Syntaxe sommeprod vba
Bonjour
quelqu'un peut il me dire l'erreur de synthaxe que j'ai !!
etbc, etbf, np et cc sont des variables définies
Dim spe As String
Dim np As String
Dim etbc As String
Dim etbf As String
Dim frml As String
Dim cc As String
For i = 8 To derniereligne
'affectation des valeurs
np = Cells(i, 4).Value
etbf = Cells(i, 7).Value
etbc = Cells(i, 6).Value
spe = Cells(i, 3).Value
'recherche valeur
For j = 8 To 91
cc = Cells(5, j).Value
Select Case spe
Case Is = "0-ENCADR" '("NED", "LED", "VED")
Cells(i, j).formula = "=SUMPRODUCT((""&Sheets(""Rapport48_Origine"").Range(""J:J"").Value&""=""&np&"")*(""&Sheets(""Rapport48_Origine"").Range(""AE:AE"").Value&""="&etbc&"")*(""&Sheets(""Rapport48_Origine"").Range(""AX:AX"").Value&""="&etbf&"")*(""&Sheets(""Rapport48_Origine"").Range(""AH:AH"").Value&""="&cc&"")*((""&Sheets(""Rapport48_Origine"").Range(""AW:AW"").Value&""=NED)+(""&Sheets(""Rapport48_Origine"").Range(""AW:AW"").Value&""=LED)+(""&Sheets(""Rapport48_Origine"").Range(""AW:AW"").Value&""=VED)>0)*(""&Sheets(""Rapport48_Origine"").Range(""DG:DG"").Value&""))"
Case ...
End Select
Next j
Next i
quelqu'un peut il me dire l'erreur de synthaxe que j'ai !!
etbc, etbf, np et cc sont des variables définies
Dim spe As String
Dim np As String
Dim etbc As String
Dim etbf As String
Dim frml As String
Dim cc As String
For i = 8 To derniereligne
'affectation des valeurs
np = Cells(i, 4).Value
etbf = Cells(i, 7).Value
etbc = Cells(i, 6).Value
spe = Cells(i, 3).Value
'recherche valeur
For j = 8 To 91
cc = Cells(5, j).Value
Select Case spe
Case Is = "0-ENCADR" '("NED", "LED", "VED")
Cells(i, j).formula = "=SUMPRODUCT((""&Sheets(""Rapport48_Origine"").Range(""J:J"").Value&""=""&np&"")*(""&Sheets(""Rapport48_Origine"").Range(""AE:AE"").Value&""="&etbc&"")*(""&Sheets(""Rapport48_Origine"").Range(""AX:AX"").Value&""="&etbf&"")*(""&Sheets(""Rapport48_Origine"").Range(""AH:AH"").Value&""="&cc&"")*((""&Sheets(""Rapport48_Origine"").Range(""AW:AW"").Value&""=NED)+(""&Sheets(""Rapport48_Origine"").Range(""AW:AW"").Value&""=LED)+(""&Sheets(""Rapport48_Origine"").Range(""AW:AW"").Value&""=VED)>0)*(""&Sheets(""Rapport48_Origine"").Range(""DG:DG"").Value&""))"
Case ...
End Select
Next j
Next i
2 réponses
-
Bonjour
Quelques remarques
R1. La fonction SOMMEPROD n'admet pas de colonnes entières "J:J", "AE:AE"
R2. Tu aurais intérêt à construire ta formule étape par étape et à la contrôler au fur et à mesure
un début (pour des plages allant de la ligne 1 à la ligne 10)
Const nomf = "Rapport48_Origine"
Dim f as string
'...
f = "=SUMPRODUCT((" & nomf & "!J1:J10=" & np & ")"
f = f & "*(" & nomf & "!AE1:AE10=" & etbc & "))"
'...
ActiveSheet.Cells(i, j).Formula = f
http://www.cjoint.com/c/FFConLrRYTu
Cdlmnt -
Tu les intègres à leur place dans f
f = "=SUMPRODUCT((" & nomf & "!J1:J10" & np & ")"
f = f & "*(" & nomf & "!AE1:AE10=" & etbc & ")"
f = f & "+(" & nomf & "!AZ1:AZ10>0" & "))"
Cdlmnt
