Bonjour à tous,

j'ai codé le code ci dessous qui me permet de mettre en couleur les bordures de la ligne active:

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set champ = Range("A1:Bz" & Range("TableauDeBord").Rows.Count + 1) 'Set champ = Range("A1:BZ7720")
    champ.Borders.Color = RGB(0, 0, 0)
    Cells.Borders.LineStyle = xlNone
    If Not Intersect(Target, champ) Is Nothing Then
            If Target.Count = 1 Then
                With Target.EntireRow
                    With .Borders(xlEdgeTop)
                        .Color = RGB(255, 0, 0)
                    End With
                    With .Borders(xlEdgeBottom)
                        .Color = RGB(255, 0, 0)
                    End With
                End With
            End If
        End If
End Sub
Le code fonctionne, mais celui ci est un peu lent à l'exécution.
Comme mon niveau en VBA peut être comparé à celui d'une Loutre débutante, j'en appel à votre aide pour savoir si il y à possibilité d'optimiser le code pour rendre celui ci plus efficace?

Je vous remercie d'avance pour vos réponse et l'aide apporté!

Ci dessous mon fichier
Opti.xlsm