Bordure Cellules Excel
Résolu
cs_tulesais
Messages postés
175
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
11 avril 2013
-
29 sept. 2009 à 13:10
Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 - 29 sept. 2009 à 15:54
Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 - 29 sept. 2009 à 15:54
A voir également:
- Vba bordure cellule
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
- Vba dernière cellule non vide ✓ - Forum Visual Basic 6
- Derniere cellule remplie d'une colonne - Forum Visual Basic 6
3 réponses
Calade
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
10
29 sept. 2009 à 15:09
29 sept. 2009 à 15:09
Bonjour,
Fais-le a la mano à l'aide de l'enregistreur de macros puis ensuite modifie le code ainsi généré à ta convenance.
Calade
Fais-le a la mano à l'aide de l'enregistreur de macros puis ensuite modifie le code ainsi généré à ta convenance.
Calade
cs_tulesais
Messages postés
175
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
11 avril 2013
2
29 sept. 2009 à 15:33
29 sept. 2009 à 15:33
Impec !!!
Merci beaucoup Calade !!!
Range(.Cells(1, 1), .Cells(LigneExcel, ColMax)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
Merci beaucoup Calade !!!
Range(.Cells(1, 1), .Cells(LigneExcel, ColMax)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
Calade
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
10
29 sept. 2009 à 15:54
29 sept. 2009 à 15:54
De rien, et la méthode est valable pour toute chose que l'on peut effectuer à la main... au prix d'un peu de retouche derrière.
Calade
Calade