Discussion :

[LoInd]

Bonjour,

Je cherche à modifier la couleur de texte d'une cellule sous une condition.
J'ai un tableau ou j'ajoute des dates les unes après les autres sur une même ligne (ces dates correspondent à l'arrivée de documents).
J'aimerai modifier le style de texte (rouge et en gras par exp) d'une cellule contenant une date que je viens de rentrer, lorsque la différence en jour par rapport à la date précédente, est supérieure à 5 (par exemple). Si elle est inférieure, ne rien faire.

Je ne sais pas si je dois utiliser vba pour ca, si oui comment faire?

Merci pour votre aide!

[Philippe Tulliez]

Bonjour,
Si la ligne où se trouve les dates est la ligne 2 et que la première date est en B2, sélectionne les cellules de C2:ZZ2, ZZ2 étant la dernière cellule d'encodage.
Dans l'outil Mise en forme conditionnelle, choisir Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué
Entrer cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=C2>(B2+5)

Ensuite choisir le format désiré.

[Bear the french]

Bonjour,

La réponse de Philippe est parfaite.

En complément, un équivalent en code VBA (juste pour mémoire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub comparaisondateenligne()
Dim FL1 As Worksheet, NoCol, NoLig As Long
 
Set FL1 = Worksheets("Feuil1") ' définit l'onglet à travailler
NoLig = 5 'Lecture de la ligne 5
 
    For NoCol = 2 To Range(Columns.Count & ":" & NoLig).End(xlToRight).Column
 
        If Abs(FL1.Cells(NoLig, NoCol) - FL1.Cells(NoLig, NoCol - 1)) > 5 Then
 
            FL1.Cells(NoLig, NoCol).Font.Bold = True
            FL1.Cells(NoLig, NoCol).Font.ColorIndex = 3
 
        End If
    Next
 
Set FL1 = Nothing
End Sub

Bertrand

[LoInd]

Merci beaucoup pour votre aide! C'est exactement ce que je voulais!