Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mise en forme conditionnelle

Mise en forme conditionnelle

6 réponses
Avatar
ejc
Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle (couleur de fond
des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour ejc,

c'est possible en connaissant la condition pour la mfc
ici j'ai supposé que la condition est : la cellule = 1

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
If c = 1 Then c.Interior.ColorIndex =
c.FormatConditions(1).Interior.ColorIndex
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :
Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle (couleur de fond
des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc





Avatar
ejc
Merci Isabelle,
Pour mon cas, ça va être un peu plus complexe :
1)J'ai 3 conditions
2)La condition est une formule (du genre =U$3="M" pour la première cellule
de la plage jusqu'à ª$3="M" pour la dernière)
3)En fait le pb. est la limitation par Excel à 3 conditions (il m'en faut 5)
; je pense que je vais être obligé de tout formaté par VBA.
Cordialement

"isabelle" a écrit dans le message de news:
%23f%
bonjour ejc,

c'est possible en connaissant la condition pour la mfc
ici j'ai supposé que la condition est : la cellule = 1

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
If c = 1 Then c.Interior.ColorIndex =
c.FormatConditions(1).Interior.ColorIndex
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :
Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle (couleur de
fond des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc







Avatar
isabelle
bonjour ejc,

Sub Macro1()
Set plg = Range("U3:AA3")
For Each c In plg
Select Case Cells(3, c.Column)
Case "M": c.Interior.ColorIndex = 36
Case "P": c.Interior.ColorIndex = 4
Case "W": c.Interior.ColorIndex = 5
End Select
Next
End Sub

isabelle

ejc a écrit :
Merci Isabelle,
Pour mon cas, ça va être un peu plus complexe :
1)J'ai 3 conditions
2)La condition est une formule (du genre =U$3="M" pour la première cellule
de la plage jusqu'à ª$3="M" pour la dernière)
3)En fait le pb. est la limitation par Excel à 3 conditions (il m'en faut 5)
; je pense que je vais être obligé de tout formaté par VBA.
Cordialement

"isabelle" a écrit dans le message de news:
%23f%

bonjour ejc,

c'est possible en connaissant la condition pour la mfc
ici j'ai supposé que la condition est : la cellule = 1

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
If c = 1 Then c.Interior.ColorIndex =
c.FormatConditions(1).Interior.ColorIndex
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :

Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle (couleur de
fond des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc













Avatar
ejc
Merci Isabelle
(ça je savais faire...)
Cordialement
"isabelle" a écrit dans le message de news:

bonjour ejc,

Sub Macro1()
Set plg = Range("U3:AA3")
For Each c In plg
Select Case Cells(3, c.Column)
Case "M": c.Interior.ColorIndex = 36
Case "P": c.Interior.ColorIndex = 4
Case "W": c.Interior.ColorIndex = 5
End Select
Next
End Sub

isabelle

ejc a écrit :
Merci Isabelle,
Pour mon cas, ça va être un peu plus complexe :
1)J'ai 3 conditions
2)La condition est une formule (du genre =U$3="M" pour la première
cellule de la plage jusqu'à ª$3="M" pour la dernière)
3)En fait le pb. est la limitation par Excel à 3 conditions (il m'en faut
5) ; je pense que je vais être obligé de tout formaté par VBA.
Cordialement

"isabelle" a écrit dans le message de news:
%23f%

bonjour ejc,

c'est possible en connaissant la condition pour la mfc
ici j'ai supposé que la condition est : la cellule = 1

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
If c = 1 Then c.Interior.ColorIndex =
c.FormatConditions(1).Interior.ColorIndex
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :

Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle (couleur de
fond des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc















Avatar
isabelle
bonjour ejc,

cette exemple ne fonctionne que si la ou les condition sont des formules :

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
With c
For Each fc In .FormatConditions
If Evaluate(fc.Formula1) Then c.Interior.ColorIndex = fc.Interior.ColorIndex
Next
End With
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :
Merci Isabelle
(ça je savais faire...)
Cordialement
"isabelle" a écrit dans le message de news:


bonjour ejc,

Sub Macro1()
Set plg = Range("U3:AA3")
For Each c In plg
Select Case Cells(3, c.Column)
Case "M": c.Interior.ColorIndex = 36
Case "P": c.Interior.ColorIndex = 4
Case "W": c.Interior.ColorIndex = 5
End Select
Next
End Sub

isabelle

ejc a écrit :

Merci Isabelle,
Pour mon cas, ça va être un peu plus complexe :
1)J'ai 3 conditions
2)La condition est une formule (du genre =U$3="M" pour la première
cellule de la plage jusqu'à ª$3="M" pour la dernière)
3)En fait le pb. est la limitation par Excel à 3 conditions (il m'en faut
5) ; je pense que je vais être obligé de tout formaté par VBA.
Cordialement

"isabelle" a écrit dans le message de news:
%23f%


bonjour ejc,

c'est possible en connaissant la condition pour la mfc
ici j'ai supposé que la condition est : la cellule = 1

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
If c = 1 Then c.Interior.ColorIndex =
c.FormatConditions(1).Interior.ColorIndex
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :


Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle (couleur de
fond des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc




















Avatar
isabelle
ps/

celle-ci fonctionne pour les deux cas "La valeur de la cellule est" et
"La formule est" :

Sub Macro1()
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
End Sub

isabelle

isabelle a écrit :
bonjour ejc,

cette exemple ne fonctionne que si la ou les condition sont des
formules :

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
With c
For Each fc In .FormatConditions
If Evaluate(fc.Formula1) Then c.Interior.ColorIndex =
fc.Interior.ColorIndex
Next
End With
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :
Merci Isabelle
(ça je savais faire...)
Cordialement
"isabelle" a écrit dans le message de news:


bonjour ejc,

Sub Macro1()
Set plg = Range("U3:AA3")
For Each c In plg
Select Case Cells(3, c.Column)
Case "M": c.Interior.ColorIndex = 36
Case "P": c.Interior.ColorIndex = 4
Case "W": c.Interior.ColorIndex = 5
End Select
Next
End Sub

isabelle

ejc a écrit :

Merci Isabelle,
Pour mon cas, ça va être un peu plus complexe :
1)J'ai 3 conditions
2)La condition est une formule (du genre =U$3="M" pour la première
cellule de la plage jusqu'à ª$3="M" pour la dernière)
3)En fait le pb. est la limitation par Excel à 3 conditions (il
m'en faut 5) ; je pense que je vais être obligé de tout formaté par
VBA.
Cordialement

"isabelle" a écrit dans le message de news:
%23f%


bonjour ejc,

c'est possible en connaissant la condition pour la mfc
ici j'ai supposé que la condition est : la cellule = 1

Sub Macro1()
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
If c = 1 Then c.Interior.ColorIndex =
c.FormatConditions(1).Interior.ColorIndex
Next
plg.FormatConditions.Delete
End Sub

isabelle

ejc a écrit :


Bonjour,
J'ai une plage de cellule avec mise en forme conditionnelle
(couleur de fond des cellules).
Je souhaite supprimer cette mfc mais conserver les couleurs de fond.
Une astuce ? (VBA éventuellement)
Merci d'avance,
ejc