Appel Sub avec paramètre

Bonjour

j'ai nommé de plages de cellules ex: zoneb et zoneb

je voudrais appeler un meme sub avec comme parametre zonea ou zoneb

Private Sub Worksheet_Activate()

cadrage zonea

cadrage zoneb

end sub

sub cadrage (????)

range(????).select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

end sub

Comment faire?

cordialement

Pierre

Bonjour,

Private Sub Worksheet_Activate()
    cadrage (ActiveSheet.Range("zonea"))
    cadrage (ActiveSheet.Range("zoneb"))
End Sub

Sub cadrage(maplage As Range)
    maplage.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

ou bien

Private Sub Worksheet_Activate()
    cadrage "zonea"
    cadrage "zoneb"
End Sub

Sub cadrage(maplage As String)
    Range(maplage).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

merci Steelson

Après essai, j'ai opté pour la 2ème solution

Private Sub Worksheet_Activate()

cadrage "zonea"

cadrage "zoneb"

End Sub

Sub cadrage(maplage As String)

Range(maplage).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

End Sub

merci pour la réponse rapide

cordialement

pierre

Bien,

Pour tes posts, mets le code sous balise </> au-dessus du rectangle de réponse.

Merci.