Liste

[sten83]

Bonjour, je rencontre un petit problème avec une liste.
J'ai dans une feuille plusieurs colonnes avec une validation qui reprend une liste sur la feuil2, mon problème c'est que je voudrais reprendre en même temps que je choisi un nom dans la liste sa couleur.
Je sèche.

J'en profite en même temps pour vous souhaitez à toutes et à tous de joyeuses fêtes de fin d'années.

Merci pour votre aide!

Ci-joint le classeur

 

[Modeste]

Re : Liste

Bonjour sten83,

A vue de nez, des Mises en Forme Conditionnelles devraient faire l'affaire, si tu es sous Excel 2007 et que tu ne risques d'entrer que des valeurs de 1 à 7. Dis-nous si tu as besoin d'un coup de main.

Ceci dit, pourquoi avoir fusionné à chaque ligne, les cellules de 3 colonnes?

 

[sten83]

Re : Liste

Merci de ta réponse mais je ne peux pas me servir de la MFC car la liste doit contenir des noms j'ai mis des numéros pour l'exemple en plus la liste se modifie souvent au niveau du nombre, donc je cherche une autre piste.
Merci pour ton aide

 

[Gardien de phare]

Re : Liste

Bonsoir,

Un petit code Vba, ça te dirait ?

 

[pierrejean]

Re : Liste

Bonjour a tous

Je n'ai pas compris le rapport entre les nombres 25 a 35 affectés aux personnes et les 1 a 7 des couleurs non plus qu'a ce qui est en colonne C feuil2 (recoupements ex: 7-13 en gris 7-14 en orange )

 

[ROGER2327]

Re : Liste

Bonsoir à tous.

Puisque le classeur est de type .xlsm, il est destiné à recevoir des procédures en VBA. Une procédure évènementielle dans la feuille Feuil1 (onglet JANVIER) devrait faire l'affaire...​

Private Sub Worksheet_Change(ByVal cible As Range)
Dim oCel As Range, cCel As Range, oPlg As Range, cPlg As Range
    Set oPlg = Intersect(cible, Union(Range("H5:H35"), Range("O5:O35"), Range("V5:V35")))
    If Not oPlg Is Nothing Then
        With Feuil2: Set cPlg = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1)): End With
        For Each oCel In oPlg.Cells
            For Each cCel In cPlg.Cells
                If oCel.Value = cCel.Value Then oCel.Interior.Color = cCel.Interior.Color: Exit For
            Next
        Next
    End If
End Sub

ROGER2327
#6338

Lundi 2 Décervelage 140 (Saints Hassassins, praticiens - fête Suprême Quarte)
10 Nivôse An CCXXI, 6,7829h - fléau
2012-W52-7T16:16:44Z

 

[pierrejean]

Re : Liste

Bonsoir ROGER 🙂

Le fichier devrait avoir un index -18 (cf sub Feuil2)

 

[sten83]

Re : Liste

Pour ce qui est de la colonne motif les chiffre corresponde a des motif de remplacement juste pour info.
La colonne horaire correspond au horaires a effectuer.
Merci

 

[sten83]

Re : Liste

Je viens de tester c'est tout a fait ce que je voulais, par contre je dois ajouter des onglets jusque decembre, est ce que le code devra changer?

 

[ROGER2327]

Re : Liste

Re...

Je viens de tester c'est tout a fait ce que je voulais, par contre je dois ajouter des onglets jusque decembre, est ce que le code devra changer?

Presque rien. Dupliquer l'onglet JANVIER onze fois et renommer ces répliques FÉVRIER, MARS, ..., DÉCEMBRE.
​

Bonsoir ROGER 🙂

Le fichier devrait avoir un index -18 (cf sub Feuil2)

Coquin !​

Bonne soirée.


ROGER2327
#6339

Lundi 2 Décervelage 140 (Saints Hassassins, praticiens - fête Suprême Quarte)
10 Nivôse An CCXXI, 7,2488h - fléau
2012-W52-7T17:23:50Z

 

[sten83]

Re : Liste

Merci pour tout, vous êtes des cracs.
Plein de bonnes choses à tous pour le nouvelle année qui arrive, moi je serai au boulot! 🙁

 

[PMO2]

Re : Liste

Bonjour,

Une piste en VBA (voir la pièce jointe).