emploi du temps

[biomed]

bonjour a tous et a toutes
l'anne derniere, j'avais prepare un emploi du temps pour mes enfants avec une feuille recapitulative.pourriez-vous m'aider a automatiser la feuille "famille".
je m'explique.je renseigne les feuilles individuelles et automatiquement la feuille famille doit se remplir.
merci de votre aide.
je vous joint mon fichier

 

[michel_m]

Re : emploi du temps

Bonjour,

Avant de partir au boulot:

enlève les mots de passe pour que quelqu'un puisse te proposer une solution

 

[biomed]

Re : emploi du temps

desole
voici le mot de passe : ISABELLE (en majuscules)
merci

 

[Tibo]

Re : emploi du temps

Salut Biomed,

J'essaierai de m'occuper de ton fichier ce soir si personne n'est passé avant.

Serais-tu de Maubeuge ou des environs ?

Certains noms de prof évoquent pour moi des souvenirs de jeunesse.


@+

 

[biomed]

Re : emploi du temps

bonjour,
effectivement, je suis bien de maubeuge !!
pourquoi ??

 

[Tibo]

Re : emploi du temps

re,

J'ai regardé ton fichier.

Les cellules fusionnées font obstacle pour un traitement par formule.

Souhaites tu conserver ces cellules fusionnées ?

Si oui, le traitement ne pourra se faire que par VBA, ce que je sais pas faire.

Sinon je suis également de Maubeuge et j'ai reconnu quelques noms de professeurs que j'ai eu il y a une vingtaine d'années.

@+

 

[Gorfael]

Re : emploi du temps

bonjour a tous et a toutes
l'anne derniere, j'avais prepare un emploi du temps pour mes enfants avec une feuille recapitulative.pourriez-vous m'aider a automatiser la feuille "famille".
je m'explique.je renseigne les feuilles individuelles et automatiquement la feuille famille doit se remplir.
merci de votre aide.
je vous joint mon fichier

Salut à toutes et à tous

ton fichier est déjà limite, alors avec mes gros sabots, j'ai peur que ça coince.
Donc, je te mets la macro pour Anthony à mettre dans le module de classe lié à cette feuille

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Worksheet_Change
Dim X As Integer

If Intersect(Target, Range("F10:K106")) Is Nothing Then GoTo Sort_Worksheet_Change
Application.ScreenUpdating = True

Sheets("Famille").Unprotect Password:="ISABELLE"
For X = 1 To Target.Columns.Count
    Select Case Target.Columns(X).Column
        Case 6
            Range("F10:F106").Copy (Sheets("Famille").Range("F10"))
        Case 7
            Range("G10:G106").Copy (Sheets("Famille").Range("J10"))
        Case 8
            Range("H10:H106").Copy (Sheets("Famille").Range("N10"))
        Case 9
            Range("I10:I106").Copy (Sheets("Famille").Range("R10"))
        Case 10
            Range("J10:J106").Copy (Sheets("Famille").Range("Y10"))
        Case 11
            Range("K10:K106").Copy (Sheets("Famille").Range("Z10"))
    End Select
Next X
Sheets("Famille").Protect Password:="ISABELLE"

Sort_Worksheet_Change:
    Application.ScreenUpdating = True
    Exit Sub
Err_Worksheet_Change:
    MsgBox (Err.Number & " - " & Err.Description)
    Resume Sort_Worksheet_Change
End Sub

C'est une macro à déclenchement automatique
Chaque fois que tu sorts d'une cellule, elle se déclenche

On ne peut pas se contenter de faire de la copie sur la cellule modifiée, à cause des fusions. Comme je suis feignant, j'ai fait au plus court : si la/les cellules concernées ne font pas partie de l'emploi du temps on sort

si elle en faont partie,
on enlève la protection de la feuille famille
on verifie chaque colonne ayant subie une modification et on copie la colonne sur la colonne concernée de la feuille famille
on reprotège la feuille famille
on sort

Une fois qu'elle fonctionne pour Anthony (et seulement à ce moment-là, il suffira de la copier sur un autre module de classe lié à une feuille. Celle de feuile Kevin par exemple et de remplacer les destinations par la bonne colonne

Anthony ___ Kevin ___Temy___Tanguy
F10________G10_____H10_____I10
J10_________K10_____L10_____M10
N10________O10______P10_____Q10
R10________S10______T10_____U10
V10________W10______X10_____Y10
Z10________AA10______AB10_____AC10

Donc, pour Anthony, on a :
Case 11
Range("K10:K106").Copy (Sheets("Famille").Range("Z10"))
et pour tanguy, on aura
Case 11
Range("K10:K106").Copy (Sheets("Famille").Range("AC10"))

A+