Feuille de synthèse bis

Bonjour,

C'est vrai que j'aurais pu donner un petit peu plus de précisions ^^

Voilà ce que j'aimerais afficher dans la synthèse :
- Nom des unités (Médecine 1, Médecine 2,...) --> Ce n'est pas toujours des chiffres !
- Dates
- Horaires --> Correspond au H3...
- Fonctions (ID, ASSC,...)

Merci beaucoup :)

Salutations

Salut,

Merci beaucoup pour ta rapidité de réponse. Je n'ai pas pu me pencher sur cette nouvelle macro avant aujourd'hui, entre les congés et le boulot...

Tout d'abord, je suis très fan du bouton "actualiser", c'est vraiment hyper pratique !

Je rencontre plusieurs petites problématiques d'adaptation. A savoir que je n'avais pas mis toutes les unités et les départements dans le fichier que je t'avais envoyé (du coup je n'arrive pas à modifier à tous les endroits et ça créé des bugs)

Mais avant de te lister les petites questions d'adaptation dans le codes, penses-tu qu'il serait possible de n'afficher que les unités où il y a des absents et ne pas toutes les avoir sur le synthèse ?

Il faut dire qu'avoir toutes les unités affichées m'oblige à faire un scrool horizontal et pour une vision améliorée ce n'est pas terrible en terme d'efficience.

J'imagine que si la réponse est oui cela implique que je dé fusionne toutes les cellules des unités ? (ce n'est pas un problème)

Oui c'est une très bonne idée si c'est possible de masquer les colonnes vides.

Je te mets les modifications que j'ai fait comme ça tu me dis si j'ai fais des choses pas justes :

For f = 2 To 9 'boucle sur les feuiulles (synthèse étant en 1er

--> J'ai mis jusqu'à 9 car j'ai 9 feuilles au total

col = Application.WorksheetFunction.Match(Sheets(f).Name, Sheets("Synthèse").Range("A1:AD1"), 0) 'colonne de depart du departement

--> J'ai mis jusqu'à AD1 car c 'est le nombre de colonnes que j'ai dans la synthèse

Il me fait un débogage sur cette ligne et je n'arrive pas à comprendre l'erreur :

l1 = Application.WorksheetFunction.Match(Sheets("Synthèse").Cells(2, c), Sheets(f).Range("A:A"), 0) ' 1ere ligne correspondant au sous-titre dans la feuille du departement

J'ai réussi à un moment donné à avoir des données dans la synthèse en avant repris la Macro sur mon fichier de travail, mais là plus rien n'apparait car il part en débogage directement.

Voilà où j'en suis... je pense qu'il y aura aussi d'autres lignes à changer, voici le détail de mes feuilles :

Feuille 1 = Synthèse
Feuille 2 (dpt Médecine) = 5 unités
Feuille 3 = 4 unités
Feuille 4 = 5 unités
Feuille 5 = 7 unités
Feuille 6 = 2 unités
Feuille 7 = 2 unités
Feuille 8 = 2 unités
Feuille 9 = 4 unités

J'espère que ces détails te suffisent pour m'aider.

Un grand merci !

Cordialement

Hello,

Alors je les ai déjà entrée sur mon fichier dans la feuille de synthèse et du coup en conséquence j'ai prolongé dans la macro pour mettre de A1 à AD1