Bordure automatique

JCGL

XLDnaute Barbatruc

• 30 Mars 2013

• #2

Re : Bordure automatique

Bonjour à tous,

Bienvenue sur XLD

Pas de fichier joint mais une MeFC devrait suffire

A+ à tous

 

Vote positif 0 Vote négatif

S

schaps777

XLDnaute Junior

• 30 Mars 2013

• #3

Re : Bordure automatique

Bonjour JCGL et à vous tous,

j'ai envoyé le fichier, j'avais fait une erreure.
merci
schaps

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 30 Mars 2013

• #4

Re : Bordure automatique

Bonjour à tous,

Un essai par MeFC mais la bordure en gras n'est pas disponinle :



A+ à tous

 

Pièces jointes

• Capture.1.png

  10.9 KB · Affichages: 111
• Capture.1.png

  10.9 KB · Affichages: 112
• JC KANBAN.xlsx

  19.4 KB · Affichages: 76

Vote positif 0 Vote négatif

S

schaps777

XLDnaute Junior

• 30 Mars 2013

• #5

Re : Bordure automatique

Bonjour à JCGL et vous tous,

merci, merci beaucoup JCGL c'est exactement ce que je voulais.

schaps

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 30 Mars 2013

• #6

Re : Bordure automatique

Bonjour à tous,

Si tu souhaites des bordures "gras", essaye ceci dans un module :

VB:

Option Explicit

Sub Bordure()
Dim Col As Byte, Lig As Byte
    Range("C5:Z100").Borders.LineStyle = xlNone
    For Lig = 5 To 19 Step 2
    For Col = 3 To Int(Cells(Lig, 2) * 2) + 1 Step 2
    Cells(Lig, Col).Borders.Weight = xlThick
    Next Col
    Next Lig
    Range("A5").Select
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

S

schaps777

XLDnaute Junior

• 30 Mars 2013

• #7

Re : Bordure automatique

Bonjour à JCGL et vous tous,

Merci encor plus, c'est exactement ce que je veux.

merci
schaps 🙂

 

Vote positif 0 Vote négatif