Remplacer la couleur de fond d'une cellule issue d'une MFC

Misange

XLDnaute Barbatruc

• 14 Mars 2012

• #2

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Bonjour
Il faut aller dans format/mise en forme conditionnelle et supprimer la condition. Les codes des couleurs des MEFC sont de toutes façons différents de ceux des couleurs normales d'excel et les MEFC ne se suppriment pas en supprimant la couleur 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2012

• #3

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Bonjour perdinch, Misange,

Si vous voulez une "vraie" couleur de fond supprimez la MFC bien sûr.

Et mettez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A2:A10])
If Target Is Nothing Then Exit Sub
For Each Target In Target
  Target.Interior.ColorIndex = IIf(Target < 10, 3, 43)
Next
End Sub

Fichier joint.

A+

 

Pièces jointes

• Couleur(1).xls

  33 KB · Affichages: 71
• Couleur(1).xls

  33 KB · Affichages: 82
• Couleur(1).xls

  33 KB · Affichages: 81

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 14 Mars 2012

• #4

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Merci de votre réponse MISANGE

En fait ce que je souhaite c'est conserver la couleur de fond des cellules après application de la MFC (par VBA ) puis détruire cette mise en forme conditionnelle .Au final les couleurs de fonds sont conservées et les MFC sont supprimées.

perdinch

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2012

• #5

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Re,

A priori pour connaître la couleur MFC d'une cellule il faut tester les formules de la MFC.

Mais voir peut-être ce fil que j'avais initié en 2008 :

https://www.excel-downloads.com/threads/detection-couleur-mfc.99000/

A+

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 14 Mars 2012

• #6

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Pour être + précis, les MFC ne sont qu'une étape car j'exporte ensuite ces données en valeur mais lors de cette opération je perds les couleurs de fonds des cellules avec MCF .Pour cette raison je voudrais récupérer par macro la couleur de fond de chaque cellule concernée , detruire les MFC avant export de la feuille.

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 14 Mars 2012

• #7

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Merci de votre réponse , mais je ne vois pas le fil...

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 14 Mars 2012

• #8

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

J'ai trouvé ce code qui est interessant et qui selon devai marcher mais ce n'est pas tout à fait le cas mais c'est l'idée:

Sub ReproduireCouleur_MFC()
'S'il n'y a aucune cellule avec mfc sur la feuille active la macro se termine
'sans aucune action accomplie
On Error GoTo fin
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
With c
For Each fc In .FormatConditions
If fc.Type = 2 Then
If Evaluate(fc.Formula1) Then c.Interior.ColorIndex = fc.Interior.ColorIndex
Else
If Evaluate(fc.Formula1) = c Then c.Interior.ColorIndex = fc.Interior.ColorIndex
End If
Next
End With
Next
plg.FormatConditions.Delete
fin: Err.Clear
End Sub

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 14 Mars 2012

• #9

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Bonjour
plutot que de mettre une MEFC puis de récupérer la couleur il serait plus simple de mettre directement la bonne couleur par macro non ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2012

• #10

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Re,

Misange à dit:

plutot que de mettre une MEFC puis de récupérer la couleur il serait plus simple de mettre directement la bonne couleur par macro non ?

Cliquez pour agrandir...

Par exemple ce que j'ai proposé au post #3.

A+

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 14 Mars 2012

• #11

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Hélas non , car dans mon vrai fichier , il y beaucoup de miseS en forme conditionnelle obéissant à des cibles aussi diverses que nombreuses.J'y ait pensé mais cela serait encore plus complexe étant donné le nombre de cas de figure à gérer.

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 14 Mars 2012

• #12

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Peut être pouvez m'aider à adapter le code du post8

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 14 Mars 2012

• #13

Re : Remplacer la couleur de fond d'une cellule issue d'une MFC

Comme je te l'ai signalé, le code des couleurs mis par une mefc n'est pas le même que celui habituel d'excel. Cette macro ne PEUT pas marcher

je te laisse voir celle-ci de laurent Longre dont il dit lui même que c'est une conceté... et qu'il vaut largement mieux récupérer les conditions.
Ce lien n'existe plus

 

Vote positif 0 Vote négatif