Formule matricielle

[ipotez]

Bonjour, alors j'ai une problematique que je sais pouvoir se résoudre via une matricielle mais je ne maitrise pas le sujet 🙁

Mon classeur comprend 13 feuilles, 12 calendriers semestriels pour 6 personnes
Jean michel : feuilleSemestre1JM feuilleSemestre2JM
Sylvie : feuilleSemestre1Sy feuilleSemestre2Sy
....
La treizième feuille contient une liste de salles où les gens peuvent aller travailler. J'ai nommé ma liste =salles pour obtenir des listes déroulantes devant chaque date.
Chaque personne peut donc choisir sa salle sur sa feuille de calendrier.

Mon rêve serait : lorsqu'une personne choisit une salle le 5 février, j'aimerais que la salle ne soit plus disponible pour les autres personnes.

Quelqu'un a une idée ?
Merci d'avance.
'Je peux envoyer le xls 2007 si mes explications ne sont pas assez claires

 

[hoerwind]

Re : Formule matricielle

Bonjour,

Avec un petit exemple en pièce jointe, reprenant deux ou trois feuilles et la feuille de synthèse ainsi que le résultat que tu souhaites obtenir, ce serait plus facile pour t'aider.

 

[BOISGONTIER]

Re : Formule matricielle

Bonjour,

Données/Validation

JB

 

[ipotez]

Re : Formule matricielle

Merci pour vos réponses,
JB ta page est terrible, truffée de bons tuyaux, je vais me la coller quelque part et faire des essais.

Par contre je dois vous avouer que si l'un d'entre vous est super à l'aise avec ça je gagnerai un temps fou (vu qu'on me demande l'outil avant la fin de la semaine...). J'ai collé le fichier ici si hoerwind ou d'autres veulent jeter un coup d'oeil.

Pour resumer avec le fichier sous les yeux, j'aimerais que si le formateur DD a choisi la salle 209 le matin le 01/01/2010 la salle n'apparaisse plus dans les listes déroulantes des autres formateurs le matin le 01/01/2010

Merci infiniment encore

 

[BOISGONTIER]

Re : Formule matricielle

Voir exemple 3D en PJ

JB

 

[ipotez]

Re : Formule matricielle

Whaou, magnifique, merci Jb !!! 🙂

Je cours essayer d'adapter mon fichier avec cette somptueuse macro.

Merci encore !

 

[ipotez]

Re : Formule matricielle

JB je t'ai envoyé un message, j'ai un soucis avec ton code.
désolé du dérangement
damien

 

[BOISGONTIER]

Re : Formule matricielle

Il faut un fichier .zip

JB

 

[BOISGONTIER]

Re : Formule matricielle

Bonjour,

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Calendrier Salles.xls

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   [A1].Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Set champ = Range("D4:D34,F4:F34,K4:K34,M4:M34,R4:R34,T4:T34")
    PremSem = Array("1er SemestreDD", "1er SemestreCF", "1er SemestreAM", _
       "1er SemestreFL", "1er SemestreRV", "1er SemestreYB", _
       "1er SemestreOccas")
    DeuxSem = Array("2nd SemestreDD", "2nd SemestreCF", "2nd SemestreAM", _
       "2nd SemestreFL", "2nd SemestreRV", "2nd SemestreYB", _
       "2nd SemestreOccas")
    '---
    p = Application.Match(Sh.Name, PremSem, 0)
    If Not IsError(p) And Not Intersect(champ, Target) Is Nothing Then
      temp = ""
      ligne = Target.Row
      col = Target.Column
      For Each c In [SALLES]
        témoin = False
        For Each s In PremSem
          If c = Sheets(s).Cells(ligne, col) Then témoin = True
        Next s
        If Not témoin Then temp = temp & c.Value & ","
       Next c
       Target.Validation.Delete
       Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
     End If
    '---
    p = Application.Match(Sh.Name, DeuxSem, 0)
    If Not IsError(p) And Not Intersect(champ, Target) Is Nothing Then
      temp = ""
      ligne = Target.Row
      col = Target.Column
      For Each c In [SALLES]
        témoin = False
        For Each s In DeuxSem
          If c = Sheets(s).Cells(ligne, col) Then témoin = True
        Next s
        If Not témoin Then temp = temp & c.Value & ","
       Next c
       Target.Validation.Delete
       Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
     End If
End Sub


JB