Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

3 cycles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion papillon28400
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

papillon28400

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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:
Code: 
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 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

E
  • Question Question
XL 2021 Planning agent
Réponses
5
Affichages
412
fanfan38
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
812
MarineU
M
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
753
sylvanu
C
  • Question Question
Microsoft 365 Actualisation de TCD
Réponses
12
Affichages
372
Dan
A
  • Question Question
XL 2021 Consommation en fonction des semaines
Réponses
1
Affichages
243
sylvanu
J
  • Question Question
XL 2019 index equiv avec fonction ou sur plusieurs feuilles
Réponses
11
Affichages
910
job75
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
854
Nino63
N
T
  • Résolu(e)
XL 2016 Problème sécutité Microsoft Office dans Excel 2016
Réponses
6
Affichages
226
TooFatBoy
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
742
Musbek
M
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
813
floflatch22
F
P
  • Résolu(e)
Microsoft 365 Comparaison 2 tableaux EXCEL différents
Réponses
12
Affichages
807
Peter DOE
P
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
295
Kristelle1555
K
L
  • Question Question
XL 2021 [Power Query] Appliquer un nettoyage identique sur plusieurs tableaux d'une même documentation
Réponses
1
Affichages
202
chris
S
  • Résolu(e)
XL 2021 Graphique TCD par date
2
Réponses
20
Affichages
786
Hecatonchire
H
F
  • Question Question
Microsoft 365 Tableau Excel mettre une couleur
Réponses
11
Affichages
361
chris
I
  • Résolu(e)
Microsoft 365 Compte Tva sur les encaissements
2
Réponses
21
Affichages
672
JFL_XLD
J
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
795
lynyrd
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
346
flea
F
P
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
396
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…