Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA Simplifier les codes générés par l'enregistreur

VBA Simplifier les codes générés par l'enregistreur

2 réponses
Avatar
Céline Brien
Bonjour à tous,
J'aimerai simplifier les codes ci-dessous.
Je crois que je peux supprimer les deux lignes suivantes :
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
et les lignes suivantes :
.ColorIndex = xlAutomatic
Mais comment puis-je simplifier l'application de bordures extérieures ?
En une seule ligne ?
Merci de votre aide,
Céline
----------------------------------------------------------------
Range("A5:K5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour Céline,

Tu peux utiliser :

Selection.BorderAround Weight:=xlMedium

Camille

-----Message d'origine-----
Bonjour à tous,
J'aimerai simplifier les codes ci-dessous.
Je crois que je peux supprimer les deux lignes suivantes :
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
et les lignes suivantes :
.ColorIndex = xlAutomatic
Mais comment puis-je simplifier l'application de bordures
extérieures ?

En une seule ligne ?
Merci de votre aide,
Céline
----------------------------------------------------------
------

Range("A5:K5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With


.



Avatar
Céline Brien
Bonjour à tous,
Bonjour Camille,
Merci beaucoup, c'est plus joli ainsi !
J'ai seulement adapté pour toutes les bordures :
Selection.Borders.Weight = xlMedium
Avec votre aide je me sens de plus en plus à l'aise dans l'aide VBA.
Merci encore,
Céline

"Ellimac" a écrit dans le
message de news: 410d01c37b8f$1f1ab690$
Bonjour Céline,

Tu peux utiliser :

Selection.BorderAround Weight:=xlMedium

Camille

-----Message d'origine-----
Bonjour à tous,
J'aimerai simplifier les codes ci-dessous.
Je crois que je peux supprimer les deux lignes suivantes :
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
et les lignes suivantes :
.ColorIndex = xlAutomatic
Mais comment puis-je simplifier l'application de bordures
extérieures ?

En une seule ligne ?
Merci de votre aide,
Céline
----------------------------------------------------------
------

Range("A5:K5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With


.