Formule ou alors VBA?
Résolu
Attitude ZEN
-
Attitude Zen -
Attitude Zen -
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?
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?
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
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. -
