aide pour Code VBA

Bonsoir,
Dans le fichier joint, dans l'onglet Prise en main,il y a 4 projets (42,92,52 et 85). un projet va se diviser en deux afin de passer par 5 postes (A,B,C,D,E) aux dates mentionnées.
Dans l'onglet planning, on peut voir les différents projets par postes aux différentes dates (à savoir que la durée par poste peut changer).
J'ai réussi à faire les formules dans excel afin d'avoir le planning, mais comme je dois ajouter des projets futurs et notamment le 85, les formules vont devoir être changées et s'allonger.
Le fichier est lent lors d'un changement ou des jours ou des durées.
Quelqu'un qui est balaise en VBA ne pourrait-il pas me trouver un code afin d'automatiser tout cela et me facilité la tâche.

Merci à ceux qui pourront m'aider

Bonjour,

Il aurait été plus judicieux de mettre ton tableau dans l'autre sens (cad les projets les uns en dessous les autres et tes postes en entête de colonne) cela simplifierait le traitement.

Pareil pour ta feuille PLANNING
Mais je suppose que tu n'as pas le choix

Si j'ai bien compris dès que l'on commence un nouveau projet il faut que cela intègre dans le planning

oui c'est cela il faut que le(s) nouveau(x) projet(s) s'intègre(ent) dans le planning.

Maintenant je ne vois pas d'inconvénient à ce que le planning soit en vertical au lieu d'horizontal du moment ou l'on peut intégrer les projets.

Bonjour Igloobel,

Voilà le même fichier en planning vertical, si tu y jeter un coup d'oeil pour m'aider, cela m'aiderait énormément

Merci

Bonjour,

En PJ une proposition de code.

Je ne me suis pas attardé sur les couleurs. Uniquement la création du planning selon les données de "Prise en main".

Tu n'as qu'à lancer le code avec le bouton dans la feuille "planning_auto".

Attention, je me suis servi du format existant de "Prise en main" donc il ne faut pas le changer. Tu peux ajouter autant de postes et de projets que tu veux mais chaque fois avec la même structure du tableau de projet et chaque fois avec une seule colonne séparatrice.

Attention aussi de ne pas compléter la ligne 1 avec autre chose que les dates de prise en main des projets (le nombre de projets dans le code se sert du nombre de cellules remplies de cette ligne).

Attention je n'ai pas mis de contrôles de données alors veille bien à ce que les dates de début et de fin de chacun des postes par projet soit correctement complétées et que date_debut < date_fin.

Teste et dis nous.

PS; à cause de tes formules ton fichier est long à recalculer. Si mon code te convient tu peux supprimer la feuille "Planning" pour gagner du temps de recalcul.

Bonjour,

Est-ce que tu as trouvé ton bonheur avec ma proposition ?

Bonjour Alex020181,

Merci pour ton aide, j'aurais aimé que les cases soient fusionnées pour chaque partie de projets exemple pour le poste A: entrée fusion du 13-04-21 au 15-04-21 avec le numéro du projet dans cette fusion.
Mais je n'arrive à rien ni pour faire cette fusion ni pour les couleurs car mes connaissances sont trop limitées en VBA.
A moins d'une aide providentielle, je pense à abandonner ce projet et le faire en manuelle.

Merci à toi

OK je te fais ça

Voilà.

Les couleurs du planning sont reprise de la feuille "Prise en main". Tu peux les changer à volonté.

Même remarque que précédemment concernant les contrôles.

Teste et dis nous.

Merci déjà pour ce que tu viens de faire c'est super.
Je me suis rendu compte que le rendu serait mieux si au lieu de mettre les postes en différentes couleurs, on mettait les projets en différentes couleurs.
exemple jaune pour le 41, bleu pour le92, gris pour le 52, vert pour le 85 et orange pour le suivant et l'on répèterait ces couleurs pour les projets suivant.
J'abuse peut-être mais est-il possible aussi de mettre une bordure extérieure dans le planning auto pour chaques durées aux différents postes (exemple pour le poste A : Entrée une bordure de B2 à D2)

