XL 2019 Planning Excel

[marilu]

Bonjour,

Je souhaite faire une liste déroulante pour chaque mois, afin d'afficher le service,
J'ai tenté via "validation des données" mais cela ne fonctionne pas,
Également, si possible à l'ouverture du fichier d'afficher le mois en cours ?
Merci par avance

 

[sylvanu]

Bonjour Marilu,
Où voulez vous mettre votre liste déroulante, et avez vous la liste des services ? ( où est ce seulement dir,conducteur,quai )
A l'ouverture du fichier voulez vous afficher la feuille du mois, ou voulez vous affichez que le mois de la feuille Synthèse ?

NB Pour la liste déroulante, c'est simple : Données/validation de données puis Autoriser Liste, mettre par ex dans Source A;B;C;D;E puis fermez. C'est tout. Où avez vous coincé ?

 

[marilu]

Bonjour,
La liste des services sont dans la base de travail, le principal est la, je pense après étoffer cette liste,
Je pense que la validation de données, ne fonctionne pas peut etre parce que sur un onglet différent ?

Et j'aimerai que l'ouverture du fichier soit sur le mois en cours, soit actuellement juin

Merci beaucoup

 

[sylvanu]

L'art de ne pas répondre :

Où voulez vous mettre votre liste déroulante

A l'ouverture du fichier voulez vous afficher la feuille du mois, ou voulez vous affichez que le mois de la feuille Synthèse ?

NB : Dans une liste déroulante on ne peut pas appeler des données d'une autre feuille MAIS si ces données portent un nom, par ex Liste alors ça marche, il suffit de faire =Liste

 

[sylvanu]

Par defaut, un essai en PJ.
Les listes déroulantes sont dans Service Feuille Juin.
L'ouverture se fait ur la feuille du mois courant :

Private Sub Workbook_Open()
     ListeMois = Array("Rien", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
     NomFeuille = ListeMois(Month(Date))
     If Existe(NomFeuille) = True Then
            Sheets(NomFeuille).Activate
     End If
End Sub
Function Existe(FeuilleAVerifier)
Dim Feuille As Worksheet
    Existe = ""
    For Each Feuille In Worksheets
        If UCase(Feuille.Name) = UCase(FeuilleAVerifier) Then
            Existe = True
            Exit Function
        End If
    Next Feuille
Exit Function
SiErreur:
MsgBox "Une erreur s'est produite..."
FeuilleExiste = CVErr(xlErrNA)
End Function

( Attention j'ai inhibé votre Workbook_Open, remettez en place se que vous voulez )

 

[marilu]

Bonsoir,

Désolée, je pense que je n'ai pas été suffisamment précise sur mon problème,
En fait, je suis sur l'onglet juin, et je voudrais sélectionner le service via la liste déroulante la liste des salariés de ce service sur le mois de juin, en sélectionnant DIR dans"service", et je voudrais que excel me ressorte seulement les salariés de ce service,
Je pense que cela est possible via une macro, mais je n'arrive pas à la faire fonctionner,
Merci beaucoup,

 

[sylvanu]

Bonsoir,
Ben ouais, voir post #4.

Et où se trouve la liste des employés ?

Il faudrait au moins avoir la liste des salariés par Service, sinon vous n'y arriverez jamais.

 

[sylvanu]

Un essai en PJ.

Dans Base de travail il y a la liste des services ainsi que les listes de personnel.
Dans Juin, on choisit le service en A7, la liste de personnel se remet à jour.
J'ai modifié la macro Worksheet_Change de la feuille Juin.

Si, évidemment j'ai bien deviné la problématique.

 

[marilu]

Merci beaucoup, ça pourrait être cela, mais les absences ne suivent pas,
En A7, en effet je choisis le service par exemple "administratif" et via la colonne B je vais avoir l'ensemble des salariés du service Administratif et les congés suivent en même temps,
Peut etre que cela n'est pas possible,

 

[marilu]

Bonjour,
Impossible de trouver la solution pour que les absences affectées aux salariés soient modifiées lorsque je change de service,
Avez vous une idée ?

Merci par avance

 

[GALOUGALOU]

bonjour Marilu bonjour le fil bonjour le forum

dans le classeur que vous nous proposez dans le fil 10, il y a plein de référence non valide #REF!

ce n'est pas le cas du fichier de sylvanu fil 8

pour vous trouver une solution, il faudrait commencer par gérer les erreurs
cordialement
galougalou

 

[chris]

Bonjour

NB : Dans une liste déroulante on ne peut pas appeler des données d'une autre feuille MAIS si ces données portent un nom, par ex Liste alors ça marche, il suffit de faire =Liste

Depuis la version 2010 on peut même si je préconise de nommer la source et de la mettre sous forme de tableau structuré

 

[sylvanu]

Bonsoir tout le monde,
Je pense qu'il y a un malentendu.
Dans l'état, ça ne peux pas marcher puisque les congés sont en dur. Donc on ne peut pas avoir de rafraîchissement de la liste des salariés.
Pour que ça marche il faut qu'en colonne A il y ait la totalité des salariés et que A7 permettent de masquer les lignes, sans toucher au contenu.

Le plus simple est encore de créer une colonne Service avec pour chaque salarié le service associé et de mettre en place un filtre automatique.

 

[marilu]

Super Merci Sylvanu, c'est top,

 

[marilu]

Désolée, dernière chose, lorsque je veux supprimer un salarié par exemple ligne 13, Service 1 - personne 2 (parce que le salarié est sorti), cela me laisse une ligne blanche, voir me supprimer la ligne du 14,
Je ne veux pas supprimer l'historique, je veux juste supprimer lorsuqe le salarié sort des effectifs

Merci