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