Merci beaucoup

Sans vouloir être méchant je ne vais pas faire 50 versions.

Le mieux c'est que tu fasses une version manuelle (avec couleur et mise en forme) et que tu la postes ici. Ensuite je verrai pour coder.

Bonsoir,
Je comprends bien que tu n'aies pas envie de faire 50 versions.
Voici ce à quoi j'aimerais que le planning ressemble.
Si ce n'est pas trop demandé, les week-end et jours fériés ne doivent pas apparaître dans le planning car ce sont des jours non travaillés.

Merci pour l'aide que tu m'apportes, car je suis dépassé.

Bonjour,
Un planning n'est jamais qu'une représentation visuelle du contenu d'une ou plusieurs tables.
Il y a lieu de revoir l'organisation de vos données.

Bonsoir Philippe,

Pouvez-vous m'expliquer cz qu'il a lieu de faire car je ne comprends pas ce que vous voulez m'expliquer.

Merci

Bonjour,
Je voulais simplement expliquer qu'un planning est la représentation visuelle du contenu d'une table or j'imagine que ce n'est pas votre cas mais comme vous vous êtes contenté de déposer un classeur et que je n'ouvre pas ceux-ci, je ne peux que le deviner.
Une illustration de l'organisation de vos données et ce que vous attendez ensuite vous aurait sans doute amenez plus de réponses car je ne suis pas le seul intervenant qui n'ouvre pas les fichiers.

Toute application quelle quelle soit travaille avec des tables et la consultation est une interface qui permet à un utilisateur de visualiser facilement le contenu de ces tables et les planning ne font pas exception.
La manière dont sont organisées les feuilles et les cellules d'Excel ont fait que 90% des utilisateurs encode mal leurs données et ne savent donc pas les synthétiser facilement et font des copier/coller pour réunir leurs données alors que dans bien des cas, une seule table et un tableau croisé dynamique suffisent amplement.

Et dans les 90%, 30% pallient leur méconnaissance des outils et fonctions d'excel par l'usage du VBA et construisent ce que l'on appelle des "Usines à gaz"

Je vais illustrer un planning simple basé sur deux feuilles principales, la troisième contenant des paramètres et démontrer que moins de 10 lignes de code VBA peuvent piloter le planning déclaration des variables comprises qui pour le reste est constitué de fonctions et d'outils natifs d'excel.

Le contexte
Pour l'exemple, nous avons affaire à un consultant en bureautique qui se rend dans une entreprise et qui aide des employés à résoudre des problèmes spécifiques (colonne Thème).
Les plages horaires sont d'une heure 45

La feuille Paramètres
Contient deux tables structurées :
L'une nommée t_WeekCalendar contient les informations des dates de début et fin de la semaine en cours, suivante et précédente (On pourrait bien entendu piloter 10 ans si on le souhaitait mais ceci est un exemple

Ces deux tables servent de source aux deux cellules contenant une Validation de données-Liste se trouvant dans la feuille [Consultation]
La seconde nommée t_Consult_Label contient des étiquettes de colonnes de la table des données
La première table permet de piloter la visualisation du planning et la seconde de choisir l'information que l'on affiche dans le planning

Le paramètre à droite (cellule G2 nommée TestDate) ayant pour titre Date de test me permet de faire une simulation de date du jour.
Ainsi grâce à une formule nommée CurrentDate ayant comme formule =SI(TestDate;TestDate;AUJOURDHUI()), je peux tester des situations de jours fériés, week-end, etc.

Pièce jointe 603292

L'organisation des données
La feuille nommée [TimeSheet] contient un tableau structuré nommé t_TimeSheet avec les colonnes suivantes classiques Date, Heure, Contact, Société , Thème et la première Key, c'est la clé primaire (clé unique) qui est le résultat de l'addition de la date et de l'heure soit la formule =[@Date] + [@Heure]Cette colonne est celle qui permet de visualiser au bon endroit les données dans le planning

