macro somme d'une plage de cellule en fonction de la date

Alex52 à dit:

Bonjour Papou-net : bonjour le forum 🙂


Merci de ta réponse Papou-net Je viens de tester ta solution (j'étais parti en week-end 😀)elle fonctionne très bien maitenant j'aurais voulu rajouter une dernière petite chose :
-serait'il possible de rajouter une condition a l'execution du calcul ?
je m'explique : outre la condition sur la date j'aurais aimé pouvoir faire un autre test sur autre colonne (ex colonne D) par exemple si la valeur de la colonne D > 0 ce qui donnerait : si date = aujourd'hui et si valeur de la colonne D >0 alors je fais la somme que j'inscrit dans la colonne A de la feuille 1.

J'ai essayer d'adapter le code que tu m'as fournit sans succès :

Code:

Private Sub CommandButton1_Click()
attente = 0
cell = Range(D2:D & Range(D65536).End(xlUp).Row)
If Cells(cell.Row, 2) > 0 Then
For Each cel In Range(A2A & Range(A65536).End(xlUp).Row)
  If Cells(cel.Row, 1) = Date Then attente = attente + Cells(cel.Row, 2)
Next
With Sheets(Feuil1)
  lg = .Range(A65536).End(xlUp).Row + 1
  .Cells(lg, 1) = Date
  .Cells(lg, 2) = attente
End With
End If
End Sub

Je te remercie de m'accorder du temps pour résoudre mes petits problèmes de débutant.

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
attente = 0
For Each cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
  If Cells(cel.Row, 1) = Date [COLOR="Red"][B]And Cells(cel.Row, 4) > 0[/B][/COLOR] Then attente = attente + Cells(cel.Row, 2)
Next
With Sheets("Feuil1")
  lg = .Range("A65536").End(xlUp).Row + 1
  .Cells(lg, 1) = Date
  .Cells(lg, 2) = attente
End With
End Sub