XL 2016 Gestion des Employés

wDog66 à dit:

Bonjour Jorelle27

Celle ou celui qui vous a donné les formules matricielles aurait dû vous indiquer que c'est très gourmand en ressource processeur

Maintenant avec si peu d'éléments donnés dans votre fichier, je ne vois pas ce qu'on peut faire

Bonne chance

Cliquez pour agrandir...

Jorelle27 à dit:

Bonjour la team,
ça fait des mois que je travail sur ce fichier il marche mais avec plus de données le processeur atteint 100.

je vous expliques : mon fichier récupère les dates de contrat en court des employers dans le sheet 2--->sheet 1
et affiche une Etoile (*) en colonne D du sheet 1 si un employé à un contrat futur.

pour l'affichage des date j'ai utilisé une formule excel car j'ai pas pu le faire en VBA
pour l'affichage de l'Etoile j'ai utilisé du VBA

j'aurais besoin de votre expertise pour une solution plus légère, Merci

Cliquez pour agrandir...

AtTheOne à dit:

Bonjour à toutes & à tous, bonjour @Jorelle27
Je suis sur mon téléphone, donc c'est un peu galère, je n'ai pas épluché tous les post du fil.
Je te propose une version sans macro,
en transformant tes listes en tableaux structurés et en ajoutant une colonne "ligne".
Regarde si avec tes données réelles ça rame toujours ...
À bientôt

Cliquez pour agrandir...

Jorelle27 à dit:

pour l'affichage de l'Etoile ne marche plus pour le tableau

Cliquez pour agrandir...

AtTheOne à dit:

Bonjour à toutes et à tous, bonjour @Jorelle27 comme je l'ai dit plus au je suis sur mon téléphone donc pas de vba.
Je rentre ce soir (je ne sais pas à quelle heure), je regarderai ton code dès que possible.
À bientôt

Cliquez pour agrandir...

Jorelle27 à dit:

merci d'avance

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour,
Une proposition en PJ, la table de l'onglet "management des contrats" a été transformée en tableau structuré et les espaces inutiles des titres supprimés.
Voir l'onglet "Userdata".
Cordialement,

Cliquez pour agrandir...

alexga78 à dit:

Bonjour @Jorelle27, le forum,

un essai par Power Query si j'ai bien compris...

PowerQuery:

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    Cols = let x = Table.ColumnNames(Source) in {x} & {List.InsertRange(x,3,{"Futur Contrat", "Statut"})},
    #"Grouped Rows" = Table.Group(Source, List.Transform({0,1,2}, each Cols{0}{_}), {{"Custom", each
                      let x = Table.SelectRows(_, (y)=> Record.Field(y, Cols{0}{5}) > DateTime.LocalNow()) in
                        if Table.RowCount(x) > 1 then
                        List.InsertRange(Table.ToRows(Table.SelectRows(x, (z)=> Record.Field(z, Cols{0}{5}) = List.Min(Table.Column(x, Cols{0}{5})))){0},3,{"*","actif"})
                        else
                      List.InsertRange(Table.ToRows(x){0},3,{null,"actif"})
                      }})[Custom],
    Result = Table.Combine(List.Transform(#"Grouped Rows", each Table.FromRows({_},Cols{1})))
in
    Result

Cordialement,

Cliquez pour agrandir...

Jorelle27 à dit:

pour info le plus important c'est bloquer les doublons, date de debut et de fin du contrat en cours et * pour les contrats futur.

Cliquez pour agrandir...

• Pour les doublons "uid" de la feuille "Userdata" je le fait avec les validations de données (en utilisant une formules et en ayant créé un nom "lst_uid" qui pointe vers la colonne uid du tableau des Userdata)
• Pour les astérisques pour les futurs contrats je le traite par formules.
• Pour les dates, voudrais-tu préciser ta pensée j'imagine que cela doit être fait dans la feuille "management des contrats" car la feuille "Userdata" ne fait que reprendre les dates trouvée dans la feuille management. Pour l'instant tu n'as aucune macro qui gère cela.

• Pour les dates, voudrais-tu préciser ta pensée j'imagine que cela doit être fait dans la feuille "management des contrats" car la feuille "Userdata" ne fait que reprendre les dates trouvée dans la feuille management. Pour l'instant tu n'as aucune macro qui gère cela.