Voila mon fichier que contient la feuille de saisie à pour nom config.xls.
Et l'autre fichier contient la feuille de résultat j'ai modifié le code avec le lien vers le fichier config.xls, mais ça marche pas...
Voici mon code:
--------------------
Option Explicit
Private Sub Worksheet_Calculate()
Dim Cel As Range, Plage As Range, Match As Range
Set Plage = Range("[config.xls] Formats")
For Each Cel In Range("Planning").Cells
Set Match = Plage.Find(Cel.Value, MatchCase:=False)
With Cel
.Interior.ColorIndex = Match.Interior.ColorIndex
.Font.ColorIndex = Match.Font.ColorIndex
End With
Next Cel
End Sub
----------------
Je cherche mon erreur...
Merci d'avance.