Copie conditionnelle de cellule

sylvanu à dit:

Bonjour Salbingu,
Vous auriez un petit fichier test ?
Cela permettrait des réponses plus concises et plus pertinentes.

Cliquez pour agrandir...

sylvanu à dit:

Votre fichier Emplois_enseignants ne s'ouvre pas, et plante mon XL.
Pourriez vous le supprimer et le remettre. Peut être un problème de transfert.

Cliquez pour agrandir...

sylvanu à dit:

Non vous l'avez supprimé mais pas remis. 🙂

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Salbingu,
Désolé, je jette l'éponge.
Nous ne sommes plus dans une aide mais dans un développement complet qui va demander beaucoup de temps, plus que j'en ai de disponible.
D'autant que les deux bases ne sont pas strictement identiques, par exemple vous avez TAKOUGANG née FOTSING Matuekam d'un coté et TAKOUGANG née FOTSING de l'autre, et je pense qu'il y en a d'autres. Ce qui obligera à gérer les différences, ce sera long, compliqué et chronophage.
De plus les plannings classes vont de 7:30 à 12:00, les plannings enseignants de 7:30 à 17:00, ce qui veut dire qu'après ce développement en arrivera d'autres avec d'autres fichiers.

En espérant qu'une bonne âme disponible pourra vous aider. 😉

Cliquez pour agrandir...

salbingu à dit:

Bonsoir. Je reviens vers vous avec des fichiers allégés.

Cliquez pour agrandir...

Sub Calcul()
' figeage de l'écran pour accélération. ICI mis en commentaire pour la mise au point de la macro.
'Application.ScreenUpdating = False
' Dernière ligne de la liste des profs
Derlig = Sheets("Liste").Range("A1000").End(xlUp).Row
' Effacement des flags de suivi en colonne E
Range("E2:E500").ClearContents
' Pour tous les profs
For N = 2 To Derlig
    ' Récupérer le nom du prof dans NomProf
    NomProf = Sheets("Liste").Cells(N, 1)
    ' X dans la liste pour se reperer en cas de soucis
    Sheets("Liste").Cells(N, "E") = "X"
    ' Activer la feuille du prof
    Sheets(NomProf).Activate
    ' Ecriture suivi dans Statusbar
    Application.StatusBar = " ( " & N & "/" & Derlig & " )  " & "Traitement de la feuille " & NomProf
    ' Pour toutes les feuilles des plannings
    For Each Sh In Workbooks("EMPLOIS DU TEMPS  DEFINITIFSFMATIN.FINAL.xlsm").Sheets
        ' On mémorise dans quelle classe on est ( récupération du nom de l'onglet )
        NomClasse = Sh.Name
        ' Pour toutes les lignes du planning de la classe
        For L = 5 To 10
            ' Pour toutes les colonnes du planning de la classe
            For C = 2 To 6
                ' Si la cellule contient le nom du prof.
                If Sh.Cells(L, C) Like "*" & NomProf & "*" Then
                    ' On récupère le créneau horaire en colonne A
                    CréneauHoraire = Sh.Cells(L, 1)
                    ' Le planning prof commence en B7, celui des classes en B5, donc Offset 2
                    ' On écrit la classe dans le bon créneau horaire du bon jour.
                    Sheets(NomProf).Cells(L + 2, C) = NomClasse
                End If
            Next C
        Next L
    Next Sh
Next N
Application.StatusBar = ""
End Sub

sylvanu à dit:

Bonsoir,
Il n'y a pas de fichiers attachés donc j'ai travaillé avec les précédents.

En PJ un premier essai. Avec :

VB:

Sub Calcul()
' figeage de l'écran pour accélération. ICI mis en commentaire pour la mise au point de la macro.
'Application.ScreenUpdating = False
' Dernière ligne de la liste des profs
Derlig = Sheets("Liste").Range("A1000").End(xlUp).Row
' Effacement des flags de suivi en colonne E
Range("E2:E500").ClearContents
' Pour tous les profs
For N = 2 To Derlig
    ' Récupérer le nom du prof dans NomProf
    NomProf = Sheets("Liste").Cells(N, 1)
    ' X dans la liste pour se reperer en cas de soucis
    Sheets("Liste").Cells(N, "E") = "X"
    ' Activer la feuille du prof
    Sheets(NomProf).Activate
    ' Ecriture suivi dans Statusbar
    Application.StatusBar = " ( " & N & "/" & Derlig & " )  " & "Traitement de la feuille " & NomProf
    ' Pour toutes les feuilles des plannings
    For Each Sh In Workbooks("EMPLOIS DU TEMPS  DEFINITIFSFMATIN.FINAL.xlsm").Sheets
        ' On mémorise dans quelle classe on est ( récupération du nom de l'onglet )
        NomClasse = Sh.Name
        ' Pour toutes les lignes du planning de la classe
        For L = 5 To 10
            ' Pour toutes les colonnes du planning de la classe
            For C = 2 To 6
                ' Si la cellule contient le nom du prof.
                If Sh.Cells(L, C) Like "*" & NomProf & "*" Then
                    ' On récupère le créneau horaire en colonne A
                    CréneauHoraire = Sh.Cells(L, 1)
                    ' Le planning prof commence en B7, celui des classes en B5, donc Offset 2
                    ' On écrit la classe dans le bon créneau horaire du bon jour.
                    Sheets(NomProf).Cells(L + 2, C) = NomClasse
                End If
            Next C
        Next L
    Next Sh
Next N
Application.StatusBar = ""
End Sub

La macro se lance avec un bouton dans la page Liste.
J'ai détecté quelques problèmes de pages, que j'ai résolu en créant des feuilles vierges pour que la macro aille jusqu'au bout.
Je n'ai rien contrôlé au niveau des plannings profs.
... Bon courage.

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir,
Reste à tout vérifier. .😀

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Salbingu,
Comme je n'ai ni à faire la mise au point, ni surtout la vérification, je peux m'amuser. 🙂
J'ai rajouté dans le fichier une feuille Classes.
Un appui sur le bouton rapatrie tous les noms des classes.
Un appui sur le nom d'une classe rapatrie le planning de cette classe. Rapide et efficace.
Je pense que cela peut vous être utile pour voir un planning sans fouiller dans toutes les feuilles.
( évidemment on ne peut pas modifier un planning à partir de cette page, c'est juste de la visualisation. )

Cliquez pour agrandir...