Liste

Modeste

XLDnaute Barbatruc

• 30 Décembre 2012

• #2

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?

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 30 Décembre 2012

• #3

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

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 30 Décembre 2012

• #4

Re : Liste

Bonsoir,

Un petit code Vba, ça te dirait ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Décembre 2012

• #5

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 )

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 30 Décembre 2012

• #6

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...​

VB:

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

 

Pièces jointes

• XLD_198455_Report de couleurs.xlsm

  27.7 KB · Affichages: 67

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Décembre 2012

• #7

Re : Liste

Bonsoir ROGER 🙂

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

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 30 Décembre 2012

• #8

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

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 30 Décembre 2012

• #9

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?

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 30 Décembre 2012

• #10

Re : Liste

Re...

sten83 à dit:

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?

Cliquez pour agrandir...

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

pierrejean à dit:

Bonsoir ROGER 🙂

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 30 Décembre 2012

• #11

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! 🙁

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 30 Décembre 2012

• #12

Re : Liste

Bonjour,

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

 

Vote positif 0 Vote négatif