Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Planning pour personnel

Moran56

XLDnaute Nouveau
Bonjour à tous,

J'ai essayé de faire un document de gestion du personnel, mais je ne suis pas satisfait du résultat, d'autant plus que le fichier ne fonctionne pas comme je voudrais !

J'ai un onglet BASE, dans lequel j'indique tous mes agents, le mois de début et de fin de la période de travail sur l'année et l'année concernée.
Le bouton PLANNING GLOBAL va créer le planning avec tous les agents.
Le bouton PLANNING AGENT va créer les onglets individuels.
Le bouton INTÉGRATION devrait compléter le planning global avec les informations saisies dans chaque planning...mais ça ne fonctionne pas.

Pourriez-vous regarder le problème d'intégration ?

Merci énormément !
Belle journée.
 

Pièces jointes

  • PLANNING PERPETUEL.xlsm
    180.3 KB · Affichages: 35

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Pourriez-vous regarder le problème d'intégration ?
J'ai regardé.

Déjà il y a un problème ici, qui n'a aucune incidence directe puisque ce n'est que de l'affichage en Debug.Print :
VB:
    ' Afficher les noms des agents dans la ligne 7 pour vérification
    For colOffset = 1 To lastCol Step 2 ' Sauter les colonnes vides
        Debug.Print "Colonne " & colOffset & " : " & wsPlanningGlobal.Cells(7, colOffset).Value
    Next colOffset
Le "Step 2" ne fait pas sauter les colonnes vides, il prend une colonne sur deux.
Peut-être est-ce un reste de code avant une modification de la feuille "PLANNING GLOBAL".
[edit]
Au temps pour moi : il y a le même problème dans la macro "IntegrerPlanningsDansGlobal".
[/edit]


Plus gênant, problèmes sur les dates de ta feuille "PLANNING GLOBAL" :
- les "dates" des 12 premiers jours de chaque mois sont bien des dates mais sont fausses à causes de l'inversion du quantième et du mois,
- les "dates" des autres jours sont en réalité du texte.

Remplacer
VB:
wsPlanning.Cells(ligne, col + 1).Value = Format(currentDate, "dd/mm/yyyy")
par
VB:
wsPlanning.Cells(ligne, col + 1).Value = currentDate
devrait corriger les problèmes de dates.
 
Dernière édition:

Moran56

XLDnaute Nouveau
Ca me fait plaisir de me faire appeler jeune homme !

En fait, les données des plannings individuels ne sont pas reportées dans le planning global : lorsque je clique sur le bouton d'intégration, le planning global reste vide.
 

TooFatBoy

XLDnaute Barbatruc
Clique d'abord sur [PLANNING GLOBAL], puis sur [INTÉGRATION], pour voir si ça change quelque chose.

Le problème vient du fait que les dates ne sont pas reconnues dans la macro.
 
Dernière édition:

Moran56

XLDnaute Nouveau
Super, merci beaucoup, ça fonctionne parfaitement !
Est-ce qu'il serait possible que lors de l'intégration, les mises en forme (couleurs et format) des cellules des plannings individuels soient reproduites dans le planning global ?


Encore un énorme merci pour le temps passé à m'aider !
 

TooFatBoy

XLDnaute Barbatruc
Super, merci beaucoup, ça fonctionne parfaitement !
Hélas non, ce n'est pas parfait au moins sur deux points :
- détection des dates,
- mises en forme dans le tableau général.


Pour la mise en forme, vu que ce sont des MFC dans les données source il faut, je pense, traiter cellule par cellule, alors que là je fais le mois complet en une seule instruction.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…