XL 2016 Rendre plus lisible un code VBA

[ReneDav14000]

Bonsoir le forum,
J'ai fait le code suivant un peu (beaucoup) à l'arrache, est-ce que vous pourriez m'aider à le rendre plus lisible s'il vous plait ?
Désolé pour le puriste, il est vrai que comme ça ce n'est pas beau.
Merci par avance pour votre aide

Sub bordure()
'
' bordure Macro
'

    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    
        With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
    
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
        With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
        With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
    Range("B8").Select
End Sub
Sub entete()
'
' entete Macro
'

    Range("D4").Select
    Application.PrintCommunication = False
    
        With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        End With
        
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    
     With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    
    Application.PrintCommunication = True
End Sub

 

[Hasco]

Bonjour,

Qu'ouïje, qu'entends-je, qu'accoustiquais-je ? "vous voulez pas nettoyer ma m....."

Y'en a qui sont gonflé quand même, jamais j'aurais osé formuler une telle demande !

Ce n'est que mon avis.

Mon p'tit gars, si vous voulez faire du vba, va falloir mettre les mains dans le purin !

 

[Phil69970]

Bonjour @ReneDav14000
Edit bonjour Hasco pb de rafraichissement

Pour la macro bordure

Sub bordure()
'Colonne à adapter éventuellement
With Range("A1:D" & Cells.Find("*", , , , xlByRows, xlPrevious).Row)
    .Borders.LineStyle = 0
    .Borders.LineStyle = 1
End With
End Sub

Pour la 2eme macro je voudrais voir le fichier

Merci de ton retour

@Phil69970

 

[ReneDav14000]

Bonjour,

Qu'ouïje, qu'entends-je, qu'accoustiquais-je ? "vous voulez pas nettoyer ma m....."

Y'en a qui sont gonflé quand même, jamais j'aurais osé formuler une telle demande !

Ce n'est que mon avis.

Mon p'tit gars, si vous voulez faire du vba, va falloir mettre les mains dans le purin !

Bonsoir Hasco,
Désolé de vous avoir offusqué. Loin de moi l'idée de vouloir refiler ma m... comme vous dites.
Si vous avez juste des suggestions ou des modèles qui pourraient m'aider, je peux rectifier le tir moi-même.
Sauf que pour le moment je ne sais pas comment m'y prendre.
J'ai 61 ans et j'ai passé l'âge d'être appelé "mon p'tit gars". Vous avez le droit de ne pas être satisfait de ma demande, mais juste un petit peu de respect ne serait pas de refus.
Cordiales salutations

 

[ReneDav14000]

Bonjour @ReneDav14000
Edit bonjour Hasco pb de rafraichissement

Pour la macro bordure

Sub bordure()
'Colonne à adapter éventuellement
With Range("A1:D" & Cells.Find("*", , , , xlByRows, xlPrevious).Row)
    .Borders.LineStyle = 0
    .Borders.LineStyle = 1
End With
End Sub

Pour la 2eme macro je voudrais voir le fichier

Merci de ton retour

@Phil69970

Voici le fichier

 

[Hasco]

Re,

Si vous avez juste des suggestions ou des modèles qui pourraient m'aider

Le forum en est plein, comme celui que @Phil69970 vient de vous donner, il suffit de chercher.

J'ai 61 ans

Pour moi à 61 on est un p'tit jeune.

 

[ReneDav14000]

Re,


Le forum en est plein, comme celui que @Phil69970 vient de vous donner, il suffit de chercher.


Pour moi à 61 on est un p'tit jeune.

C'est un point de vue. Désolé mais je n'accepte pas ce genre de familiarité.
Mais bon on ne va pas y passer la soirée non plus.
Merci toutefois d'avoir répondu à ma question.

 

[Phil69970]

Re

Pour m'éviter de chercher de partout depuis quelle feuille tu appelles tes 2 macros ?

@Phil69970

 

[ReneDav14000]

Re

Pour m'éviter de chercher de partout depuis quelle feuille tu appelles tes 2 macros ?

@Phil69970

C'est le module "Bordure"

 

[Staple1600]

Bonsoir

Histoire de croiser la vieille garde (elle se reconnaitra)

Une variante bordative

Sub aquatique()
Selection.Borders.Value = 1
End Sub

 

[Phil69970]

Re

Je sais bien que c'est le module "Bordure" mais quelle feuille appelle cette macro
En clair sur quelle feuille et quelle cellule elle se déclenche ?

@Phil69970

 

[ReneDav14000]

Re

Je sais bien que c'est le module "Bordure" mais quelle feuille appelle cette macro
En clair sur quelle feuille et quelle cellule elle se déclenche ?

@Phil69970

Désolé, mais j'ai fait une erreur. Ce code n'a rien à voir avec mon application.
J'avais une 2ème appli d'ouverte et je l'ai copié bêtement. En fait ce module ne me sert pas ici et il ne me servira plus.
Vraiment désolé.

 

[Phil69970]

Re

C'est pour cela que je ne comprenais pas !!!
D’où mes questions ....

@Phil69970

 

[ReneDav14000]

Re

C'est pour cela que je ne comprenais pas !!!
D’où mes questions ....

@Phil69970

Toutes mes excuses pour ce temps perdu.

 

[Staple1600]

Re

@ReneDav14000
Quid de mon bout de code du message#10?
Il borde comme les autres, pourtant