Mise en forme

JCGL

XLDnaute Barbatruc

• 25 Octobre 2009

• #2

Re : Mise en forme

Bonjour à tous,

Où se situe le problème ?

Code:

Range("A" & L & ":D" & L).Select

A+ à tous

Edition : Salut Pierrot et une belle journée à toi aussi

 

Dernière édition: 25 Octobre 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2009

• #3

Re : Mise en forme

Bonjour,

essaye peut être ainsi, si j'ai bien compris :

Code:

Range("A" & L & ":D" & L).Select

bonne journée
@+

Edition : Aarf plus rapide Jean-Claude, une bonne journée à toi..

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Octobre 2009

• #4

Re : Mise en forme

Bonjour à tous,

Gérard : un peu plus court et qui prend en compte les cellules renseignées en A et sur les quatre colonnes

Code:

Option Explicit

Sub Bordures()
Dim L&

For L = 3 To Range("A65536").End(xlUp).Row
Range("A" & L & ":D" & L).Select
 With Selection.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
 End With
Next
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 25 Octobre 2009

• #5

Re : Mise en forme

Grand Merci à tous les 2 ,
Le code fonctionne a merveille..
Bon dimanche et cordialement de GDS35

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2009

• #6

Re : Mise en forme

Bonjour à tous



Encore plus court 😉

Code:

Sub Bordures()
With Range("A3:D" & [A65536].End(xlUp).Row).Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Octobre 2009

• #7

Re : Mise en forme

Bonjour à tous,
Salut l'Agrafe 🙂,

Joli code court...

A+ à tous

 

Dernière édition: 25 Octobre 2009

Vote positif 0 Vote négatif