Macro Mise en forme conditionnelle

[mca]

La fonction - Format - Mise en forme conditionnelle permet au plus 3 conditions.

Dans mon tableau, je voudrai exécuter une macro qui analyse toutes les cellules renseignées dans la feuille et qui, en fonction de leur valeur contenu dans la cellules, affecte une trame de couleur bien précise.

Pouvez-vous m'aider?

Merci

 

[@Christophe@]

Bonjour,

Je veux bien regarder cela, mais envoi moi un fichier zippé, stp

Merci

@Christophe@

 

[Alain]

Ci-dessous code VBA

Sub Mise_En_Forme()
ActiveSheet.UsedRange.Select
For Each c In Selection
Valeur = Val(c)
Select Case Valeur
Case Is > 3 'c'est un exemple
c.Font.ColorIndex = 10 'C'est aussi un exemple
Case autre condition
...
Case autre condition
...
Case autre condition
...

End Select
Next
End Sub


Bonne fin de journée.

@+.

 

[Doudou]

Tiens voilà un code que j'ai réalisé et qui fonctionne c'est peut etre pas le plus simple mais pour l'instant je ne connais pas encor tous les secrets du vba

Sub Couleur()
'Worksheets("Liste").Activate
Range("A99").Select

If Range("C9") = "AA" Then
Range("C9").Interior.ColorIndex = 6
End If
If Range("C9") = "BB" Then
Range("C9").Interior.ColorIndex = 5
End If
If Range("C9") = "CC" Then
Range("C9").Interior.ColorIndex = 45
End If
If Range("C9") = "DD" Then
Range("C9").Interior.ColorIndex = 3
End If
If Range("C9") = "EE" Then
Range("C9").Interior.ColorIndex = 7
End If
If Range("C9") = "FF" Then
Range("C9").Interior.ColorIndex = 4
End If
If Range("C9") = "GG" Then
Range("C9").Interior.ColorIndex = 8
End If
If Range("C9") = "HH" Then
Range("C9").Interior.ColorIndex = 9
Range("C9").Font.ColorIndex = 2
End If

End Sub
Bon courrage a toi