Trait à chaque changement de nom qui ne fonctionne plus

Bonjour à tous,

Petit code VBA qui fonctionnait bien sous Excel 95/97 mais ne fonctionne plus sous 2007.

Un bug arrivé à la dernière ligne du fichier

Auriez_vous une idée ?

Merci pour votre aide

@+

Robert

Salut boby71c,

C'est normal, un fichier en ".xlsx" ne peut contenir de code

A+

Bonsoir BrunoM45

Merci de m'aider.

oups !! je n'avais pas fait attention.

J'ai enregistré en xlsm et le problème est toujours là !

Bug ligne 1048577 !!!

Voici le nouveau fichier

@+

Robert

Bonjour,

Essaie comme cela

Sub Traits_CA()
'' Trait plus épais à chaque changement de CA
Dim DerLig As Long, i As Long
    With Worksheets("Feuil1")
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row
        For i = 1 To DerLig
            If .Range("B" & i).Value <> .Range("B" & i).Offset(1, 0).Value Then _
            .Range("B" & i).EntireRow.Borders(xlEdgeBottom).Weight = xlThick
        Next i
    End With
End Sub

A+

Rechercher des sujets similaires à "trait chaque changement nom qui fonctionne"