Bordure cellule vba excel

Résolu
Signaler
Messages postés
222
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
18 février 2011
-
Messages postés
222
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
18 février 2011
-
bonjour,

- je développe en vba sous excel.
- je rempli une cellule de la manière suivante : Sheets(strSheetName).Range("A1") = "salut"
ma question : quel est le code pour pouvoir définir une bordure à la cellule "A1" ?

''***************************************************************************
...à votre service
Thanks & Peace
Tonio

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
il faut que tu regarde du coté de la propriétés Borders de l'objet Range.

Quel type de bordure souhaites tu mettre?

REgarde ce que fait ceci (=> réaliser grace à l'enregistreur de macro)

Range("A1").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
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
222
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
18 février 2011
3
ok, merci, je vais faire comme ça...

''***************************************************************************
...à votre service
Thanks & Peace
Tonio