Mensualites

[JOUB42]

🙂 Bonsoir à tous

Je recherche une solution si possible pour créer des formules pour mon compte bancaire pour faire apparaitre mes mensualités automatiques par rapport aux dates.

Je vous joint mon tableau qui sera peut-être plus explicite!.....
je vous remercie de votre aide......

 

[michel_m]

Re : Mensualites

Bonsoir Joub,

C'est bien parce que les verts ont gagné que je t'envoie cette procécure valable quelque soit le mois A toi de voir si tu tu mets des boutons ou worksheet_activate

Sub mensualiser()
Dim date_jour As Date
Dim nbre As Long, valide As Long, lig As Long, lig_srce As Long, cptr As Long


date_jour = Range("journee")
nbre = Application.CountIf(Range("date_op"), date_jour)
valide = Application.CountIf(Range("A4:A2000"), date_jour)
If nbre = 0 Or valide > 0 Then: Exit Sub


lig = Range("A2000").End(xlUp).Row + 1
With Sheets("recap")
lig_srce = .Columns(1).Find(date_jour, .Range("A4"), , , xlByRows).Row

cptr = 1
While cptr <= nbre
tablo = .Range(.Cells(lig_srce, 1), .Cells(lig_srce, 4))
ActiveSheet.Range(Cells(lig, 1), Cells(lig, 4)) = tablo
lig = lig + 1
lig_srce = lig_srce + 1
cptr = cptr + 1
Wend

End With

End Sub

nota: marque date dans A4 de décembre...
dans "recap A5:A2000 est nommée date_op
dans "dec" , F2 est nommée "journee",

Et dis à Tata de penser à moi le 8 de chaque mois, d'avance merci !

 

[JOUB42]

Re : Mensualites

Bonsoir Michel_M

tout d'abord je te remercie pour ta rapidité, mais je ne suis pas un spécialiste dans les macros !...... et comme les verts ont gagné,peut-être peux-tu m'envoyer un exemple?....... MERCI

pour ce qui concerne TATA c'est trop tard, elle est ruinée !...........
Ont verra TOTO plus tard.......

 

[michel_m]

Re : Mensualites

Ci joint la bête
J'en ai profité pour enlever quelques aneries habituelles de ma part

 

[JOUB42]

Re : Mensualites

Bonjour Michel_m

Tout d'abord "le triste individu"🙂 tiens a s'excusé pour le double fil avec intitulé: écheancier. erreur de ma part pensant que mon exemple n'était pas assez explicite.......

je te remercie pour ton exemple.

 

[JOUB42]

Re : Mensualites

re bonsoir

Petite question que je n'arrive pas a pigé pourquoi la date
s'affiche en format 04/01/00 quand je me trouve sur mon fichier
decembre?......

Merci encore pour votre aide

 

[JOUB42]

Re : Mensualites

🙂 Bonjour à tous

Merci à Michel_m qui ma fait passé un exemple pour rédiger l'automatisation des mensualisations pour un compte bancaire qui fonctionne bien
mais j'ai un petit souci de format de date que je n'arrive pas a pigé pourquoi la date s'affiche en format 04/01/00 quand je me trouve sur mon fichier decembre?......😕

Merci encore pour votre aide