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

[Caninge]

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

 

[ChTi160]

Bonjour CANNINGE
je ne veux pas me soustraire a notre ami pierrejean mais voilà ce que j'ai fait .
j'ai créé une Nouvelle macro issue de celle appelée " Planning ou journalier " et que j'ai appelé
"Planning_Affectations "
appelée depuis l'événement Worksheet_Activate de la feuille "Planning Affectations"

Private Sub Worksheet_Activate()
Call Planning_Affectations
End Sub

la procédure "Planning_Affectations" ci dessous

Sub Planning_Affectations()
Set dico = CreateObject("Scripting.dictionary")
feuilles = Array("Jeudi", "Vendredi", "Samedi", "Dimanche", "Lundi")
For p = LBound(feuilles) To UBound(feuilles)
Set sh = Sheets(feuilles(p))
  If Not sh.Name Like "Planning*" Then
      For n = 8 To sh.Range("G" & Rows.Count).End(xlUp).Row
      If sh.Range("B" & n) <> "" Then
         lieu = sh.Range("B" & n)
         Heure = sh.Range("F" & n)
         Travail = sh.Range("C" & n)
      End If
          If sh.Range("G" & n) <> "" Then
              ShtName = sh.Name
              dico(ShtName) = dico(ShtName) & sh.Range("G" & n) & "|" & lieu & "|" & Heure & "|" & Travail & ";"
          End If
      Next
  End If
Next
a = dico.keys
b = dico.items
For n = LBound(a) To UBound(a)
  For m = LBound(a) To UBound(a)
      no_n = InStr(Join(feuilles, ","), a(n))
      no_m = InStr(Join(feuilles, ","), a(m))
      If no_n < no_m Then
          tempa = a(n)
          tempb = b(n)
          a(n) = a(m)
          b(n) = b(m)
          a(m) = tempa
          b(m) = tempb
      End If
   Next
Next
Application.ScreenUpdating = False
With Sheets("Planning Affectations")
    .Range("A3:F" & Rows.Count).ClearContents
ligne = 4
For n = LBound(a) To UBound(a)
  x = Split(b(n), ";")
  For m = LBound(x) To UBound(x) - 1
      .Range("B" & ligne) = a(n)
      .Range("D" & ligne) = Split(x(m), "|")(0)
     
      .Range("F" & ligne) = CDate(Split(x(m), "|")(2)) 'heure
     
      .Range("C" & ligne) = Split(x(m), "|")(3)
      .Range("E" & ligne) = Split(x(m), "|")(1)
   
      ligne = ligne + 1
  Next
  ligne = ligne + 1
Next
End With
End Sub

Content de t'avoir croisé !
Bonne Journée
jean marie

 

[Caninge]

Bonjour ChTi160,

j'ai fait des essais. Ca colle apparemment.

Serait-il possible d'avoir des espaces entre chaque écriture comme dans le fichier joint.

C'est peut-être ici la réponse :

ligne = ligne + 1
Next
ligne = ligne + 1

Mais bon je ne comprend pas trop.

Merci beaucoup

 

[ChTi160]

Re
normalement y'a un espace !
une image a gauche ce que j'obtiens et a Droite ce que tu veux !
explique ce que tu veux !
jean marie

 

[Caninge]

Mes lignes ont du bouger.
Regarde maintenant ça doit être bon

 

[ChTi160]

ah
Ok je viens de comprendre !
je regarde
jean marie

 

[ChTi160]

Re
une version a tester
jean marie

 

[Caninge]

J'ai testé. La macro ne fonctionne plus.

 

[ChTi160]

Re
je sais pas ce qui c'est passé , mais c'est un problème de couleur de l'écriture dans la feuille Lol
tu sélectionnes toutes les cellules en Haut a Gauche et tu mets la couleur à Noire !
jean marie

 

[Caninge]

Re,
Les lignes avec espaces ne sont pas colorisées. C'est simplement pour montrer qu'il faut des espaces.

 

[ChTi160]

et alors il faut colorer en plus de l'espace ?

 

[Caninge]

Non il ne faut pas coloriser les espaces. Regarde c'est parfait.

 

[ChTi160]

Re
edit : Oupss pas vu Lol
Super n'hésite pas si besoin !
jean marie

 

[Caninge]

Oui OK je ne regarde pas.
Maintenant je vais mettre les macros dans mon vrai fichier.
Je te tiens au courant.
Merci

 

[ChTi160]

Ok
jean marie

 

[Caninge]

Bonjour Jean-Marie,
ça va ? j'ai réussi à mettre les macros dans mon vrai fichier.
Je ne comprenais pas trop mais j'y suis arrivé. Cela fonctionne comme je veux.
Si seulement je connaissais tout ça !!! moi et l'anglais nous sommes fâchés. Je n'ai jamais appris en fait.
Je ne parle que le français et le Bourbonnais. Lol.
Je verrais si je rajoute autre chose.
Merci en attendant c'est bien sympa.
A plus.
CANINGE