Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

bordures a mettre épaisses

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion grisan29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

grisan29

XLDnaute Accro
bonjour a vous

comment puis modifier ce code
Code: 
Sub bordure()
Dim L As Long
Dim lig As Integer
 With Sheets("commande")
  L = .Range("A65536").End(xlUp).Row
    If L < 12 Then lig = 12
  'Formatage du tableau
      
     .Cells(12, "A").Borders(xlEdgeLeft).LineStyle = xlContinuous
     .Range(.Cells(12, "I"), .Cells(L, "P")).Borders(xlEdgeLeft).LineStyle = xlContinuous
     .Range(.Cells(12, "I"), .Cells(L, "P")).Borders(xlEdgeLeft).LineStyle = xlContinuous
     .Range(.Cells(12, "A"), .Cells(L, "G")).Borders(xlEdgeTop).LineStyle = xlNone
     .Range(.Cells(12, "I"), .Cells(L, "J")).Borders(xlEdgeTop).LineStyle = xlNone
     .Range(.Cells(12, "A"), .Cells(L, "J")).Borders(xlEdgeBottom).LineStyle = xlContinuous
     .Range(.Cells(12, "I"), .Cells(L, "J")).Borders(xlEdgeBottom).LineStyle = xlContinuous
     .Range(.Cells(12, "D"), .Cells(L, "H")).Borders(xlInsideVertical).LineStyle = xlNone
     .Range(.Cells(12, "C"), .Cells(L, "K")).Borders(xlInsideVertical).LineStyle = xlContinuous
     .Range(.Cells(12, "I"), .Cells(L, "J")).VerticalAlignment = xlCenter
     .Range(.Cells(12, "D"), .Cells(L, "G")).VerticalAlignment = xlCenter
     .Range("A12:J12").Borders(xlEdgeTop).LineStyle = xlContinuous
     End With
 End Sub
afin de créer des bordures épaisses
j'ai essayer de mettre
weight.xlmedium
Cliquez pour agrandir...
mais sans succés car il y a bug ce qui veux surement dire que je mis prends mal

Pascal
 
Trier par date Trier par votes
Re : bordures a mettre épaisses

Bonjour Sylvain

Merci de ta réponse mais déjà essayer et j'ai une erreur 1004 "impossible de définir la propriété Weight de la classe borders, d'ailleurs j'ai fait une erreur en mettant
Code: 
.Weight .xlMedium
au lieu de
Code: 
.Weight = xlMedium
sur le post

pascal
 
Dernière édition:
Vote positif 0 Vote négatif
Re : bordures a mettre épaisses

Bonjour sylvain.piron, grisan29
Je comprend pas la ligne
VB: 
If L < 12 Then lig = 12
En dehors de cela, une proposition qui utilise les "sous plages d'une plage" (Areas)

VB: 
Sub bordure__2()
Dim L As Long
Dim Plg As Range, C As Range
With Sheets("commande")
    L = .Range("A65536").End(xlUp).Row
    If L < 12 Then L = 12
    Set Plg = Range("$A$12:C" & L & ",$D$12:$D" & L & ",$E$12:$E" & L & ",$F$12:$F" & L & ",$G$12:$G" & L & ",$H$12:$H" & L & ",$I$12:$I" & L & ",$J$12:$J" & L)
End With
For Each C In Plg.Areas
    With C
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
    End With
Next C
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : bordures a mettre épaisses

Re
Pour les amoureux de la boucle 😀
VB: 
Sub bordure__3()
Dim L As Long, I As Integer
Dim Plg As Range, C As Range
With Sheets("commande")
    L = .Range("A65536").End(xlUp).Row
    If L < 12 Then L = 12
    Set Plg = Range("$A$12:C" & L & ",$D$12:$D" & L & ",$E$12:$E" & L & _
                ",$F$12:$F" & L & ",$G$12:$G" & L & ",$H$12:$H" & L & _
                ",$I$12:$I" & L & ",$J$12:$J" & L)
End With
For Each C In Plg.Areas
    With C
        For I = 7 To 10
            .Borders(I).Weight = xlMedium
        Next I
    End With
Next C
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : bordures a mettre épaisses

bonjour Efgé
merci pour ta solution bouclé qui fonctionne très bien ainsi que bordure_2 mais aucune ne bordure la feuille commande mais la feuil1 ou est posé le bouton
j'ai oublier de te dire que
Code: 
 L = .Range("A65536").End(xlUp).Row
    If L < 12 Then lig = 12
est la limite en hauteur de la feuille pour les bordures

Pascal
 
Dernière édition:
Vote positif 0 Vote négatif
Re : bordures a mettre épaisses

Bonjour grisan29, sylvain.piron, Efgé,

Le post #1 complique inutilement les plages, ceci est bien plus simple :

Code: 
Sub bordure()
Dim L As Long, i As Byte
With Sheets("commande")
  L = Application.Max(.[A65536].End(xlUp).Row, 12)
  With .Range("A12:J" & L)
    For i = 7 To 10
      .Borders(i).Weight = xlMedium
    Next
    .Offset(, 2).Resize(, 8).Borders(xlInsideVertical).Weight = xlMedium
    Union(.Columns("D:G"), .Columns("I:J")).VerticalAlignment = xlCenter
  End With
  .Range("A" & L + 1 & ":J" & .Rows.Count).Clear 'RAZ sous le tableau
End With
End Sub
A+
 
Vote positif 0 Vote négatif
Re : bordures a mettre épaisses

Re , Bonjour job
Pour ma proposition, il manque ,effectivement, un point :
VB: 
Sub bordure__3()
Dim L As Long, I As Integer
Dim Plg As Range, C As Range
With Sheets("commande")
    L = .Range("A65536").End(xlUp).Row
    If L < 12 Then L = 12
    Set Plg = .Range("$A$12:C" & L & ",$D$12:$D" & L & ",$E$12:$E" & L & _
                ",$F$12:$F" & L & ",$G$12:$G" & L & ",$H$12:$H" & L & _
                ",$I$12:$I" & L & ",$J$12:$J" & L)
End With
For Each C In Plg.Areas
    With C
        For I = 7 To 10
            .Borders(I).Weight = xlMedium
        Next I
    End With
Next C
End Sub

Set Plg = .Range

Pour If L < 12 Then lig = 12 , Je voulais juste dire que ça ne correspond à rien.
Si L est inférieur à 12 alors Lig = 12
De plus Lig n'est jamais utilisé......

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
RESOLU : bordures a mettre épaisses

bonjour Efgé,job75😎😎
merci pour vos solutions 😎 et je ne sais laquelle choisir 😱car elle fonctionne bien toutes les2 et je n'aurais pu faire cela de moi même😕

pascal
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
267
fanch55
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
261
MOLY_
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
369
Piment
P
M
  • Question Question
Microsoft 365 VBA fusion défusion cellule gestion cellules
Réponses
8
Affichages
472
mix770
M
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
481
vgendron
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
592
CortoXls
C
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
864
TooFatBoy
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
757
Gestionnaire_rh
G
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
890
Kevin38
K
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
1 K
AtTheOne
D
  • Résolu(e)
XL 2016 VBA Problème avec les bordures intérieures
Réponses
2
Affichages
2 K
danielco
D
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
B
  • Question Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
786
sousou
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
646
Francky79
F
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
524
piskely
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…