Modif macro mensuelle en trimestrielle et annuelle également

Le 17/09/2014 à 09:25

Bonjour à toutes et à tous,

j'ai un feuille excel dans lequel est placé un certain nombres d'infos.

une macro est chargée de copier ces lignes le jour du mois concerné dans un autre onglet.

cela fonctionne bien jusque-là

Date / le de chaque mois Dernière Opération Info1 Info2 Info 3 etc.

5 05/09/2014

7 07/09/2014

11 11/09/2014

Néanmoins jusqu'ici je me limitait à des copies mensuelles, seulement voila j'ai besoin de désormais plus de possibilités:

mensuelles
trimestrielles (mois à définir)
annuel (mois à définir)

mais je vois pas comment procéder pour intégrer ces possibilités.

il faudrait que la macro vérifie le jour comme maintenant mais aussi les mois pour lesquels une copie doit être faite.

ma macro actuelle:

Sub prelevement_auto_joint()
Dim i As Integer

Dim Jour
Dim nom As String

Jour = Format((Day(Date)))

For i = 8 To Sheets("Prélèvement automatique Joint").Range("D65536").End(xlUp).Row
If Date > DateSerial(Year(Range("D" & i).Value), Month(Range("D" & i).Value), Day(Range("D" & i).Value)) And Jour = Cells(i, 3).Value Then

Select Case Month(Date)
        Case 1: nom = "Janvier CJ"
        Case 2: nom = "Février CJ"
        Case 3: nom = "Mars CJ"
        Case 4: nom = "Avril CJ"
        Case 5: nom = "Mai CJ"
        Case 6: nom = "Juin CJ"
        Case 7: nom = "Juillet CJ"
        Case 8: nom = "Août CJ"
        Case 9: nom = "Septembre CJ"
        Case 10: nom = "Octobre CJ"
        Case 11: nom = "Novembre CJ"
        Case 12: nom = "Décembre CJ"
    End Select

    Range("D" & i) = Date
    Range("D" & i & ":P" & i).Copy Sheets(nom).Range("D" & Sheets(nom).Range("D65536").End(xlUp).Row + 1)
End If
Next
End Sub

Le 17/09/2014 à 09:42

Bonjour,

As-tu pensé à utiliser les tableaux croisés dynamiques (TCDs)?

Si tes données sont normalisées, évidemment.

Maintenant sans fichier, il va être difficile au forum de t'apporter une aide adaptée.

Cdlt..

Le 17/09/2014 à 12:20

Bonjour,

merci pour votre retour,

Je ne pense pas que les tableaux dynamiques puissent m'aider ici.

J'ai crée un fichier exemple pour illustrer mieux les choses.

J'ai un onglet Prélèvement dans lequel je liste les prélèvements à venir.

jusqu'ici les prélèvements étant mensuel la macro fonctionne nickel et me copie colle la ou les lignes respectant ma condition dans le mois concerné. j'ai juste mis le mois de septembre pour simplifier.

En D12 j'ai mis la date suivante: 17/08/2014

le jour du 17 étant respecté et la date étant passée alors ok on copie colle dans le mois concerné

Seul soucis je souhaite desormais ajouter une fonction dont j'ai besoin.

Il me faut pouvoir faire en sorte que ce soit un copier coller uniquement trimestrielles ou annuel mais il me faut pouvoir definir le mois.

Comment procéder donc?

Merci!

31classeur1.xlsm (20.71 Ko)

Le 18/09/2014 à 10:05