Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 copier la MEF (mise en forme avec couleurs) dans un menu liste déroulante ?

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Solution
Re,

Un essai (vite fait donc à vérifier) avec une macro évènementielle.
Modifiez les valeurs des colonnes F ou G.
Le code est dans le module de la feuille Feuil1 :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg As Range, x, i&, col&
   If Intersect(Target, Columns("f:g")) Is Nothing Then Exit Sub
   For Each x In Intersect(Target, Columns("f:g")).Cells
      x.Interior.ColorIndex = xlColorIndexNone: x.Font.ColorIndex = xlColorIndexAutomatic
      col = IIf(x.Column = [f1].Column, 1, 2)
      i = Application.IfError(Application.Match(x.Value, Columns(col), 0), 0)
      If i > 0 Then x.Interior.Color = Cells(i, col).Interior.Color: x.Font.Color = Cells(i, col).Font.Color
   Next x
End Sub
Bonsoir @anthoYS 🙂 ,

Vous n'êtes pas un perdreau de l'année et pourtant vous postez une demande minimaliste 😉.
  1. Aucune explication ni dans le corps du message ni dans le classeur.
  2. Pas de MEFC dans le classeur alors comment la copier ou recopier ?

On n'a rien à se mettre sous la dent.
 
dans la capture, j'ai tenté un menu liste déroulante, mais la MEF ne se copie pas...

Merci pardon du coup, je vais faire des recherches ...

🙁
 

Pièces jointes

  • EXCEL_T87zwoa29l.png
    41.5 KB · Affichages: 9
Dernière édition:
pardon je parle de mise en forme, pas MEFC, je me suis trompé dans l'explication...
 
Re,

Un essai (vite fait donc à vérifier) avec une macro évènementielle.
Modifiez les valeurs des colonnes F ou G.
Le code est dans le module de la feuille Feuil1 :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg As Range, x, i&, col&
   If Intersect(Target, Columns("f:g")) Is Nothing Then Exit Sub
   For Each x In Intersect(Target, Columns("f:g")).Cells
      x.Interior.ColorIndex = xlColorIndexNone: x.Font.ColorIndex = xlColorIndexAutomatic
      col = IIf(x.Column = [f1].Column, 1, 2)
      i = Application.IfError(Application.Match(x.Value, Columns(col), 0), 0)
      If i > 0 Then x.Interior.Color = Cells(i, col).Interior.Color: x.Font.Color = Cells(i, col).Font.Color
   Next x
End Sub
 

Pièces jointes

Merci beaucoup @mapomme 🙂 je vais voir comment transposer ce code pour mon fichier original 🙂
 

Pièces jointes

  • EXCEL_0UUtExIZoS.png
    6.7 KB · Affichages: 6
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
232
Réponses
2
Affichages
42
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…