Ajouter un montant à un total VBA

Bonjour,

Je cherche un macro qui me permettrait D'ajouter (additionné)les montants au total commul dans la feuille Caisse selon la date de saisie.

Dans le fichier ci-joint exemple suivant plus d'explication.

Merci d'avance

Bonjour,

Un essai sans VBA

Cdlmnt

Re Bonjour

merci pour votre réponse très rapide !

je souhaite le montant cumulé selon la date de saisie

ex: 01/05/2017 =======> saisie 100 résultat 100

=======> saisie 50 résultat 150

=======> saisie 20 résultat 170

========>saisie 30 résultat 200

=======> saisie 200 résultat 400

=======> saisie 100 résultat 500

merci et cordialement.

Je n'ai pas bien compris, je te propose cette macro peut être répondra-t-elle à ta préoccupation.

Ex: Columns("A:B").sort Key1=Range("A1")

Pour qu'elle s'exécute automatiquement lorsque la feuille s'active, place la dans le code de la feuille.

Clic droit sur la feuille dans vba editor, puis code. Enfin remplace "Général" par Worksheet et place la macro.

J'espère qu'elle t'aidera

Cordialement

Bonjour,

Un début de réponse à étudier et à adapter.

Cdlt.

Bonjour le forum

Bonjour Azedes , Jean-Eric

je tiens à vous remercier pour votre aide et votre soutien

Je vais essayer de simplifier les choses en deux points:

1- additionner tous les entrées du même jour dans une seule cellule selon la date.

2-vider (effacer) les cellules après validation.

Le fichier joint plus de précisions

corollairement

Re,

Une nouvelle proposition.

Cdlt.

bonjour à tous mes amis du forum

premièrement veuillez m'excuser pour ma réponse tardive

je souhaite voir les résultats directement sans passer aux TCD (afficher les toux (cumul du journée)

merci beaucoup pour votre collaboration

cordialement

Bonjour à tous,

zinelamri, affecte cette macro à ton bouton

Tu pourrais aussi utiliser Application.Match

Sub test()
Dim i As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Saisie")
        dico.Item(.Cells(7, 4).Value) = .Cells(7, 5).Value
    End With
    With Sheets("Caisse")
        For i = 2 To .Rows.Count
            If dico.exists(.Cells(i, 1).Value) Then
                .Cells(i, 2).Value = dico.Item(.Cells(i, 1).Value) + .Cells(i, 2).Value
                Sheets("Saisie").Cells(7, 5).ClearContents
                Exit For
            End If
        Next
    End With
    Set dico = Nothing
End Sub

klin89

bonjour ,

C'est exactement ce que je cherche

Merci pour votre gentillesse et votre attention

Merci beaucoup pour votre aide et vos réponses.

merci à tous, merci au forum

cordialement.