3 cycles

[papillon28400]

Bonjour à tous,
J'ai commencé à créer dans Excel 2007, un fichier qui comprend plusieurs colonnes corresponant à des cycles (voir pj : 2 onglets)

Les principales sont :
cycle 1 qui correspondant à une date bien définie

cycle 2 qui correspondant à une date bien définie

Les dates de ces colonnes sont à saisir

La 2ème ligne du 1er cycle jusqu'à la fin est une formule de calcul
(MOIS.DECALER_REF CELLULE;1)

idem pour le 2ème cycle

idem pour le 3ème cycle

Mon problème est le suivant :
Les colonnes de chaque cycle doivent être de la même longueur et les dates de saisie sont bien spécifiques.
Elles ne sont pas de la même longueur pour chaque cas.

Voir le fichier Excel en exemple (2 onglets)

A part effacer les lignes manuellement bien sur, pouvez vous m'apporter une aide pour automatiser ou me suggérer une solution. Est ce que vous pouvez m'aider également pour automatiser les colonnes B, E et H. Ces colonnes s'alimentent comme suit :
1 pour la date historique 1
2 pour la date anniversaire
3 idem
etc

Merci de votre collaboration

Cordialement

 

[JNP]

Re : 3 cycles

Bonjour Papillon28400 🙂,
Entre comprendre ton problème, puis le résoudre, bonjour l'angoisse...
Enfin, après avoir fait frétiller mes neurones, voici le code que je te propose:

Sub Remplissage()
Range("a2", "j500").ClearContents
Dim Début As Date, Fin As Date, DateIntermédiaire As Date, Hauteur As Integer, I As Integer
On Error GoTo Sortie
Début = InputBox("Date de début ?")
Fin = InputBox("Date de fin ?")
On Error GoTo 0
If Fin < Début Then Exit Sub
DateIntermédiaire = Début
Hauteur = ((Month(Fin) + Year(Fin) * 12) - (Month(Début) + Year(Début) * 12)) / 3
If Hauteur <> Int(Hauteur) Then Hauteur = Int(Hauteur) + 1
For I = 2 To Hauteur + 1
Cells(I, 3) = DateIntermédiaire
Cells(I, 6) = DateAdd("m", Hauteur, DateIntermédiaire)
Cells(I, 9) = DateAdd("m", Hauteur * 2, DateIntermédiaire)
DateIntermédiaire = DateAdd("m", 1, DateIntermédiaire)
Next I
For I = 2 To Hauteur + 1
If Month(Cells(I, 3)) = Month(Début) Then Cells(I, 1) = Year(Cells(I, 3)) - Year(Début)
If Month(Cells(I, 6)) = Month(Début) Then Cells(I, 5) = Year(Cells(I, 6)) - Year(Début)
If Month(Cells(I, 9)) = Month(Début) Then Cells(I, 8) = Year(Cells(I, 9)) - Year(Début)
Next I
Exit Sub
Sortie: Exit Sub
End Sub

Il fonctionne, je l'ai testé. Il te restera à faire la présentation. Il peut être amélioré en y ajoutant la présentation. J'ai par contre considéré que tu faisais 3 colonnes égales, donc la date de fin peux être dépassée. Il suffira juste d'effacer la ou les 2 dernières cellules.
Bon courage 😎

 

[JNP]

Re : 3 cycles

Bonjour Papillon28400, le forum 🙂,
Merci d'avoir répondu à mon MP. Ça permet de clore ce fil en considérant que le problème est résolu.
Bonne soirée 😎