Bordure de cllule VBA

kikii

XLDnaute Occasionnel
Bonjour,

comment faire une bordure sur 2 plus épais voir fichier joint en VBA

Merci à tous

Cdt
 

Pièces jointes

  • Classeur1.xls
    15.5 KB · Affichages: 42
  • Classeur1.xls
    15.5 KB · Affichages: 38
  • Classeur1.xls
    15.5 KB · Affichages: 45

sixair

XLDnaute Junior
Re : Bordure de cllule VBA

Bonjour,

le résultat attendu n'est pas très clair pour moi.

une proposition quand même, sur la sélection en cours

Code:
Sub quadrilleUnSurDeux()
For Each Cell In Selection
    If Cell.Column Mod 2 = 0 Then
        Cell.Borders(xlEdgeLeft).Weight = xlMedium
        Cell.Borders(xlEdgeRight).Weight = xlThick
    Else
        Cell.Borders(xlEdgeLeft).Weight = xlThick
        Cell.Borders(xlEdgeRight).Weight = xlMedium
    End If
Next Cell
End Sub

Cordialement
sixair
 

Orodreth

XLDnaute Impliqué
Re : Bordure de cllule VBA

Bonjour,

Enregistreur de macro en fait.

Dans Excel 2003, menu Outils => MAcro => Nouvelle macro ...

Ne pas oublier de stopper l'enregistrement une fois les manipulations finies, sinon le code généré va être à la fois énorme et imbuvable.

Cordialement,
Orodreth
 

Discussions similaires

Réponses
4
Affichages
212

Statistiques des forums

Discussions
312 380
Messages
2 087 805
Membres
103 664
dernier inscrit
wolvi71