une couleur par jour

H

Habitude

XLDnaute Accro

• 2 Mars 2010

• #2

Re : une couleur par jour

fichier svp

 

Vote positif 0 Vote négatif

P

pleboys

Guest

• 2 Mars 2010

• #3

Re : une couleur par jour

Merci pour votre rapidité, je m'empresse de rajouter le document en question

J'aimerai que toutes les lignes ayant la même date de réservation soient de la même couleurs.
pensez vous que cela soit possible ?
Merci

 

Pièces jointes

• Réservation anniversaire pour forum.xlsm

  43.7 KB · Affichages: 38

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Mars 2010

• #4

Re : une couleur par jour

Bonjour pleboys, Habitude;
Habitude votre remarque n'est pas mauvaise mais la forme est un peu "dure" et pas très "esprit XLD".
pleboys, tout dépend du nombre de dates à taiter, de la structure de la liste de données, etc...
Merci de nous poster un fichier exemple (comme semblait le demander Habitude), de moins de 48,8 Ko et annonyme.
Cordialement

 

Vote positif 0 Vote négatif

P

pleboys

Guest

• 2 Mars 2010

• #5

Re : une couleur par jour

Merci pour ce début, c'est presque bon mais je voudrais que cela soit le ligne qui se "colorise" (de la colonne A à la colonne R).
Cordialement

 

Vote positif 0 Vote négatif

P

pleboys

Guest

• 2 Mars 2010

• #6

Re : une couleur par jour

je n'en veux pas à Habitude, je suis d'accord qu'il est beaucoup plus simple de travailler sur le fichier en question cela permet d'avoir toutes les données en main ;-)

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Mars 2010

• #7

Re : une couleur par jour

Re à tous
carcharodon-carcharias, génial le "Month(Cells(i, 1)) + 6", je n'aurais jamais penser à ça...😱
A nous recroiser, avec plaisir pour moi 🙂.
Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Mars 2010

• #8

Re : une couleur par jour

Re,
Si je puis me permettre, il semble que l'on puisse éviter une boucle. (Quelle envollée... ....je me surprend moi-même 😀 ).

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Dim i As Long
    Dim Derligne As Long
    Derligne = Range("A65536").End(xlUp).Row
        For i = Derligne To 2 Step -1
            Range("A" & i & ":R" & i).Font.ColorIndex = Month(Cells(i, 1)) + 6
        Next i
    Application.ScreenUpdating = True
End Sub

Cordialement

 

Dernière édition: 2 Mars 2010

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Mars 2010

• #9

Re : une couleur par jour

😀 😀 😀
A te recroiser...

 

Vote positif 0 Vote négatif