XL 2010 Calendrier du Personnel

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Avril 2020

• #2

Bonjour X-man,
Si vous écrivez C en cellule F8, rien ne le fera bouger.
Lorsque vous changez de mois, vous changer l'affichage des jours mais en aucun cas vous ne touchez à la cellule F8.
Pour que ça marche il faut "quelque chose" qui mémorise l'information quelque part, puis vous la restituera lorsque vous reviendrez sur le mois.
L'autre solution est d'utiliser 365 colonnes. Dans ce cas le changement de mois provoque un décalage des colonnes à l'affichage et les informations précédentes sont conservées.

 

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 27 Avril 2020

• #3

Oui 365 colonnes visuellement c'est pas le top mais bon ..Y'a il un moyen de faire 365 colonnes et de pouvoir les parcourir avec une liste déroulante de mois et d'année ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Avril 2020

• #4

Dans ce cas le changement de mois provoque un décalage des colonnes à l'affichage

Cliquez pour agrandir...

Il y a 365 colonnes mais seules 30 affichées à l'écran.
La liste déroulante sert alors à décaler les mois sur l'écran.

 

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 27 Avril 2020

• #5

Oui voilà !

 

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 29 Avril 2020

• #6

RE @sylvanu
Est ce que t'as une idée comment je peux faire ça ?

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 29 Avril 2020

• #7

Bonsoir @Utilisateur_X , @sylvanu , le Forum

J'ai appliqué l'idée de Sylvanu avec un Calendrier de 365 jours, par contre j'utilise un "Control" Combobox et plus un "Form" ComboBox, car c'est bien plus paramétrable en VBA, mais évidemment le classeur devient XLSM.

C'est un calendrier 2020, il te faudra le copier et le réadapter pour 2021, mais relativement assez simplement.
Voir les codes dans Private Sub Workbook_Open() et dans Sheet1 Private Sub ComboBox1_Change()
Ils sont relativement simples à comprendre.

Bonne découverte
Bien à toi, à vous
@+Thierry

 

Pièces jointes

• XLD_Utilisateur_X_Calendrier_Test_Year_2020.xlsm

  102.6 KB · Affichages: 18

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 29 Avril 2020

• #8

Bonsoir
C'est parfait je te remercie infiniment.
Juste une petite question : Est ce que tu pense que je peut intégrer mes 2 feuille dans mon fichier initial(Faire une copie des deux feuilles et les recopier dans un autre fichier qui comporte d'autres données) ?
Encore merci je vais essayer de relire ton code pour comprendre ce que t'as fait.

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 29 Avril 2020

• #9

Re Bonsoir @Utilisateur_X , @sylvanu

Oui c'est possible, le code de Private Sub ComboBox1_Change() devrait suivre avec la copie de la Feuil1 (Sheet1)... Par contre PAS celui de ThisWorkBook Private Sub Workbook_Open() que tu devras copier au même endroit dans ton classeur de destination.

Et bien entendu, tu commences avec une copie de ton fichier de destination pour être sûr que tout se passe bien !

Les autres feuilles/donnée ne devraient pas interférer avec l'inclusion de ces feuilles et des codes. (et vice-versa !)

Bonne soirée
@+Thierry

 

Vote positif 0 Vote négatif

Solution

U

Utilisateur_X

XLDnaute Occasionnel

• 29 Avril 2020

• #10

Merci énormément.
Bonne soirée

 

Vote positif 0 Vote négatif