Attribution code couleur pour tarif

Cher tous,

J'ai besoin de votre aide.

Pour mes salles d'hôtels, j'ai besoin d'attribuer selon un code couleur : UN TARIF.

En fait j'aimerais qu'en renseignant un code couleur sur mon planning ( feuille 1), les tarifs se rentrent automatiquement en fonction du code couleur défini dans la feuille 2.

Pourriez vous SVP m'aider et m'indiquer comment faire, je suis nulllllllll car j'essaie sans réussite.

Merci beaucoup par avance.

Fichier en pièce jointe.

Je verrais cela de la manière suivante:

Dim x as integre

Dim y as integer

If Cell(x,y).color = RGB(240,120,56)

Then cell(x.y).value = Sheets("tarif).Range(Cellule des tarifs)

End If

Bien sur, tu peux utiliser différent codes couleurs, pas que le RGB.

x et y te permettrons de choisir les cellules dans ton planning et de faire des boucles pour reduire ton code par exemple:

For y = 2 to 10

Cell(2.y).Value = ....

Next

Cela te permettra de toucher toutes les cellules de (2,2) jusqu'a (2,10).

J'espère t'avoir aidé un peu ^^

Merci Sothin.

Mais je t'avouerai que je n'ai pas compris. Je ne suis pas trés forte, du coup je ne comprends pas tout ça