Pour éviter de répéter une mise en forme

[nougitch]

Bonjour,

J'ai un petit bout de code de mise en forme (bordures) que je répète plusieurs fois.
Plutôt que le recopier à chaque fois, j'avais pensé à le passer en fonction et l'appeler en lui donnant les paramètres nécessaires, en l'occurrence, cellule de départ, cellule d'arrivée et feuille.
Cela donne ça :

Sub getBorders(sCell1 As String, sCell2 As String, sSheet As String)

    With ActiveWorkbook.Sheets(sSheet)
        With .Range(sCell1, sCell2)
            With .Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlHairline
                .ColorIndex = 15
            End With
            With .Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlHairline
                .ColorIndex = 15
            End With
            With .Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlHairline
                .ColorIndex = 15
            End With
            With .Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .Weight = xlHairline
                .ColorIndex = 15
            End With
            With .Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .Weight = xlHairline
                .ColorIndex = 15
            End With
            With .Borders(xlInsideHorizontal)
                .LineStyle = xlContinuous
                .Weight = xlHairline
                .ColorIndex = 15
            End With
        End With
    End With

End Sub

Dans mon code, je mets ça :

getBorders(F2, G7, Activesheet.Name)

Mais j'ai le message d'erreur suivant : "Compile error: Expected: ="

Merci par avance pour votre aide !

 

[STephane]

Re : Pour éviter de répéter une mise en forme

bonjour,

sCell1 & sCell2 étant déclarées comme chaîne, tu dois faire ton appel comme suit
Sub demo()
Call getBorders("F2", "G7", ActiveSheet.Name)
End Sub

 

[nougitch]

Re : Pour éviter de répéter une mise en forme

Parfait STephane, merci bcp !!