Mise en forme conditionnelle

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19318031
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





ejc
Le #19322201
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







isabelle
Le #19325591
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













ejc
Le #19342651
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















isabelle
Le #19343261
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




















isabelle
Le #19343001
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






















Publicité
Poster une réponse
Anonyme