Calcul automatique en fonction de la couleur d'une cellule

Bonjour,

J'essaie de faire un tableau sur les évaluations de distance.

La première colonne donne les différents ports et en 2e colonne vous remarquez une couleur différente.

Chaque couleur définit le nombre multiplicateur Z = ...

Je souhaite que le calcul se fasse automatiquement sans passer par un réglage manuel si le tableau change.

Je sais qu'il faut une boucle For Next ave i comme variable ligne de la colonne B et j la variable couleur qui est dans mon tableau.

Donc pour couleur 1 aire en colonne C la valeur de la cellule ligne i colonne B x nombre Z1

couleur 2 = valeur x Nb Z2

etc jusqu'à Z5

sinon ne pas mettre de valeur.

N'étant pas un pro de la programmation, qn pourrais m'aider plz ?

Bonjour

Donc pour couleur 1 aire en colonne C la valeur de la cellule ligne i colonne B x nombre Z1

couleur 2 = valeur x Nb Z2

etc jusqu'à Z5

sinon ne pas mettre de valeur

Personnellement, je n'ai rien compris à ton explication.

Peut-être que si tu donnais un ou 2 exemples?

Cordialement

Bonjour

Les couleurs que tu vois font référence aux Zi = valeur

Par exemple pour San remo, en colonne B tu as une couleur qui est propre à Z4

donc le tableau n'affichera que en F2 >> 180* 3.5 = 680

Pour Antibes, la couleur en colonne B fait référence à Z1 donc affichage en C13. Soit 15*5=75 etc pour les autres

Ce que je cherche c'est de faire un programme qui évite les calculs manuels car le tableau peut évoluer.

J'espere que c'est plus précis.

PS: je me suis rendu compte que je n'ai pas posté la bonne version du fichier. La voici

Merci pour la réponse

Bonjour

Ce qui me chagrine, c'est que j'ai la même couleur en Z2 et en Z5

A te lire

Cordialement

Bonjour

Il te restera à ajouter les 2 lignes du Code de Feuille pour compléter.

Cordialement

merci beaucoup

Le code fonctionne et j'ai ajouter une condition qui efface la ligne de ses caractères si on procède à un changement de couleur.

Par contre je cherche à placer une condition qui cherche à trouver la dernière ligne de mon tableau sachant qu'il peut évoluer avec le temps.

D'ou ma ligne de code

NumL = .Range("B65536").End(xlUp).Row

mais on dirai qu'il n'accepte ma variable "NumL" sur cette ligne

 If Not Application.Intersect(Target, Range("B2:NumL")) Is Nothing Then

Pourquoi ?