Compte sur excel

salut
il faudrait savoir comment est structuré ton fichier.
peux-tu mettre un exemple sur cjoint ?
quelle version d'excel ?

Salut tu pourrais faire comme ca:

dans une cellule quelconque tu entre la formule :

=DAY() ou (=AUJOURDHUI() en français)

cela te retourne la date du jour.

dans la cellule ou tu veux faire ta somme en fonction d'un jour en particulier tu entres:

=IF(DAY(B2)=15;SUM(B1:B26;""))

en d'autres termes:

=IF(DAY(cellule ou tu as entré la formule DAY)=le jour durant lequel tu veux faire la somme;SUM(la plage de cellules que tu veux sommer;ne rien faire si le jour n'est pas le bon))

Alors? pas de nouvelles bonnes nouvelles???

Bonjour,

Désolée je n"étaits pas là hier. Merci pour les formules je vais essayer. Mon fichier se présente ainsi :

DATE LIBELLE RECETTES DEPENSES SOLDE

JUILLET BLAB BLA BLA 0,00 150 € 150 €

Parcontre, Dans les recettes dépenses et solde j'ai déjà des formules...

bonjour,

difficile sans voir la bête
mets un extrait de ton classeur (sans données confidentielles) sur
https://www.cjoint.com/
et colles le lien proposé dans ton message

https://www.cjoint.com/?hrk6HkkBeU

Re, ci joint proposirtion
https://www.cjoint.com/?hrmgL8508r

J'ai construit à partir de la colonne N un tableau des jour d' échéances fixes

Lorsque tu ouvres ton classeur la macro dans le module thisworkbook déclenche la procédure d'inscription

Private Sub Workbook_Open()
inscrire_echeance
End Sub

qui inscrit les échéances du jour (aujourdhui 17 edf en dépenses et intér^ts en recettes)

Sub inscrire_echeance()
Dim lig As Byte, jour As Range

For Each jour In Range("jour_ech")
    lig = Range("A255").End(xlUp).Row + 1
    If jour = Day(Date) Then
        Cells(lig, 1) = Date
        Cells(lig, 2) = jour.Offset(0, 1)
         If Not IsEmpty(jour.Offset(0, 2)) Then
            Cells(lig, 3) = jour.Offset(0, 2)
        Else
            Cells(lig, 5) = jour.Offset(0, 3)
        End If
    End If
Next
End Sub

enfin pour réinitialiser (remise à zéro)
Sub reinitialiser()
Range("A6:C200").ClearContents
Range("E6:E200").ClearContents
End Sub

merci beaucoup je vous dirai si ça fonctionne les jours prévus :o)