Formule ou alors VBA?

Résolu/Fermé

Attitude ZEN - 20 déc. 2009 à 15:07
Attitude Zen - 21 déc. 2009 à 22:22

Bonjour,

J'ai un petit tableau et je voudrais que quelqu'un ait la gentillesse de venir m'aider. Voilà je voudrais que mon tableau puisse faire la chose suivante: Si la date en cellule F1 est inférieur à celle d'aujourd'hui mettre la ligne du tableau en surbrillance (couleur) de A1:Q1).

Si en G1 j'inscris une nouvelle date qui représenterait un rappel enlever la couleur de la ligne ca voudrait dire que c'est en ordre pour le moment puis si à nouveau cette date est dépassée par rapport à la date d'aujourd'hui
mettre en un autre couleur.

Avec un petite parenthèse si la cellule 01 contient un date mettre encore en un autre couleur ca voudrait dire que le client a déjà des poursuites.

Si il y a une date en P1 mettre en une autre couleur parce que ca voudrait dire que le dossier a déjà auparavant été classé.

SVP pouvez-vous m'aider?

A voir également:

Formule ou alors VBA?
Formule excel - Guide
Formule si et - Guide
Formule moyenne excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Mise en forme conditionnelle formule si - Guide

2 réponses

Réponse 1 / 2

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
21 déc. 2009 à 13:16

Bonjour,
Si tu n'as pas Excel 2007, code à mettre dans le module de feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("P1") <> "" Then
Range("A1:Q1").Interior.ColorIndex = 4 'vert
ElseIf Range("O1") <> "" Then
Range("A1:Q1").Interior.ColorIndex = 5 'bleu
ElseIf Range("F1") = "" Then
Range("A1:Q1").Interior.ColorIndex = xlNone
ElseIf Range("F1") < Now And Range("G1") = "" Then
Range("A1:Q1").Interior.ColorIndex = 6 'jaune
ElseIf Range("G1") = "" Then
Range("A1:Q1").Interior.ColorIndex = xlNone
ElseIf Range("G1") < Now Then
Range("A1:Q1").Interior.ColorIndex = 3 'rouge
End If
End Sub

Bonne journée.

Attitude Zen
21 déc. 2009 à 22:22

Merci beaucoup! :-) C'est génial cette solution

Réponse 2 / 2

Attitude Zen
20 déc. 2009 à 20:57

Merci à tous j'ai finalement trouvé la solution :-)

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

exo pix

je veut créer des codes

"L'indice n'appartient à la sélection" + VBA

Discussions similaires

Newsletters