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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
mourad1966
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 juin 2019
Version d'Excel : 2007

Message par mourad1966 » 23 novembre 2019, 15:07

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
EMP1.xlsx
(14.86 Kio) Téléchargé 11 fois
Avatar du membre
Zebulon2
Membre fidèle
Membre fidèle
Messages : 345
Appréciations reçues : 29
Inscrit le : 6 juillet 2019
Version d'Excel : Office 2019 FR

Message par Zebulon2 » 23 novembre 2019, 15:26

Bonjour,

Une proposition à tester.
Cordialement.
EMP1.xlsx
(23.09 Kio) Téléchargé 4 fois
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 721
Appréciations reçues : 59
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 23 novembre 2019, 15:58

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+
n
njhub
Membre impliqué
Membre impliqué
Messages : 1'406
Appréciations reçues : 79
Inscrit le : 5 juin 2017
Version de Calc : LO 6352 FR-YT

Message par njhub » 23 novembre 2019, 17:08

Bonjour mourad1966, le forum,

Voyez si le fichier joint peut vous aider
mourad1966-EMP1.xlsx
(13.49 Kio) Téléchargé 7 fois
m
mourad1966
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 juin 2019
Version d'Excel : 2007

Message par mourad1966 » 24 novembre 2019, 19:08

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
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 721
Appréciations reçues : 59
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 25 novembre 2019, 11:14

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é !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message