XL 2010 SUMPRODUCT

[kaid]

bonjour svp j'ai un classeur excel qui contient un tableau avec des données. dans la feuille ("base") colonne "E5" j'ai les noms des banques et dans la colonne "G5" j'ai les montants.
dans la feuille ("stat") colonne "C5" j'ai les noms des banques et dans la colonne "D5" j'ai les montants j'ai fait mis code vba avec SUMPRODUCT: mais ça ne fonctionne pas aidez moi svp



Private Sub CommandButton1_Click()
Dim Plage1 As Range
Dim Plage2 As Range
Dim Chaine As String
Dim k As Integer
Set Plage1 = Sheets("base").Range("g3:g10000")
Set Plage2 = Sheets("base").Range("e3:e10000")

For k = 5 To 10
Chaine = Sheets("stat").Range("C" & k).Value
Workbooks("FG+ listebox").Worksheets("stat recouvrement").Range("D" & k).FormulaR1C1 = "=SUMPRODUCT(" & Plage1 & "*(" & Plage2 & "=" & Chaine & "))"
Next k


End Sub

 

[Lone-wolf]

Re kaid

supprime la macro, supprime aussi BEA qui est a double et ensuite

=SOMMEPROD((BASE!$G$2:$G$65536>0)*(BASE!$E$2:$E$65536=C5))

 

[Lone-wolf]

Bonsoir kaid

en VBA

Option Explicit

Private Sub CommandButton1_Click()
Dim derlig As Long,  i As Long

  With Sheets("BASE")
  derlig = .Range("e" & Rows.Count).End(xlUp).Row

  For i = 5 To 10
  Range("d" & i) = Application.SumIf(.Range("e3:e" & derlig), Range("c" & i), .Range("g3:g" & derlig))
  Range("f" & i) = Application.CountIfs(.Range("c3:c" & derlig), Range("h" & i), .Range("e3:e" & derlig), Range("c" & i))
  Range("g" & i) = Application.CountIfs(.Range("c3:c" & derlig), Range("i" & i), .Range("e3:e" & derlig), Range("c" & i))
  Next i
  End With
End Sub

 

[kaid]

je vous remercie vous êtes un ange

 

[kaid]

bjr je ne sais pas quoi dire je vous remercie vous étés un ange