Planning Automatique

[vieta34]

Bonjour,
J'ai créer un planning automatique avec une liste deroulant qui affiche a la demande le mois est l'annee, mon souci est que dans ce planning si je rentre des infos en face de mes collaborateurs, les infos ne reste pas quand je change de moi et que je reviens sur le mois choisi
pouvez vous m'aider
le doc est un PJ
Merci par avance

 

[JHA]

Bonjour à tous,

Lien macro retiré sur les listes et modif formule en "B4"

JHA

 

[job75]

Bonjour vieta34, JHA,

Il faut une colonne pour chacun des jours possibles si l"on veut conserver les plannings.

Voyez le fichier joint et ces 2 macros (clic droit sur l'onglet et Visualiser le code) :

Private Sub ComboBox1_Change()
Dim dat&, col1 As Variant, col2%
Application.ScreenUpdating = False
Rows(4).UnMerge: Rows(4).ClearContents 'RAZ
Columns.Hidden = False
If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
dat = CLng(CDate("1 " & ComboBox1 & " " & ComboBox2))
col1 = Application.Match(dat, Rows(6))
If IsError(col1) Then Exit Sub
dat = DateSerial(Year(dat), Month(dat) + 1, 0)
col2 = Application.Match(dat, Rows(6))
Columns(2).Resize(, Columns.Count - 1).Hidden = True
Columns(col1).Resize(, col2 - col1 + 1).Hidden = False
With Cells(4, col1)
  .Resize(, col2 - col1 + 1).Merge
  .Value = "Période du " & Cells(6, col1) & " au " & Cells(6, col2)
End With
End Sub

Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub

Les listes déroulantes sont des ComboBox (contrôles ActiveX).

A+

 

[vieta34]

Bonjour job75, JHA

Ca à l'air de marche pour moi, merci beaucoup les gars c'est parfait.

 

[vieta34]

Petite question est-il possible de rajouter une colonne avec le total pour la semaine selectionne? mais avec le total par ligne et pas par colonne comme il existe deja en bas.
J'ai rajouter une colonne qui fait les totaux, mais quand je change de mois elle disparaît ce qui est logique
Encore merci pour votre aide

 

[Christian0258]

Bonjour à tout le forum, vieta34, job75,

Je me permet de revenir sur ce très beau travail, de job 75, pour réitérer la demande de vieta34, à savoir insérer une colonne en fin de mois.
Dans le même esprit pourriez, insérer une ou plusieurs colonnes en début et en fin de mois.
L'idéal, pour satisfaire chacun, étant de pouvoir paramétrer, dans la macro, le nombre de colonne(s) à insérer en début et fin de mois.
En vous remerciant, par avance.
Bien amicalement,
Christian

 

[JCGL]

Bonjour à tous,
Salut Gérard,
Salut Christian,

Avec le code de Job et une formule en colonne B.

A+ à tous

 

[Christian0258]

Re, le forum, JCGL

Salut, Jean-Claude, merci pour ton aide
Ok, pour l'ajout de la colonne B avec formule, mais toujours pas de colonne(s) en fin de mois ?

Bien à toi.
à+
Christian

 

[Christian0258]

Re, bonjour à tout le forum,

Alors les amis, job75, pas d'idée ou pas inspirés par me demande...lol

à vous lire.
Bien à vous,
Christian