Gestion Planning

Gestion Planning v2006-25.11a

1686554355111.png


Je vous propose une version revisitée du Planning 2023. Je l'ai adapté, a la demande d'un membre, pour gérer le planning pour l'année complète.
De plus, vous pouvez gérer le planning de 1 à 15 personnes à travers 3 équipes (1-2-3 ou Matin-Jour-Nuit), c'est vous qui décidez.
  • modification des grilles horaires.
  • modification des équipiers.
  • gestion automatique des jours fériés.
  • construction automatique de l’agenda personnel après la création du planning de l’équipe.
  • impression du planning et des agendas personnels.
1683905142019.png


A chaque création du planning, vous indiquez les employés concernés par équipe.
Les équipes peuvent être identiques chaque semaine ou différentes.
L'agenda personnel peut-être imprimé par mois et par employé.
1683905194134.png


Vous pouvez ainsi tester ce planning ou rester sur la version précédente v23.03e
Je reste à votre écoute pour toute question ou amélioration souhaitée.
Ce fichier comporte un ruban personnalisé qui modifie le ruban d'origine Excel.
Il est rétabli à la fermeture de l'application.

Bonne découverte.
Vincent
Auteur
vincent bourdeyron
Version
v23.04a
  • Planning Annuel.jpg
    Planning Annuel.jpg
    305.3 KB · Affichages: 1 080

Dernières mises à jour

  1. Gestion Planning

    Mise à jour des formules Modification esthétique des fenêtres Correction du code.
  2. Gestion Planning

    Correction et modification des variables Instentiation des objets en LateBinding Suppression...
  3. Gestion Planning

    Modification du code et des variables. Modification des écrans de lancement. Amélioration des...

Derniers avis

J'ai eu une erreure a l'ouverture, probleme de version selon une iA et impossible de fermer excel. Voici la proosition qui fonctionne : *** Bloc de remplissage de U8:AA13 avec gestion d'erreur ***
On Error Resume Next
ws_Home.Range("U8").Formula2R1C1 = "=SEQUENCE(6,7,R6C21-WEEKDAY(R6C21,2)+1,1)"
If Err.Number <> 0 Then
' Repli sur l’ancienne méthode pour les versions non compatibles
ws_Home.Range("U8:AA13").FormulaR1C1 = "=R6C21 + (ROW() - ROW(R8C21)) * 7 + (COLUMN() - COLUMN(R8C21)) - WEEKDAY(R6C21, 2) + 1"
Err.Clear
End If
On Error GoTo 0
' *** Fin du bloc ***
VincentB74
VincentB74
Bonjour,

Merci pour cette info.
Content que dela fonctionne chez vous.

Cordialement,
Vincent
Bonjour
encore des erreurs
https://transfert.free.fr/On0ui0B
VincentB74
VincentB74
Bonjour,

Quelles sont les erreurs que vous rencontrez ?
Bonjour,

Beau travail mais votre projet n'est pas full-compatible Excel.
Typiquement, il ne marche que sur une version 2019 ou ultérieure et c’est dommage.
Typiquement, si vous voulez couvrir un plus large public, vous pourriez substituer des fonction comme IsoWeekNum() en DatePart avec «ww » comme argument. [...]
Et concernant les problème de référence, faire en sorte de faire du LateBinding plutôt que du EarlyBinding.
Enfin et surtout, mettre des gestions d'erreur plus abouties et explicites en évitant au mieux les "On Error Resume Next" sauf si vous maîtrisez l'erreur, par exemple quand vous alimentez une Collection.
VincentB74
VincentB74
Bonsoir,
Merci beaucoup pour tous vos conseils.
Je vais tacher d'appliquer ces recommendations au fur et à mesure des MAJ que je ferais.
Bonne journée.
Respectuerusement,
Vincent
Message manque bibliotheque

gs_Msg = gs_Ori & " - " & gs_Ver
Call ShowShape(gs_Msg & vbLf & "Merci de patienter.", FontSize:=ws_Home.Range("AO2").Value)
Application.Cursor = xlWait
Application.Wait Time + TimeSerial(0, 0, 1.6) <---- time erreur
gs_Qtr = True
VincentB74
VincentB74
Bonjour,

Il faut vérifier dans le VBE (ALT+F11) et vérifier les lignes dans le tableau référence par Menu => Outils => Références
Si une ligne est marqué "MANQUANT", il faut ajouter l'OCX inscrit dans la ligne en bas de la fenêtre.

Regardez dans la descirption de la mise à jour de décembre, tout est indiqué.

Bonne découverte.
Vincent
Active X ne fonctionne pas sous Mac malheureusement, fichier inexploitable, dommage.
Excel lent support and reliable site
Planning très intuitif, explication claire et précise.
prise en main rapide.

existe-t-il une version compatible Mac?

Est-il possible d'ajouter une équipe de plus de 15 personnes sur ce planning ?
J'aurais besoin de faire un planning pour 20 personnes/jour
avec une base fichier de 50 personnes intérimaires.
Est ce possible de rajouter des lignes personnels?
VincentB74
VincentB74
Bonjour,

Ne travaillant pas sur Mac, je ne sais pas vous dire si vous pouvez l'utiliser sur cet OS.

Concernant votre demande, je peux regarder les évolutions en rapport avec votre demande.
J'ai besoin de précisions pour cela:
1- Combien de plages horaires par jour (Matin, Après-Midi, Soir ou Nuit)
2-Faut-il prévoir des horaires continus ou avec coupures (Quels horaires avez-vous ?)
3-Qu'entendez-vous par lignes personnels ?

Pour facilitez nos échanges futurs, vous pouvez communiquer directement sur mon adresse mail:
vincentb74 (a) gmail (point) com

Bon dimanche.
Cordialement,
Vincent
Bonjour
J'ai voulu télécharger la Gestion Planning 2023 (V2006-24.03a), mais je reçois un message d'erreur indiquant "Projet ou Bibliothèque introuvable".

Pouvez-vous m'aider à résoudre ce problème ?

Merci !

Carlantonio Tridetti
ctr@pt.lu - carlantoniotri@gmail.com
VincentB74
VincentB74
Bonjour,
Le souci que vous rencontre concerne des bibliothèques manquantes dans le VBE.

Pour corriger cela, il faut lancer Excel.
Ensuite, allez dans le VBE par ALT+F11 et vérifiez dans Menu => Outils => Références
Il ne doit pas avoir de lignes manquantes. Il faut alors charger les bibliothèques dnas les dossiers system de Windows.

Si c'est le cas, il faut procéder comme indiqué dans le fichier Aide, présent dans le ZIP téléchargé.
C'est un fichier HTML lisible sur n'importe quel navigateur.

Si vous rencontrez un souci, laissez moi un message sur ma boite mail afin que je vous envoie une procédure:
vincentb74 (a) gmail (point) com

Bonne journée.
Vincent
Re ,
Si possible d'avoir une version complète
Merci d'avance
VincentB74
VincentB74
La version postée est complète. Si vous avez des soucis, laissez-moi un message. Bonne soirée.
Beau travail, je vais m'en servir de ce pas.....
Retour