Changer toutes les mises en forme conditionnel d'un fichier Fermé

Question

Bonjour, 

Dans le cadre d'un projet. J'ai un fichier Excel avec plusieurs centaines de lignes.

Pour chaque ligne j'ai une règle de mise en forme conditionnel qui détermine si ma cellule doit être rouge ou verte (en fonction de sa valeur). La valeur de référence étant différente pour chaque ligne, j'ai 2 règles de mise en forme conditionnel par ligne (1 pour le rouge, 1 pour le vert)

J'aimerais changer les couleurs et leur attribuer soit vert, soit orange (à la place du rouge).

Il y a-t-il un moyen de changer toutes mes règles de mise en forme d'un coup? ou suis-je obligé de les changer une par une?

Merci d'avance

PapyLuc51 · Answer

Bonjour,

Comment est déterminée la valeur de référence pour chaque ligne ?

Pour que les réponses soient plus efficaces prière de nous adresser une copie du fichier sans données personnelles en faisant créer un lien de partage via cjoint  ou mon partage ou TransfertNow et venir coller le lien dans le prochain message.

Cordialement

AdrienD · Answer

Bonjour,

La valeur de référence est déterminée par rapport à la valeur entrée dans la première cellule de la ligne.

Vous pouvez trouver le fichier avec le lien ci-dessous.

https://mon-partage.fr/f/7w4G88f7/

Comme vous pouvez le voir, il y a une nombre important de mise en forme conditionelle. Est-il possible de changer le format attribué par plusieurs mise en forme conditionelle d'un coup? Ou dois-je changer manuellement dans chaque règle?

Ou est-il possible que le format défini par le résultat de la mise en forme conditionelle se rapporte au format spécifique d'une cellule? 

example, au lieu de dire si OK alors cellule est verte

On dirait, si OK cellule prend le même format que A1

Merci d'avance
Adrien

eriiic · Answer

Bonjour à tous,

A lancer sur les feuilles concernées, ne traite que les MFC à gradient 2 couleurs :
Sub coulMFC()
    Dim fc As FormatCondition, i As Long
    For Each fc In Cells.FormatConditions
        If Not fc.Interior.Gradient Is Nothing Then
            With fc.Interior.Gradient
                If .ColorStops.Count = 2 Then
                    For i = 1 To 2
                        If .ColorStops(i).Color = 255 Then .ColorStops(i).Color = 39423
                    Next i
                End If
            End With
        End If
    Next fc
End Sub
eric

Changer toutes les mises en forme conditionnel d'un fichier

3 réponses

Discussions similaires

Newsletters