XL 2013 Création d'un planning horaire

elisete

XLDnaute Nouveau
Bonjour, je souhaiterai créer un planning horaire grâce à un graphique excel que j'extrait d'un logiciel horaire.
J'arrive a créer les plages horaires, mais je ne parviens pas à combiner ces plages horaires par personne.
Pourriez-vous m'aider ?
Ci-dessous le graphique que je souhaiterai réaliser.

Merci d'avance,
Bien cordialement,

1648033168427.png
 

elisete

XLDnaute Nouveau
Merci pour ce lien, mais le problème avec cette manière est que je ne peux pas ajouter plusieurs plages horaires pour une personne.

Ex : Christophe travaille de 8h30 à 10h puis de 11h à 15h puis de 15h30 à 18h
-> je voudrait pouvoir visualiser d'une certaine couleur les heures travaillées
 

p56

XLDnaute Occasionnel
Bonjour à tous,
Et un planning horizontal?
Capture d’écran 2022-03-25 162355.jpg

Code couleur par personne en "Config", données en "Données", plusieurs plages horaires par personne par jour possibles
P.
 

Pièces jointes

  • Gantt_Jour.xlsm
    65.8 KB · Affichages: 48

chrishd

XLDnaute Nouveau
Bonjour à tous,
Et un planning horizontal?
Regarde la pièce jointe 1134831
Code couleur par personne en "Config", données en "Données", plusieurs plages horaires par personne par jour possibles
P.
Bonjour,

Bravo pour votre planning... c'est exactement ce que je cherche avec quelques modifications. (ce que 'ai essayé sans succès)

Je souhaite que le planning se fasse sur un mois avec deux plages horaire par jours. et que "l'étiquettes" sur le planning affiche le n° ID et non pas le Nom.
Je n'arrive pas à faire que chaque entrée arrive en face de la date...
en pièce jointe le fichier que j'ai modifié (massacré :) )
Merci pour votre aide !
 

Pièces jointes

  • Gantt_Jour_modifié.xlsm
    64.4 KB · Affichages: 7

chrishd

XLDnaute Nouveau
C'est la perfection !!! c'est exactement ce qu'il me faut.... mille merci !!!!
il y ä une erreur si j'ajoute une date pour le mois suivant (dans le fichier les dates sont pour septembre)

le message concerne la ligne 14 :

VB:
    Dessin = True
    Application.ScreenUpdating = False
    'RAZ "__"
    With ActiveSheet
        Deb = .Range("B5").Value
        Hr0 = .Range("D4").Value
        Tg = Select_Mois(TBdd, 2, Deb)   'Num auto, Date, Début, Fin, ID, Noms, N° doublon
        If UBound(Tg, 1) > 1 Then
            For i = 1 To UBound(Tg, 1)
                lg = 5 + Int(CDate(Tg(i, 2))) - Deb
                cl = 4 + (Tg(i, 3) - Hr0) * 48
               
                L = 2 + .Columns(cl).Left + .Columns(cl).Width / 2
                T = 3 + .Rows(lg).Top      '<----------------------------Ligne 14
                H = .Rows(5).Height - 6
                W = .Columns(4).Width * (Tg(i, 4) - Tg(i, 3)) * 48 - 4
               
                If W > 0 Then
                    Histo Tg(i, 1), L, T, W, H, Tg(i, 5)                ' dessin de l'histogramme
                    Etiquettes lg, L, T, Format(Tg(i, 3), "h:nn")       ' affichage du début
                    Etiquettes lg, L + W, T, Format(Tg(i, 4), "h:nn")   ' affichage de la fin
                End If

Est-ce parce que l'agenda ne supprime pas les lignes dont les dates correspondent au mois suivant ?

encore merci pour la rapidité de votre réponse et le travail que vous faites !!
 
Dernière édition:

chrishd

XLDnaute Nouveau
Il semble que le problème persiste.... toujours une erreur si je rentre un rendez-vous sur un autre mois que celui en cours.
Comme j'ai copié/déplacé le contenu de votre fichier dans mon classeur excel... est-ce possible, vu que c'est lors du changement de mois/année avec le bouton bascule d'utiliser une liste déroulante (comme j'ai rajouté) pour éviter la liaison avec votre fichier ?
Encore un grand merci pour votre dévouement !
 

Pièces jointes

  • Gantt_Mensuel_liste_deroulante.xlsm
    63.2 KB · Affichages: 10

p56

XLDnaute Occasionnel
Bon ok, en fait ça a été facile (qq lignes de code).
Voici une version avec liste déroulante pour le changement d'année.
Prenez la bonne version ... (du 7/09/22 18h) et attention au format des dates ...
P.
 

Pièces jointes

  • Gantt_Mensuel_7sept22_18h.zip
    64.9 KB · Affichages: 33

Discussions similaires

Réponses
5
Affichages
420
Compte Supprimé 979
C
Réponses
2
Affichages
253

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG