Bordure à l'aide de code

  • Initiateur de la discussion Initiateur de la discussion martin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

martin

Guest
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...
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
17
Affichages
275
Réponses
8
Affichages
551
Réponses
18
Affichages
477
Réponses
32
Affichages
1 K
Retour