Indiquer des heures dans le menu déroulant en fonction de ma légende

Salut à tous,

Alors voilà, je vous présente le tableau que j'ai réussi à réaliser (j'ai bidouillé), mais je ne maitrise pas trop…

dans ce tableau, je souhaiterai que lorsque je choisi dans ma liste déroulante "une légende", les cellules qui se mettent automatiquement en couleur soit rempli par une heure.

je m'explique: Si par exemple je choisi dans ma légende en F8 "Réun.Equip", je souhaite qu'il soit indiqué automatiquement dans la cellule D8; E8 = 14:00; 16:30.

je ne maitrise pas les macros, mais je pense que c'est par la que je dois passer.

Pouvez vous, m'apporter une peu d'aide svp.

Hello tout le monde,

Après suivi les cours et la formation sur Excel pratique (cours VBA,...), je suis toujours au même point sur mon planning, mais pas dans la maitrise d'EXCEL :):).

En effet, je n'arrive pas à insérer les macros pour que mon tableau devienne automatique.

j'ai besoin d'aide pour me lancer certainement...

merci de votre solidarité :)

Bonjour Vansu, bonjour le forum,

Quelle est le tour de passe-passe qui permet de savoir qu'une réunion d'équipe se fait de 14:00 à 16:30 ? Idem pour les autres légendes...

Bonjour,

Merci de me répondre,

Justement pas de tour de passe-passe. Il peut y avoir des réunions le matin comme l'après -midi. Est ce possible de mettre un code vba pour indiquer dans les 2 cases de droite des horaires que je définirai dans le code en fonction de la légende.

Ex:

Réunion Equi le lundi de 14H à 16h30

Réunion Equi le jeudi matin: de 9H30 à 12H.

et idem pour les autres légendes?

Re,

Comme tu n'a pas daigné mettre le tableau des légendes, j'ai tout écrit en dur dans le code (tu n'auras plus qu'à adapter les tranches horaires)... J'ai supprimé la validation de données dans toutes les cellules début / fin.

Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PL As Range

Set PL = Range("A5").CurrentRegion.SpecialCells(xlCellTypeAllValidation)
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub
Select Case Target.Value
    Case ""
        Target.Offset(0, -2).Resize(1, 2).ClearContents
    Case "CA"
        Target.Offset(0, -2).Value = ""
        Target.Offset(0, -1).Value = ""
    Case "CT"
        Target.Offset(0, -2).Value = ""
        Target.Offset(0, -1).Value = ""
    Case "Réu. Equi."
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "Réu. Insti."
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "formation"
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "Perm"
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "récup."
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "CSE"
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "Qualité"
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "Num"
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "Restau"
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "A.Maladie"
        Target.Offset(0, -2).Value = ""
        Target.Offset(0, -1).Value = ""
    Case "Délég."
        Target.Offset(0, -2).Value = "06:00"
        Target.Offset(0, -1).Value = "08:00"
    Case "ferié"
        Target.Offset(0, -2).Value = ""
        Target.Offset(0, -1).Value = ""
    Case "Récup.Ferié"
        Target.Offset(0, -2).Value = ""
        Target.Offset(0, -1).Value = ""
End Select
End Sub

Un énorme merci, je regarde ça des que je peux ;)! :)

Re ThauThème,

je ne peux pas laisser la validation de donnée? même avec le VBA que tu m'as fait ?

si c'est pas trop demandé :) je souhaiterai également calculer la différence entre la fin de poste et le début de l'autre poste en nombre d'heures. Si le temps est supp à 11h alors mettre la case vide en couleur, si c'est supérieur à 23h mettre les cases vides dans la même couleur. J'imagine que je dois aussi passer par un code VBA?

:(, lorsque j'ajoute une colonne ça fonctionne pas,

et quand je duplique le tableau sur la seconde feuille même chose.

je tente de regarder et d'essayer de comprendre le VBA mais je suis en lutte, ça devrait venir je pense…

mais si quelqu'un a une âme charitable pour me rendre service :) je suis preneuse!