MEFC d'une cellule par rapport à une autre Fermé

Question

Bonjour, 

Je suis à la recherche de la formule miracle qui me permettrait de mettre en forme une cellule par rapport à une autre en considérant que la valeurs de cette dernière est une date.

En résumé, j'ai une colonne A avec des dates, et je souhaiterai trouver la possibilité de mettre en forme une colonne B comme suit : vert si date dans A et rouge si vide dans A.

En espérant que l'un ou l'une d'entre vous pourra m'aiguiller.

Merci par avance.

Vaucluse · Answer

Bonjour
sélectionnez le champ en B
MFC par formule 
(Ruban /Accueil / Mise ne forme conditionnelle > nouvelle règle  et "utiliser une formule")

la formule est:
=$A1>0  ou=$A1<>""
format  / vert / OK
cela devrait suffire si vous formatez de base B en rouge.
Si vous voulez les deux régles:
dans la fenêtre de MFC, "nouvelle règle" ou ajouter:
=$A1    ou A1=""
rouge

crdlmnt
 
 
Errare humanum est, perseverare diabolicum

Tom 44 · Answer

Bonjour Vaucluse,

Merci pour votre aide.
La première formule fonctionne parfaitement mais pas la deuxième :-(
Dois mettre une des 2 règles en priorité ou cocher la case d'interruption si vrai pour l'une des 2 ?

merci encore pour votre aide.
Cdt,

Patrice33740 · Answer

Bonjour Tom 44

Malheureusement, « la formule miracle » n'existe pas sous Excel, en effet, pour Excel une date n'est qu'une représentation particulière (un format) d'un nombre positif (le nombre de jour écoulé depuis la veille du 1 janvier 1900).

Excel  ne différencie pas les dates des autres nombres positif !!!. Ce n'est possible que par l'intermédiaire d'une macro qui vérifie le contenu et le format de la cellule.

Si tu n'as pas besoin de faire cette différence, utilises les formules proposées par Vaucluse (bonjour)

Tom 44 · Answer

Bonjour Patrice,

Merci pour ces précisions.
Seulement ne m'y connaissant pas trop en VBA, auriez vous à disposition cette solution ?

merci par avance.

Patrice33740 · Answer

Bonjour,

Une fonction estdate en VBA, à mettre dans un module standard :
Option Private Module
Option Explicit
Public Function estdate(c As Range) As Boolean
  estdate = IsDate(c.Cells(1, 1).Value)
End Function
Formule à utiliser (dans une cellule ou comme MFC):
=estdate(A1)

MEFC d'une cellule par rapport à une autre

5 réponses

Discussions similaires