Discussion :

[BERRACHED SAID]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[BERRACHED SAID]

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

[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"

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

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.

[BERRACHED SAID]

Merci Menhir

impeccable mon cher ami très très bien

bonne journée