Discussion :

[apetitjean]

Bonjour à tous,

J'ai dans mes colonnes A / B et D une mise en forme conditionnelle. Pour A et B je recherche les doublons, et pour D je recherche la valeur 1. Dans chaque colonne j'applique la règle de format = Police rouge.

Je souhaite ensuite supprimer automatiquement les lignes qui contiennent un caractère en police rouge dans une des colonnes. Pour cela j'ai la Macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Suppression_doublons()
Dim MyRange As Range
Dim L As Long
    Set MyRange = ActiveSheet.Range("A1").CurrentRegion
    For L = MyRange.Rows.Count To 1 Step -1
        If MyRange(L, 1).FormatConditions(1).Font.Color = 255 Then MyRange(L, 1).EntireRow.Delete
        If MyRange(L, 2).Font.Color = 255 Then MyRange(L, 2).EntireRow.Delete
        If MyRange(L, 4).Font.Color = 255 Then MyRange(L, 4).EntireRow.Delete
 
Next
End Sub

Mon problème est que lors de l'application de la mise en forme conditionnelle, le format n'est pas le Font.Color = 255 il s'agit d'un format du type Selection.FormatConditions(1).Font
.Color = 255
Donc ma macro ne fonctionne pas, et je n'arrive pas à trouver comment supprimer ces lignes avec un format conditionnel.

Auriez-vous une idée ?

Merci d'avance de votre aide,

Aurélien

[thebenoit59]

Bonjour.

Petite question, pourquoi ne pas directement utiliser une procédure de suppression de doublons ?
Cela éviterait le double travail.

[Thautheme]

Bonjour le fil, bonjour le forum,

En cas de mise en forme conditionnelle il ne faut pas cibler la couleur issue de la MFC mais sa condition.
Si la cellule est rouge via une MFC du style : si A1>5 => couleur rouge (3) le code doit être If Range("A1") > 5 Then plutôt que If Range("A1").Interior.ColorIndex = 3 Then...

[Menhir]

Très clairement, en VBA, on ne peut pas faire un test sur le résultat (le format obtenu) d'une mise en forme conditionnelle.
La question a été posée de nombreuses fois sur ce forum et la conclusion a chaque fois été la même.

Range.FormatConditions(1).Font.Color indique la couleur si la condition est remplie mais le résultat sera le même en VBA que la condition dans la feuille soit remplie ou non.
Range.Font.Color ne marche pas non plus puisque le format de la MFC ne modifie pas le format intrinsèque de la cellule qui demeure inchangé, quel que soit visuellement le résultat de la MFC.

Très clairement, il n'y a pas de solution directe.
Comme le dis Thautheme, le seul palliatif indirect est de reprendre la condition qui génère ce format.

[apetitjean]

Bonjour,

Merci pour vos réponses.

J'ai donc utilisé une autre méthode pour détecter les doublons.

J'ai maintenant un autre blocage.
Je souhaite supprimer la ligne si elle contient le mot VRAI

J'ai la macro suivante qui fonctionne si le texte est en rouge, mais je n'arrive pas à modifier pour supprimer si le mot VRAI est présent.J'ai essayé avec .Value = "VRAI" mais cela ne fonctionne pas. Pouvez-vous m'aider ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Suppression_doublons()
Dim MyRange As Range
Dim L As Long
    Set MyRange = ActiveSheet.Range("A1").CurrentRegion
    For L = MyRange.Rows.Count To 1 Step -1
        If MyRange(L, 1).Value = "VRAI" Then MyRange(L, 1).EntireRow.Delete
        If MyRange(L, 2).Font.Color = 255 Then MyRange(L, 2).EntireRow.Delete
        If MyRange(L, 4).Font.Color = 255 Then MyRange(L, 4).EntireRow.Delete
Next
End Sub

merci encore

Aurélien

[Thautheme]

Bonjour le fil, bonjour le forum,

Si les valeur "VRAI", "FAUX" sont renvoyées par des formules tu dois écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If MyRange(L, 1).Value = True Then MyRange(L, 1).EntireRow.Delete

ou tout simplement, car la valeur True est par défaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If MyRange(L, 1) Then MyRange(L, 1).EntireRow.Delete