Reconstitution d'un planning individuel

Bonjour,

J'ai un fichier avec lequel je constitue des groupes d'activités pour chaque jour sur deux semaines.

J'aimerai qu'une fois les groupes constitués, je puisse formaliser un planning pour chaque personne.

Dans le fichier il y a la base renseignée et un onglet "feuil1" sur lequel j'ai mis un exemple de ce que j'aimerai obtenir à la fin.

Merci d'avance à tous ceux qui pourrait m'aider dans mon projet.

Cordialement,

Leakim

Bonsoir,

Ci-joint une proposition, à tester.

En cas de doublons :

• les valeurs sont affichées à la suite (séparées par un tiret)
• les cellules apparaissent en orange

Fonctionnalité complémentaire : exporter tous les plannings

• tous les plannings sont générés et enregistrés dans des fichiers distincts
• à partir du modèle "Modele.xlsx" (en PJ)

En espérant avoir bien compris le sujet

Je me suis éclaté

En attente de remarques ...

Bonne soirée

Bouben

Bonjour,

Et bien moi je suis ravi d'être support à l'éclate

Merci Bouben c'est juste extra tu as super bien répondu à ma demande.

Peut-être juste une option que je pensais pouvoir géré, si la solution avait été en formule (chose que je pense possible mais surement plus gourmande en ressource...).

J'aimerai pouvoir imprimer les agendas, tu t'en doute bien. Alors plutot que de les exporter un par un dans un fichier différentié, j'aimerai pouvoir faire en choisissant les noms à imprimer.

Je remet dans le fichier l'userform que j'utilise pour faire mes groupes, je pense que ce sera facilitant.

C'est un userfrom avec une combo qui détermine le groupe et un listbox qui donne les noms du membres du groupe. J'ai activé dans la listbox le multi choix.La listbox1 me permet de faire les choix et les choix se vide dans une listbox2 de sorte que je n'ai plus de vide dans ma liste.

L'idée serait de faire une boucle selon les noms choisis que l'on reprendre depuis la listbox2.

J'espère avoir été clair dans ma demande complémentaire...

Cordialement,

Leakim

Bonjour,

Comme évoqué sur mon précédent message je pensais bien pouvoir gérer l'impression. C'est fait avec le code suivant.

Sub Print_weeks_individuel()

Dim BookName As String
Dim i As Integer

'Dim F1 As Worksheet
'    Set F1 = Sheets("Planning individuel")
    BookName = thisWorkbooks
 If Not Printer_Choice(BookName) Then
    'With Sheets("Planning individuel")
        For i = 0 To UserForm_print.ListBox2.ListCount - 1
            Range("B4") = UserForm_print.ListBox2.List(i)
            Range("B20") = UserForm_print.ComboBox1.Value
            Range("B21") = UserForm_print.ListBox2.List(i)
                ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
               'ActiveSheet.PrintPreview   ' Pour les tests
        Next i
    'End With
    MsgBox "Vos impressions sont prêtes sur " & ActivePrinter & "." & Chr(10) & "Merci.", , "IMPRESSIONS"
 End If

 Unload UserForm_print

End Sub

Merci

Leakim

Re,

Du reste il y a un petit bug, car j'ai dans mes listes des personnes qui sont en demi-groupe et qui font donc deux activités par demie-journée.

La version que tu m'a proposé bouben, prend bien en compte les deux mais écrase la première information. J'ai pu le constater de visu lors de l'exportation en fichier, que j'utiliserai sûrement pour archivage une année sur l'autre.

J'aimerai que l'info soit mise en dessous. Je joints un fichier avec le modele.

Question complémentaire: serait-il possible de faire une version portrait

Cordialement,

Leakim

Bonjour l'ami !

Une nouvelle version à tester !

Les modifications

gestion des 1/2 groupes

Si je comprends, une personne peut faire 2 activités dans une matinée et ce n'est pas un doublon.

Les doublons commencent donc si on a 3 activités dans une 1/2 journée.

(ou certaines activités sont en 1/2 journée complète ?)

modification de la mise en forme

Semaines paires et impaires l'une sous l'autre

Ceci peut avoir un effet sur les autres macros (impression, ...), je n'ai pas modifié le code sur cette partie, à vérifier

modification de la mise en page

Modification de la mise en page en portrait (directement dans la mise en page Excel), il y avait une autre subtilité ?

Allez, ça avance !

A bientôt pour d'autres améliorations ou debug

Bouben

Bonjour,

C'est vraiment super, je regarde çà de prés et je te redis.

Bonne journée,

Leakim

Bonsoir,

Juste pour faire un retour positif de cette nouvelle version.

Merci Bouben pour ton code qui est fonctionnel en tous points.

gestion des 1/2 groupes

Tu as tout bien compris

modification de la mise en forme

Je m'en suis chargé

modification de la mise en page

C'est nickel

A une prochaine peut-être.

Leakim

Bonsoir,

Super ! A une prochaine ...

Bouben