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
    EXCEL_T87zwoa29l.png
    41.5 KB · Affichages: 9
Dernière édition:
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.
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

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
Merci beaucoup @mapomme 🙂 je vais voir comment transposer ce code pour mon fichier original 🙂
 

Pièces jointes

  • EXCEL_0UUtExIZoS.png
    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
Retour