Modif

Bonjour,

Suite à un post précédent j'ai eu une solution trés trés bonne et j'aurais juste une modif à faire:

le principe est de remplir les cases en bleu dans l'onglet config grâce aux dates figurant en colonnes R et S.

peux-t'on ajouter dans les même cases bleue le mot "CARTE" quand celui la est présent dans la colonne T.

si par exemple j'ai une réservation du 2 au 5 mai avec carte j'aurais donc les cases du 2-3-4- et 5 mai en bleu avec carte dedans

à l'avance un grand merci

Bon je viens de faire des essais avec des tests sur la colonne "T" en combinant avec les dates mais à chaque fois il me manque quelque chose ou j'ai des case en trop GRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR

Bonjour,

Personne pour me venir en aide?

Bonjour DANVAL, le forum,

Un essai....je me suis contenté de rajouter la condition "CARTE"....

'Vérification voiture et dates
Sheets("VOITURE  reservation").Select
derlig = Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To derlig
If Cells(i, 3) <> "" And Cells(i, 18) <> "" And Cells(i, 19) <> "" Then
voiture = Cells(i, 3)
debut = CLng(Cells(i, 18))
fin = CLng(Cells(i, 19))
carte = Cells(i, 20)

'Coloriage planning
Sheets("config").Select
dlig = Range("B" & Rows.Count).End(xlUp).Row
For j = 3 To dlig
If Range("B" & j) = voiture Then
    For k = 3 To 733
    If DateValue(Cells(2, k)) >= debut And DateValue(Cells(2, k)) <= fin Then
     If carte = "CARTE" Then
        Cells(j, k) = "CARTE"
     Else
        Cells(j, k) = ""
     End If

      Cells(j, k).Interior.Color = RGB(0, 204, 255)

    End If

    Next k
End If
Next j

Cordialement,

SUPER MILLE MERCIS POUR CE TRAVAIL;