Mise en forme conditionnele - Bordure

[sharkantipav]

Jai un fichier dans lequel jai plusieurs colonnes
En colonne A j'ai des dates. Je souhaiterais faire une mise en forme conditionnelle qui trace une ligne entre chaque bloc de dates.
En gros ds la colonne A si une cellule est differente de la suivante on selectionne la ligne et on met une bordure inferieure. J'ai attache un fichier.

J'ai essaye de le faire macro mais elle ne sactualise pas si je change les dates... elle laisse les lignes tracees precedement...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n&, i&
n = Cells(150, 2).End(3).Row
For i = n To 2 Step -1
        If Cells(i + 1, 2) <> Cells(i , 2) Then Rows(i).Select
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlMedium
End With
Next i
End Sub

Peut etre que c'est plus simple en mise en forme conditionnelle...

Merci

 

[natorp]

Re : Mise en forme conditionnele - Bordure

Bjr sharkantipav

Voir le fichier joint, peut-être ?

Cordialement, Gérard

 

[sharkantipav]

Re : Mise en forme conditionnele - Bordure

merci beaucoup