Bonjour,

(Merci à JacquesBoisgontier pour le code que je lui ai emprunté)

Dans la feuille "Réf.", j'ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal target As Range)
Dim position
Dim date_test
 
    If Not Intersect([ChampMEFC_2], target) Is Nothing And target.Count = 1 Then
        Application.EnableEvents = False
        On Error Resume Next
        [Couleurs].Find(target, LookAt:=xlWhole).Copy
        target.PasteSpecial Paste:=xlPasteFormats
        Application.EnableEvents = True
    End If
Dans la feuille "Menus", j'ai une plage nommée "Couleurs"

Si je modifie les cellules contenues dans "ChampMEFC_2" (feuille "Réf."), elles adoptent la mise en forme des cellules équivalentes qui se trouvent dans "Couleurs" (feuille "Menus") - Normal !

Si je modifie la mise en forme des cellules contenues dans "Couleurs" (feuille "Menus"), la MEFC des cellules de "ChampMEFC_2" (feuille "Réf.") ne s'actualise pas spontanément.

Question :

Que dois-je ajouter au code pour que la plage "ChampsMEFC" s'actualise dans son ensemble (sans avoir à re-sélectionner chaque cellule) ?
Quelque chose sous "Sub Worksheet_Change(ByVal target As Range)" de la feuille "Menus" ?

Je vous remercie d'avance pour vos lumières,
Cordialement,
jpma75