SommeProd d'une colonne en VBA

Bonjour le Forum et bonne journée

je voudrais obtenir la somme total des règlements opérer par date se trouvant dans la feuil2 nommé BD puis transcrire le résultat dans la feuil10 nommé Recap

j'ai mis au point se petit bout de code mais il fonctionne pas j'attends vos précieuses aides et merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Total() Dim Plage1 As Range, Plage2 As Range, Resultat As Integer Dim Chaine As String   Chaine = CDate(UserForm10.TextBox1.Value) Set Plage1 = Feuil2.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Set Plage2 = Feuil2.Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row) 'Resultat = Evaluate("SUM((" & Plage1.Address & "=" & Plage2.Address & ")*1)") 'Range("C1") = Evaluate("SumProduct(" & Plage1 & "*(" & Plage2 & "=""" & Chaine & """))") Resultat = Evaluate("SumProduct(" & Plage1.Address & "*(" & Plage2.Address & "=""" & Chaine & """))") Feuil10.Range("C10") = Resultat 'MsgBox Resultat End Sub

---

Bonne journée

En dehors du fait qu'il y a plusieurs erreurs dans ton code (il faut utiliser Worksheets() pour désigner un onglet), il vaut mieux éviter, d'une manière générale, de reproduire en macro les méthodes utilisées en fonctions. Les méthodes et procédures sont complètement différentes.

Je ne comprends pas très bien ce qu'est supposée faire ta macro mais je pense que celle ci-dessous devrait convenir.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Total() Dim Ligne as Integer Dim Chaine As String   Chaine = CDate(UserForm10.TextBox1.Value)   With Worksheet("Feuil2") Feuil10.Range("C10") = 0 For Ligne = 2 to .cells(Rows.Count,1).End(xlUp).Row If .Cells(Ligne,6)=Chaine then Feuil10.Range("C10") = Feuil10.Range("C10") + .Cells(Ligne,1) Next Ligne End With   End Sub

---

J'ai laissé le UserForm pour renseigner Chaine mais je ne pense pas que ce soit approprié.

merci menhir

j'ai essayé le code mais il me donne 0 pas de somme, mais je tiens a vous préciser que dans la feuil2 "BD"

la colonne A2:A c'est celle des dates
la colonne F2:F Cest celle des montant qu'il faut totaliser

merci encore une fois

Citation:

---

Envoyé par BERRACHED SAID

j'ai essayé le code mais il me donne 0 pas de somme, mais je tiens a vous préciser que dans la feuil2 "BD"

---

Si la feuille où se trouve tes données s'appelle BD alors remplace Feuil2 par BD dans la macro.

Citation:

---

la colonne A2:A c'est celle des dates
la colonne F2:F Cest celle des montant qu'il faut totaliser

---

Dans la macro, tu changes "Ligne,1" par "Ligne,6" et réciproquement.

Merci Menhir

impeccable mon cher ami très très bien :bravo::bravo::bravo::bravo::bravo::bravo:

bonne journée