Microsoft 365 Besoin de conseil - extraire des données pour mettre dans un tableau

[Gen Rose]

Bonjour le forum,

Dans un classeur, j'ai plusieurs plages dans une feuille (Planif) remplies hebdomadairement pour une équipe. À chaque semaine je veux exporter les données de cette feuille vers une autre (Donnees) sous forme de tableau qui me permettra de faire un TCD (voir feuille nommée TCD) pour des statistiques.

J'avais commencé dans le document original à extraire les données par formule matricielle... mais c'est un travail de moine à n'en plus finir et les cellules étant liées, tout serait effacé la semaine suivante. Je devais ajouter des colonnes manuellement et faire du copié-collé en valeur pour retirer les matricielles. L'idée ici est de garder chaque semaine de l'année pour les statistiques. J'ai aussi ajouté des colonne temps, date et mois. C'est contre-productif et je dois trouver une vraie méthode viable.

J'ai donc besoin de vos conseils à savoir si je dois me diriger vers VBA ou Power Query. Dans les 2 cas, j'aurai une grande courbe d'apprentissage et je ne veux pas passer du temps sur une méthode pour réaliser que j'aurais du faire autrement. Dans les 2 cas, je vais certainement solliciter encore l'aide du forum pour m'aider car ce projet me semble complexe.

Néanmoins, je veux gagner en autonomie mais je dois avancer vite car le besoin est maintenant.

Ce sera plus limpide avec le fichier joint.
Merci beaucoup

 

[sousou]

Bonjour
Voici un essai a vérifier la validité.
J'utilise la feuille planif pour constitué la base de données (mesdonnées)
le TCD(2) est affilié au tableau de cette base de données.
A voir

 

[Gen Rose]

Bonjour
Voici un essai a vérifier la validité.
J'utilise la feuille planif pour constitué la base de données (mesdonnées)
le TCD(2) est affilié au tableau de cette base de données.
A voir

Bonjour @sousou et merci pour la soluce. Je vois que ce serait facile à adapter dans mon document même pour moi

La date donnent toujours le mois de février, comment corriger?

Et comment rendre le tout cumulatif lorsque l'on fait un nouvel horaire? J'ai besoin de faire un TCD pour les statistiques sur une année

 

[sousou]

Si je comprend, tu veux que la base de données ne soit pas raz à chaque fois.
Il existe dans le code une variable lignedonnées, qui représente à partir de quelle ligne les données sont insérées.
Dans le fichier joint, j'ai modifié pour que cette variable ne soit pas remise à 2.
Les données seront donc insérées à la suite de celles déjà présentent
Et j'ai ajouté une procédure raz pour vider la feuille

 

[Gen Rose]

Si je comprend, tu veux que la base de données ne soit pas raz à chaque fois.
Il existe dans le code une variable lignedonnées, qui représente à partir de quelle ligne les données sont insérées.
Dans le fichier joint, j'ai modifié pour que cette variable ne soit pas remise à 2.
Les données seront donc insérées à la suite de celles déjà présentent
Et j'ai ajouté une procédure raz pour vider la feuille

@sousou Oui, ça semble très bien fonctionner

Il reste le soucis de la date; est-ce possible de tenir compte de la date située en J2?
En ce moment, c'est toujours le mois de février

**EDIT: je viens de réaliser que la colonne date est extrapolée par les heures des horaires, qui est fausse. Je vais tenter de voir si ces cellules peuvent suivre la commande "AUJOURD'HUI".

 

[sousou]

Et oui, c'est que j'utilise la date qui se trouve sur les lignes ou tu affiches les heures ( c'est plus propre)
J'ai mis des formules ( en référence à j2) dans la première ligne de chaque zone afin d'obtenir la bonne date

 

[Gen Rose]

Et oui, c'est que j'utilise la date qui se trouve sur les lignes ou tu affiches les heures ( c'est plus propre)
J'ai mis des formules ( en référence à j2) dans la première ligne de chaque zone afin d'obtenir la bonne date

Merci, j'étais justement en train de me figurer comment faire cette formule

Question personnelle @sousou , combien de temps cela t'a pris pour en arriver au niveau expert en Excel?
Est-ce que tu as fait une formation dans une école, au travail ou encore autodidacte?
J'aimerais beaucoup arriver comme toi à créer une telle macro.

J'apprécie sincèrement ton aide pour ce fichier, ton travail est impeccable.
Merci

 

[sousou]

Ça fait longtemps que je bricole sur excel, les (années 2000) autodidacte, mais une très ancienne expérience à l'époque ou les pc n’existaient pas
Mais il y a bien plus fort sur ce site,
Tout ceci n'est pas très difficile, un peu de temps, et d'étude des possibilités d'excel.
Le plus important me semble-t'il est de bien définir ce qu'on veux, et d'avoir une réflexion logique.
Pas de hasard avec la programmation et ceci est valide pour tous les langages, le reste c'est de la syntaxe

 

[Gen Rose]

@sousou merci je crois qu'il n'y a rien qui équivaut à la pratique et l'étude mais je vais bien retenir ton point sur la réflexion logique.

Concernant l'affectation de la macro au bouton, j'ai 3 choix et je ne suis pas certaine si vraiment il faut passer par là? Il me semble que chaque macro sert à l'autre alors en choisir juste une...

 

[sousou]

Macro deb()
C est la Macro que j' ai affectée au bouton

 

[Gen Rose]

Macro deb()
C est la Macro que j' ai affectée au bouton

Merci

 

[Gen Rose]

Bonjour @sousou
J'ai adapté la macro à mon document et testé le tout.

Ça fonctionne bien sauf que j'ai oublié que les journées vides ne doivent pas être comptabilisées car cela fausse les statistiques au niveau du TCD.

Comment dire à la macro:

Exclus les cellules vide de la feuille Planif (plages des tâches):

Sub construire(mazone, emp)
Dim table(7)
With Sheets("Planif")
    For lg = 1 To mazone.Rows.Count
        For c = 1 To mazone.Columns.Count
        table(0) = emp.Value

        table(1) = .Cells(mazone.Row + lg, mazone.Column)
        table(3) = .Cells(mazone.Row + lg, mazone.Column + c)
        Set d = .Cells(mazone.Row, mazone.Column + c)
       table(5) = Format(d, "dddd dd mmmm yyyy")
        table(2) = Format(d, "hh:mm:ss")
        table(4) = 0.5
        table(6) = Format(d, "mmmm")

 

[sousou]

bonjour
J'étais absent quelques jours
tu peux faire ainsi
table(2) = Format(d, "hh:mm:ss")
If table(3) = "" Then table(4) = 0 Else table(4) = 0.5
table(6) = Format(d, "mmmm")

 

[Gen Rose]

bonjour
J'étais absent quelques jours
tu peux faire ainsi
table(2) = Format(d, "hh:mm:ss")
If table(3) = "" Then table(4) = 0 Else table(4) = 0.5
table(6) = Format(d, "mmmm")

Aucun soucis!
Je ne pourrai que tester demain et merci beaucoup j'apprécie pour le retour!

 

[Gen Rose]

bonjour
J'étais absent quelques jours
tu peux faire ainsi
table(2) = Format(d, "hh:mm:ss")
If table(3) = "" Then table(4) = 0 Else table(4) = 0.5
table(6) = Format(d, "mmmm")

J'ai testé et tout fonctionne parfaitement
Merci