Autres Faire un récapitulatif de plusieurs jours dans une même feuille

Caninge

XLDnaute Impliqué
Bonjour à tous,

Pouvez-vous me donner un coup de main.

La tâche me paraît difficile d'autant plus que mes données sont placées un peu spécialement.
Mais avec Excel tout est possible. Il y a des limites tout de même !
Dans mon tableau il y a plusieurs jours de jeudi à lundi (il en manque 3)
Comment récupérer les données de ces jours pour les placer dans la feuille planning.
Dans l'ordre alphabétique noms - Jours - heures et avec un espace entre chaque
personne afin d'imprimer les feuilles et de les découper pour en faire des fiches personnelles.

Ouf! j'arrête mon explication.

Merci de se pencher sur mon tableau

CANINGE
 

Fichiers joints

pierrejean

XLDnaute Barbatruc
Bonjour Caninge

Vois si cela te convient
NB:La feuille planning se met a jour a l'activation (aller sur une autre feuille et revenir)
 

Fichiers joints

Caninge

XLDnaute Impliqué
Bonjour PierreJean,

et bien dis donc cela fait longtemps que tu es sur ce site. dans les premiers peut-être.
la procédure...ouh !

J'ai essayé rajouté des lignes. Ca (coince) ici Sheets("Planning").Range("D" & ligne) = CDate(Split(x(m), "|")(2))

merci

A plus
 

Fichiers joints

Caninge

XLDnaute Impliqué
re,

Ok pour les lignes complètes,
je peux enlever des noms si besoin cela ne gêne pas ?
j'adapte le code sur mon fichier d'origine et je te tiens au courant.

Merci

A plus
 

Caninge

XLDnaute Impliqué
re,

j'ai adapté mon fichier et mis la procédure au bon endroit (tout au moins je le pense)
La présence des autres feuilles autre que les jours doivent perturber.
Tu peux regarder. Ah mince mon fichier est trop volumineux. 2914 Ko
je suis prit
 

pierrejean

XLDnaute Barbatruc
Re

Désolé mais il y a trop de différences pour que je puisse faire une adaptation rapide
Je regarderais quand j'aurais plus de temps
Pour le futur songe a proposer une version plus proche de la version définitive
 

Caninge

XLDnaute Impliqué
re,

j'aurais du donner mon fichier avec toutes les pages. J'ai fais une bêtise.
oui je pense qu'il serait bien de mettre la dernière version de EXCEL

A bientôt

Caninge
 

Caninge

XLDnaute Impliqué
Bonjour pierrejean.

superbe travail. Je voudrais bien connaître tout ça !
je te tiens au courant si en cas j'avais quelques petits problèmes.

Merci beaucoup et à bientôt

CANINGE
 

Caninge

XLDnaute Impliqué
Bonjour Pierrejean et tous les autres excelliens de ce forum.

La procédure fonctionne très bien. j'ai rajouté une autre feuille nommée "Planning journalier"
dans cette feuille je voudrais faire un récapitulatif non plus par Prénoms mais par Jours.
je suppose qu'il faut modifier la macro. L'explication est dans la feuille concernée.
Mais entendu je ne sais pas faire...mais vous ! vous savez !

merci de se pencher sur mon fichier.

CANINGE
 

Fichiers joints

Caninge

XLDnaute Impliqué
Bonjour Pierre Jean,

j'ai vu que tu avais rajouter une procédure.
elle ne se déclenche pas. Je ne sais pas si cela vient de moi.
Merci
 

Caninge

XLDnaute Impliqué
Je viens de faire des essais.
Apparemment c'est bon.
tu n'as pas à t'excuser d'avoir oublié le code. Tu es pardonné mille fois. C'est quand même toi
qui fait tout le travail. Lol
Merci beaucoup.
 

Caninge

XLDnaute Impliqué
Me revoici Pierrejean

après-coup j'ai vu que mon tableau "planning journalier" n'était pas très clair.
j'aimerais qu'il soit disposé comme dans la plage en jaune :
Colonne C dans l’ordre alphabétique et ensuite colonne D dans l'ordre aussi (du plus tôt au plus tard)
Et pour finir une séparation entre chaque personne.
Merci
 

Fichiers joints

Caninge

XLDnaute Impliqué
Bonjour pierrejean.

je regarde. J'ai essayé ce weekened de comprendre et modifier les macros.

mais j'ai échoué rapidement.

Sympa de m'avoir aidé. Je te tiens au courant.

CANINGE
 

Caninge

XLDnaute Impliqué
Bonjour PierreJean et tous les autres Excellistes.

me revoici ! apparemment tout se passe bien : le planning journalier et individuel c'est OK !
C'est au niveau des validations de données que je n'arrive pas à régler le problème. Je veux parler des changements de feuilles
J'ai essayé de modifier la macro :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If IsNumeric(Application.Match(Sh.Name, Array("Jeudi", "Vendredi", "Samedi", "Dimanche", "Lundi", "références", "Planning Individuel"))) _
And Target.Address = IIf(LCase(Sh.Name) = "références", "$L$2", "$G$3") Then _
On Error Resume Next: Application.Goto Sheets(CStr(Target)).[A1]
End Sub

Pour se repérer ce sont les cellules sur fond gris dont j'ai validé " Liste des feuilles" à des endroits différents sur les 12 feuilles du classeur.

Merci de jeter un coup d'oeil.

CANINGE
 

Fichiers joints

Haut Bas