L'organisation du planning
La colonne contenant les heures a été construite manuellement
La ligne contenant les dates :
La première cellule (date de début de la semaine) a comme formule =SIERREUR(INDEX(t_WeekCalendar;EQUIV(Consultation!I4;t_WeekCalendar[Semaine];0);EQUIV("Début";t_WeekCalendar[#En-têtes];0));""). Les autres cellule de la ligne contiennent une simple addition de 1 par rapport à la cellule qui précède
Ont peut voir sur l'illustration ci- dessous
En I4 et I6 les deux listes déroulantes pilotant la visualisation de la semaine à consulter

Illustration des deux feuilles
Celle de gauche est la consultation du planning, celle de droite contient les données et les données à afficher
L'affichage des données est faite grâce à la formule

Code:

---

=SIERREUR(RECHERCHEV(H$8+$F9;t_TimeSheet;EQUIV($I$6;t_TimeSheet[#En-têtes];0);FAUX);"")

---

On peut bien entendu utiliser INDEX avec EQUIV ou SOMMEPROD ou encore RECHERCHEX, bien qu'ayant des clients qui tournent encore avec des versions antérieures à Office 365, je m'abstiens en production d'utiliser les nouveautés

La partie gauche de l'illustration (illustrée par l'étiquette fléchée Consultation) affiche le détail de la cellule sélectionnée dans le planning, grâce pour les cellules C7:C11 à la formule ci-dessous

Code:

---

=SIERREUR(RECHERCHEV(pKeyValue;t_TimeSheet;EQUIV(Consultation!B7;t_TimeSheet[#En-têtes];0);FAUX);pColumnValue)

---

Les cellules nommées pKeyValue, pRowValue et pColumnValue (dans l'illustration F3, F5 et F4) permettent d'aller chercher l'information

La mise en évidence des données concernée par la date du jour et celle sur laquelle on a cliqué (cellule nommée CurrentDate) est faite par une Mise en forme conditionnelle

Le code VBA
Sans VBA, il est possible de consulter le planning, l'explication ci-dessus l'a démontrer
Par contre pour obtenir la consultation détaillée de gauche, il faut savoir sur quelle cellule on a cliquer et c'est là que le VBA intervient

Code de la procédure événementielle VBA - Worksheet_SelectionChange
C'est cette procédure qui alimente les cellules nommées pRowValue et pColumnValue

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim TableAgenda As Range Set TableAgenda = Range(AgendaName) If Not Application.Intersect(Target, TableAgenda) Is Nothing Then Range("pColumnValue").Value = LabelValue(TableAgenda, Target, xlColumns) Range("pRowValue").Value = LabelValue(TableAgenda, Target, xlRows) End If Set TableAgenda = Nothing End Sub

---

Pièce jointe 603291


[EDIT]
J'ai oublié de publier la liste des constantes présentes dans le module de la feuille [Consultation] et le classeur ayant servi d'exemple.
Dans cet exemple, je n'ai pas géré les jours fériés pour ne pas alourdir l'explication

Code:

---

1 2 3 4 5 6

Option Explicit ' Déclaration des constantes Module Const AgendaName As String = "tbl_Agenda" ' Tableau contenant la plage de cellules de l'agenda visuel Const AgendaTable_Name As String = "T_Meeting" ' Nom de la liste de données (Tableau structuré) Const AgendaTable_KeyLabel As String = "Key" ' Nom de l'étiquette de la clé primaire de la liste de données Const AgendaKeyName As String = "pKeyValue" ' Cellule nommée où l'on trouve la valeur de la clé primaire à chercher

---

Bonsoir,

voilà j'ai un onglet dates fériés que voici

Pièce jointe 603322

ensuite j'ai un autre onglet Prise en main ou l'on trouve toute les dates de début et fin , le numéro de projet 42,92,52 et en gris les dates des PM et en oranges celles des GM (GM et PM = petit et grand mouvement) et également les postes

Pièce jointe 603321

et enfin le dernier onglet, l'onglet planning c'est ce que je souhaite obtenir avec les données des 2 autres onglets

Pièce jointe 603323

Voilà, pour l'instant Alex020181 m'a énormément aidé en me faisant un planning mais je souhaiterais une seule couleur par projet avec le nom du projet (exple 42 - 42ABX - 42BX) pour chaque postes ainsi que la prise en compte des week-end et jours fériés .

Merci si vous pouvez m'aider

Je vais essayer de regarder ce WE.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Je voulais simplement expliquer qu'un planning est la représentation visuelle du contenu d'une table ...

Toute application quelle qu'elle soit travaille avec des tables ...

La manière dont sont organisées les feuilles et les cellules d'Excel ont fait que 90% des utilisateurs encode mal leurs données et ne savent donc pas les synthétiser facilement et font des copier/coller pour réunir leurs données alors que dans bien des cas, une seule table et un tableau croisé dynamique suffisent amplement.

Et dans les 90%, 30% pallient leur méconnaissance des outils et fonctions d'Excel par l'usage du VBA et construisent ce que l'on appelle des "Usines à gaz"

Je vais illustrer un planning simple basé sur deux feuilles principales, la troisième contenant des paramètres et démontrer que moins de 10 lignes de code VBA peuvent piloter le planning déclaration des variables comprises qui pour le reste est constitué de fonctions et d'outils natifs d'Excel.

---

Bravo pour cet exemple et ce petit cours. :bravo:

il mérite d'être dans le sous-forum "Conception" ou "Contribuer"

Je t'ai :plusser:

Bonjour Igloobel,
Merci pour ton message congratulant.
Cela fait longtemps que le sujet sur la construction de planning en utilisant un minimum de VBA et en privilégiant les fonctionnalités natives d'excel
Je voulais même créer une suite de billets préfixés dans le titre par "Stop aux usines à gaz" avec divers thèmes qui ne manquent pas mais comme je suis très exigeant dans la rédaction, l'illustration de mes billets et que je teste tout ce que je publie le temps me manque car j'ai aussi une vie professionnelle.

Je suis sur un gros projet avec un Ads-In Excel mais j'espère pouvoir démarrer la rédaction de ces billets en septembre.

Citation:

---

Envoyé par Alex020181

Je vais essayer de regarder ce WE.

---

Bonjour Alex,

Merci pour ce coup de main

Voici la dernière version.

Il manque juste un truc que je n'ai pas compris; comment compléter tes cadres avec "PM" ou "GM". Donc je te laisserai faire. Au début je pensais qu'orange = PM et gris = GM mais apparemment non puisque tu as une date orange dans le modèle que tu m'as donnée sans code PM ni GM (22/06/2021 en colonne BT).

En théorie je devrais mettre le code dans différents modules. Je me suis "contenté" de faire les modif par rapport au code initial que je t'avais déjà fait. Certaines parties sont facilement optimisables du coup.

Si ça te convient tu peux supprimer "planning_auto modele" qui est le modèle que tu m'avais envoyé.

Teste et dis nous.

Bonjour Alex,

je viens de jeter un coup d'oeil vite fait avant de partir au travail et effectivement il manquait une annotation PM comme tu me le fais remarquer.
Par compte je constate que les PM et GM ne sont pas placés aux bonnes dates, il y a un jour d'écart. Si tu regardes sur mon modèle, le premier GM est le 15/04/21 en colonne D et toi il est le 14/04/21 en colonne C, de ce fait tout les PM et GM sont décaler d'un jour. Peux-tu voir ou se situe l'erreur.

Je suis super heureux pour ce que tu as déjà fait car mes connaissances en VBA sont nuls et je n'aurais jamais pu le faire, je ne sais pas comment te remercier.

Merci pour ce travail fourni.

Corrigé.

Citation:

---

Envoyé par Alex020181

Corrigé.

---

C'est fantastique, merci mille fois