A voir également:
- Faire une somme mensuelle en fonction de la date
- Fonction si et - Guide
- Fonction somme excel - Guide
- Somme si couleur - Guide
- Publipostage date en anglais ✓ - Forum Excel
- Trouver une date de naissance gratuit - Forum Webmastering
2 réponses
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 702
6 janv. 2014 à 17:06
6 janv. 2014 à 17:06
Bonjour Rick
C'est possible avec une macro
Exemple à adapter à tes besoins : https://www.cjoint.com/?0AgrfANU8xh
Cdlmnt
C'est possible avec une macro
Exemple à adapter à tes besoins : https://www.cjoint.com/?0AgrfANU8xh
Cdlmnt
Super merci beaucoup !
Ça correspond pas mal à ce que je recherchais. Y aurait-il moyen d'automatiser le transfert à chaque fin de mois ? Sinon tans pis c'est déjà la classe comme ça !!!
Ça correspond pas mal à ce que je recherchais. Y aurait-il moyen d'automatiser le transfert à chaque fin de mois ? Sinon tans pis c'est déjà la classe comme ça !!!
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 702
6 janv. 2014 à 21:49
6 janv. 2014 à 21:49
Possible à ce moment de transférer automatiquement à l'ouverture du classeur le 1er de chaque mois les dépenses loisirs du mois précédent en mettant une macro de ce style dans le workbook de l'éditeur (et supprimer la 1 ere macro)
Private Sub Workbook_Open()
jour = Day(Date) ' recupere jour actuel
If jour > 1 Then Exit Sub 'si un autre jour que le 1er sortie sans rien faire
'sinon on récupère le n° du mois en cours et on décale de 1 en arrière (sauf pour janvier ou on prend 12 et pas 0)
If Month(Date) = 1 Then mois = 12 Else mois = Month(Date) - 1
Total = Sheets("Budget loisirs mensuel").Range("B5").Value ' recupere le total mensuel
Sheets("Budget général").Cells(5, mois + 1).Value = Total ' insere le total dans le général en ligne 5 et en colonne n° du mois +1 (car janvier est en colonne 2 etc)
Sheets("Budget loisirs mensuel").Range("A8:B60").Select ' selectionne la plage des depenses mensuelles loisirs
Selection.ClearContents ' efface la plage
End Sub
Private Sub Workbook_Open()
jour = Day(Date) ' recupere jour actuel
If jour > 1 Then Exit Sub 'si un autre jour que le 1er sortie sans rien faire
'sinon on récupère le n° du mois en cours et on décale de 1 en arrière (sauf pour janvier ou on prend 12 et pas 0)
If Month(Date) = 1 Then mois = 12 Else mois = Month(Date) - 1
Total = Sheets("Budget loisirs mensuel").Range("B5").Value ' recupere le total mensuel
Sheets("Budget général").Cells(5, mois + 1).Value = Total ' insere le total dans le général en ligne 5 et en colonne n° du mois +1 (car janvier est en colonne 2 etc)
Sheets("Budget loisirs mensuel").Range("A8:B60").Select ' selectionne la plage des depenses mensuelles loisirs
Selection.ClearContents ' efface la plage
End Sub