Mise en forme

[gds35]

Mes AMIS du forums Bonjour , Bon DIMANCHE ,

J'ai un pb de mise en forme d'une feuille de calcul .....
Je pense qu'en joingnant le p'tit fichier joint cela sera + compréhensible
que de long discours.

Merci de votre aide

Cordialement GDS35

 

[JCGL]

Re : Mise en forme

Bonjour à tous,

Où se situe le problème ?

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

A+ à tous

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

 

[Pierrot93]

Re : Mise en forme

Bonjour,

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

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

bonne journée
@+

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

 

[JCGL]

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

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

 

[gds35]

Re : Mise en forme

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

 

[Staple1600]

Re : Mise en forme

Bonjour à tous



Encore plus court 😉

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

 

[JCGL]

Re : Mise en forme

Bonjour à tous,
Salut l'Agrafe 🙂,

Joli code court...

A+ à tous