Bonjour à tous,
Voila j'aimerais améliorer mon tableau de suivi de trésorerie pour gagner du temps à la saisie. (Voir image en PJ).
En effet, il arrive souvent qu'un montant se reporte tous les mois à la même date. Pour éviter de devoir le noter sur tous les mois de l'année, je voulais réaliser une macro qui, en fonction du nom, de la date et du montant de l'échéance voulue, la note automatiquement au bon endroit dans l'ensemble des mois du calendrier.
Voici la macro que j'ai réalisé, qui ne fonctionne pas très bien...
La macro fonctionne bien sur l'onglet ouvert mais ne parcours pas du tout les autres onglets.
Autre problème, pour une échéance par exemple le 31 de chaque mois, quid des mois à 30 jours (même problème pour le moi de février...)
Merci pour votre aide !
Voila j'aimerais améliorer mon tableau de suivi de trésorerie pour gagner du temps à la saisie. (Voir image en PJ).
En effet, il arrive souvent qu'un montant se reporte tous les mois à la même date. Pour éviter de devoir le noter sur tous les mois de l'année, je voulais réaliser une macro qui, en fonction du nom, de la date et du montant de l'échéance voulue, la note automatiquement au bon endroit dans l'ensemble des mois du calendrier.
Voici la macro que j'ai réalisé, qui ne fonctionne pas très bien...
Code:
Sub Macro1()
'
Dim Feuille As Worksheet
Dim nom As String
Dim date1 As Integer
Dim montant As Single
For Each Feuille In ActiveWorkbook.Sheets
Cells(Range("settings!date1") + 7, 2).Select
ActiveCell.FormulaR1C1 = Range("settings!nom")
Cells(Range("date1") + 7, 3).Select
ActiveCell.FormulaR1C1 = Range("settings!montant")
Next Feuille
[ATTACH]291015.vB[/ATTACH][ATTACH]291016.vB[/ATTACH]End Sub
La macro fonctionne bien sur l'onglet ouvert mais ne parcours pas du tout les autres onglets.
Autre problème, pour une échéance par exemple le 31 de chaque mois, quid des mois à 30 jours (même problème pour le moi de février...)
Merci pour votre aide !