Passer un Range en tant que paramêtre pour l'encadrer

[Toug]

Bonjour les xliste!
Je souhaiterais utiliser une sous sub ou fonction pour encadrer le range que je lui passe comme paramètre. Mais cela ne fonctionne pas, J'ai une erreur dans la sous sub
Voici le petit code que j'ai utilisé:

Sub a_Generale()
Set encaRange = Range("A7:D16")
Call Encadre(encaRange)
End Sub


Sub Encadre(MyRange)
Range(MyRange).Select
With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Merci d'avance.

 

[RENAUDER]

Re : Passer un Range en tant que paramêtre pour l'encadrer

Bonjour,

Sub a_Generale()
Set encaRange = Range("A7:D16")
Call Encadre(encaRange.Address)
End Sub

 

[Pierrot93]

Re : Passer un Range en tant que paramêtre pour l'encadrer

Bonjour,

essaye en déclarant / typant tes variables :

Sub a_Generale()
Dim encaRange As Range
Set encaRange = Range("A7:D16")
Call Encadre(encaRange)
End Sub

Sub Encadre(MyRange As Range)

bon après midi
@+

 

[Pierrot93]

Re : Passer un Range en tant que paramêtre pour l'encadrer

Re, bonjour Misange

par contre pour le "select"

MyRange.Select

bien qu'inutile... remplace "selection" par "MyRange"

 

[Misange]

Re : Passer un Range en tant que paramêtre pour l'encadrer

Bonjour à toi aussi Pierrot mais je ne crois pas être intervenue sur ce coup là 🙂

 

[Pierrot93]

Re : Passer un Range en tant que paramêtre pour l'encadrer

Re,

Bonjour à toi aussi Pierrot mais je ne crois pas être intervenue sur ce coup là 🙂

Aarf, effectivement🙂... quand on fait plusieurs choses en même temps... bonjour Eric

 

[Toug]

Re : Passer un Range en tant que paramêtre pour l'encadrer

Merci ça marche nickel!

Bonjour,

Sub a_Generale()
Set encaRange = Range("A7:D16")
Call Encadre(encaRange.Address)
End Sub