Insertion bordure inférieure
Résolu
Viking58
Messages postés
186
Statut
Membre
-
Viking58 Messages postés 186 Statut Membre -
Viking58 Messages postés 186 Statut Membre -
Bonjour.
Je continue mon "marché" sur la bible qu'est ce forum.
Je voudrais mettre une bordure inférieure au bas de chaque ligne de mon tableau.
Commencant A3:G3, se terminat A3000:G3000
J'ai ce code qui fonctionne bien, mais je ne sais pas comment le répéter:
Sub BordureInf()
With Worksheets("Feuil1").Range("A3:G3").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
End With
End Sub
Il faudrait que cette macro se lance à l'ouverture du classeur.
Merci
Je continue mon "marché" sur la bible qu'est ce forum.
Je voudrais mettre une bordure inférieure au bas de chaque ligne de mon tableau.
Commencant A3:G3, se terminat A3000:G3000
J'ai ce code qui fonctionne bien, mais je ne sais pas comment le répéter:
Sub BordureInf()
With Worksheets("Feuil1").Range("A3:G3").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
End With
End Sub
Il faudrait que cette macro se lance à l'ouverture du classeur.
Merci
A voir également:
- Insertion bordure inférieure
- Bordure de page word - Guide
- Touche insertion clavier - Guide
- Insertion sommaire word - Guide
- Insertion filigrane word - Guide
- Insertion liste déroulante excel - Guide
3 réponses
Bonjour
Cordialement
Dim plage As Range
Set plage = Range("A3:G3000")
plage.Borders(xlEdgeBottom).LineStyle = xlContinuous
plage.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Cordialement
1. Déclares publique la procédure chargée du formatage
2. Et dans le module ThisWorkBook
ajoutes la procédure qui lance OK à l'ouverture du classeur
Public Sub OK()
Dim plage As Range
Set plage = Range("A3:G3000")
plage.Borders(xlEdgeBottom).LineStyle = xlContinuous
plage.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End Sub
2. Et dans le module ThisWorkBook
ajoutes la procédure qui lance OK à l'ouverture du classeur
Private Sub Workbook_Open()
Call OK
End Sub
Fonctionne à merveille.
Question: Si je supprime ou ajoute des lignes, est-ce que ce code se mettra à jour à chaque ouverture du classeur ?
Le code s'applique à la plage définie ici
Set plage = Range("A3:G3000")
Donc, si tu dois modifier la structure de la feuille, il faudra
1. Redéfinir ta plage
2. Appliquer ta procédure à cette nouvelle plage
Cordialement
Ce que j'aimerai savoir, c'est si ce code se lance à chaque démarrage du classeur ?
Merci