Mise en forme conditionnel

[GuillaumeG]

Bonjour a tous.

La semaine derniere JNP m'a super gentiment aidé à mettre une mise en forme spéciale grace au langague VBA.
Apres avoir utilisé sa formule miracle, j'ai vu qu'il me restait 1 ou 2 details à améliorer!

Voici mon fichier final amélioré.

Il y a encore quelques petits détails que je souhaiterais regler.
Par exemple, que la mise en forme (merveilleuse que JNP m'a programme) ne se fasse que dans les cases contenant des chiffres. est ce possible?

De meme est ce possible de forcer le systeme à barrer ou non un chiffre à une date.

par exemple, que les cases que je met en fond Orange se bare automatiquement avec la mise en forme, meme si elles sont supérieure à 0 mais tout en gardant le fond de la case en Orange
et de meme, que les cases qui sont en vert, refuse automatiquement la mise en forme, meme si elles sont inférieurs à 0 mais tout en gardant le fond de la case en Vert

Merci de votre aide
et bonne journée à tous

Vous trouverez ci joint le fichier, pour mieux comprendre.

Guillaume

 

[GuillaumeG]

Re : Mise en forme conditionnel

Voici la formule que JNP m'avais donné vendredi dernier.

Sub test()
Dim Cellule As Range
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
For Each Cellule In Selection
If Cellule <= 0 Then
With Cellule.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
End If
Next Cellule
End Sub

C'est parfait comme mise en page, c'est juste ce qu'il me faut,
Mais il faudrait y rajouter, si possible bien sur, les conditions suivantes:

- Si la case est en orange ou vert, la barer ou non tout en gardant le fond en couleur
- Si la case est vide, qu'il n'y ai pas de mise en forme.

Si besoin est, on peut creer une legende avec les couleurs (de toute maniere je dois le faire)
et donc relier les cases de couleurs de la legende comme regle conditionnelle.

Merci d'avance de votre aide.

à Bientot

Guillaume