Bordure à l'aide de code

[martin]

Bonjour tout le monde !!!

J'aimerai savoir s'il est possible à partir de code de: faire une bordure noire qui descend tout le long de la colonne D, disons à droite de la cellule, un peu comme un soulignement mais de côté...
un peu comme ceci


|
|
|
|


Merci pour votre aide...

 

[@+Thierry]

Salut Martin

Tu peux avoir le code assez facilement en utilisant l'enregistreur de macro...
c'est pas une honte de l'utiliser !! c'est mon prof !!!

çà donne ceci :

Sub Macro1()
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 0
End With
End Sub

Maintenant là c'est pour un trait Gras (xlthick)
à remplacer en fonction par :
xlHairline, xlThin, xlMedium ou xlThick

Maintenant aussi c'est pour la Sélection active...

Si c'est pour faire systématiquement faire un trait noir à droite de la colonne "D".. faut il encore savoir où on démarre et où on s'arrête ? Mais bon admettons qu'on ne sache pas (sous réserve d'avoir des données contigues en colonne "D"... Ce genre de macro se débrouillera :

Sub TraitColD()
Dim LH As Integer
Dim LB As Integer

LH = Range("D1").End(xlDown).Row
LB = Range("D65536").End(xlUp).Row
With Range("D" & LH & "😀" & LB).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 0
End With
End Sub

Enfin c'est un peu spécial comme demande, car il faudra activer un bouton de toute facons... c'est peut être valable pour un job en masse... , car avec le click droit et "Format de Cellule" puis onglet "Bordure" on y arrive sans macro.....

Bonne Soirée et Welcome to XLD Martin
@+Thierry