Macro couleur cellule en fonction d'une table

Bonjour tout le monde

Je voudrais faire une mise en forme conditionnelle en utilisant une macro pour rendre la mise en forme conditionnelle accessible à tout utilisateur.

Mon fichier

1er onglet : table qui lit un prénom colonne A à une couleur B

2eme onglet : mon classeur ou je dois appliquer la mise en forme : je veux que la cellule prenne la couleur de la table auquel correspond le nom.

ex : si la case contient "JEAN" elle doit passer en jaune

Je souhaite que la condition se fasse uniquement sur les 4 premier caractères de la cellule ("Jean" et "Jeanne" passent tout deux en jaune)

Je souhaite que la table puisse être évolutive, ainsi si un nouveau nom doit être ajouté, l'utilisateur n'a qu'a affecter une nouvelle couleur en face de ce nouveau nom dans la colonne B de la table.

Je vous joins mon fichier.

Hello,

Une proposition

Si tu as des questions n'hésite pas

@+

Bonsoir une proposition pour vous:

- dans le thisworkbook

Sub color()
Dim i As Integer
Dim nomRecherche As String
Dim nomDansTable As String

If Not ActiveCell Is Nothing Then
nomRecherche = Left(ActiveCell.Value, 4)

For i = 1 To Sheets("table").Cells(Sheets("table").Rows.Count, "A").End(xlUp).Row
nomDansTable = Left(Sheets("table").Range("A" & i).Value, 4)

If nomRecherche = nomDansTable Then
ActiveCell.Interior.color = Sheets("table").Range("B" & i).Interior.color
Exit For
End If
Next i
End If
End Sub

et ceci pour les feuilles qui auront besoin de la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ThisWorkbook.color
End Sub

Bonjour,

J'ai voulu faire votre projet pour m'entrainer un peu. Certainement que mon fichier n'est pas aussi efficace et optimisé que ceux de @BAROUTE78 et @ghisnob, mais il fonctionne et repond à vos attentes. Alors je le dépose ici, si cela peut vous aider.

Bonne fin de journée

GLEDUC