Re : [RÉSOLU MERVEILLEUSEMENT] Rendre le calendrier mensuel de David XLD pérenne
Bonjour,
Le titre RESOLU MERVEILLEUSEMENT est... merveilleusement trompeur car tant qu'il y a des questions et des bugs, rien n'est résolu.
A mon avis, pour rendre le calendrier vraiment pérenne, il serait souhaitable :
1) d'éviter ce que j'appelle la bataille navale et définir des noms de plages de cellules.
Sinon il y a des plantages lorsque l'on déplace les tableaux dans les feuilles
.Range("A4:G4,A6:G6,A8:G8,A10:G10")
Intersect(R, Range("A3:G3,A5:G5,A7:G7,A11:G11"))
Cells(65000, 1).End(xlUp)(2) = CDate(R(0, 1) & "/" & Month(F.[A1].Value) & "/" & Feuil14.[G8])
2) de ne pas mettre des noms de feuilles "en dur" dans le VBA mais les renommer puis corriger le code tel que ci-dessous
If F.Name <> Sh_Synthese.Name And F.Name <> Sh_annee.Name Then
au lieu de If F.Name <> "Synthèse" And F.Name <> "Choix Annee" Then
3) BUG : clic dans une cellule de la 1ere ligne des mois ==> plantage sur If R(0, 1) = "" Then
Dans dans If R(0, 1) = "" Then à quoi correspond ce R(0,1), une cellule ?
Ceci dit c'est une bonne initiative de vouloir améliorer une application.
Bonne continuation
Robert