Comment extraire les classes et nombre d'heur de chaque prof d'un emploie d

Grand Bonjour :

je vous envoie une partie d'un réel emploi du temps d'un collège dont je veux extraire les classe de chaque prof et aussi le nombre d'heur de chaque classe

Merci d'avance

21emp1.xlsx (14.86 Ko)

Bonjour,

Une proposition à tester.

Cordialement.

8emp1.xlsx (23.09 Ko)

Bonjour à tous,

une proposition de macro qui fonctionne si n'y a pas plus de 6 classes par prof

Sub ChargeProf()
Dim T, Dico, i As Long, j As Integer, k As Integer
Set Dico = CreateObject("Scripting.Dictionary")

With Worksheets("Feuil1")
T = .Range("D4:AQ" & .Range("A" & Rows.Count).End(xlUp).Row)

For i = LBound(T, 1) To UBound(T, 1)
    k = 0
    For j = LBound(T, 2) To UBound(T, 2)
        If T(i, j) <> "" Then Dico(T(i, j)) = Dico(T(i, j)) + 1
    Next
    If Dico.Count > 0 Then
        For Each clé In Dico.keys
            k = k + 1
            .Cells(i + 3, 43 + k) = clé   'copie classe à partir de colonne AR
            .Cells(i + 3, 49 + k) = Dico(clé)      'copie heures par classe à partir de colonne AX
        Next
    End If
    Dico.RemoveAll
Next
End With
End Sub

A+

Bonjour mourad1966, le forum,

Voyez si le fichier joint peut vous aider

Bonjour a tous et merci pour les réponses

* a AlgoPlus :une proposition de macro qui fonctionne si n'y a pas plus de 6 classes par prof .

peut tu changer ce nombre 6 jusqu’à 16 ?

* A njhub : les formules j'arrive a les comprendre bien mais peu tu arranger sa a ne pas avoir de cellule vide

Avec ces propositions et celles de l'autre forum... vous devriez commencer à pouvoir essayer d'adapter une solution.

Le multipostage (poster le même souci sur plusieurs forums) n'est pas vraiment apprécié !

Rechercher des sujets similaires à "comment extraire classes nombre heur chaque prof emploie"