Bonjour,
Tout d'abord merci pour ce fichier
Ce message est un commentaire et un complément.
Mon commentaire, c'est que j'ai pris le temps de transformer une bdd que j'utilise pour mon travail pour 60 personnes qui ont tous des appartenances de groupes, cela peut aller jusqu'à 6 appartenances. L'organisation des journées se fait par créneaux de 2, 3 heures soit 4 créneaux par personnes, ce qui donne pour une semaine pas moins de 1080 lignes...
J'ai dupliqué ma semaine type 10 fois avec des modifications selon que l'on soit en semaine paire ou impaire. 10800 lignes
Le fichier tourne nickel avec un temps de traitement de tri et d'affichage remarquable entre 3 secondes à 4 secondes selon la grandeur du groupe, c'est la duplication qui peine un peu avec 3 minutes 17 secondes mais 1080 lignes a traiter, cela reste massif. C'est toujours mieux qu'Excel prenne son temps que moi je le perde.
A l'affichage, sur la feuille global avec la multiplication des lignes, il devient difficile de suivre l'organisation d'une même personne. Fort heureusement et c'est un vrai plus, l'agenda individuel est là pour çà.
C'est d'ailleurs là que j'ai fait un complément.
J'ai ajouté dans la macro worksheet, le fait qu'en cliquant sur le nom de la personne sur la feuille global, cela ouvre directement son agenda individuel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[...]
ElseIf Not Intersect(Target, Range("B8:B" & 8 - 1 + Nblj * 7)) Is Nothing Then
Comptage_jour CLng(Range(Split(Target.Address, ":")(0)).Value)
ElseIf Not Intersect(Target, Range("C8:C" & 8 - 1 + Nblj * 7)) Is Nothing _
And Target.Value <> "" Then
Sheets("Individuel").ComboBox1.Value = Target.Value
Sheets("Individuel").Select
End If
[...]
Voilà,
Merci PierreP56 pour ton fichier
Leakim