une couleur par jour

[pleboys]

Bonjour, je viens une nouvelle fois vers vous pour résoudre un problème.

Je dois remplir un tableau de réservation. J'aimerais que toutes les lignes ayant la même date soient de la même couleur.


Date Nom
10/02 A
10/02 C
10/03 E

Je pense que cela doit pouvoir se faire sous VB (avec ou sans bouton). Mais je ne m'y connais pas assez.
en vous remerciant par avance

 

[Habitude]

Re : une couleur par jour

fichier svp

 

[pleboys]

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

 

[Efgé]

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

 

[pleboys]

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

 

[pleboys]

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 ;-)

 

[Efgé]

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

 

[Efgé]

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

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

 

[Efgé]

Re : une couleur par jour


A te recroiser...