mise en forme cellule

  • Initiateur de la discussion Initiateur de la discussion luisf
  • 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 !

luisf

XLDnaute Occasionnel
bonjour

je cherche le code qui permet de mettre une bordure une cellule?
lorsque je clique sur un bouton il vide la cellule et je voudrais ensuite remettre en forme la cellule:
- fond blanc
- bordure double trait

pour le fond je sais faire avec interior.colorindex=2
mais pour la bordure le sais pas!?

merci
 
Re : mise en forme cellule

oui je viens d'y penser mais j'obtiens le code suivant:
Code:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With

il faut mettre tout sa ou il y a des chose qui sont inutile???
 
Re : mise en forme cellule

Bonjour luisf, eric,

Voici une solution :
Code:
Public Sub Bordure(Plage As Range, Position, TypeLigne, HauteurLigne)
    ' Mettre une bordure
    With Plage.Borders(Position)
        .LineStyle = TypeLigne
        .Weight = HauteurLigne
        .ColorIndex = xlAutomatic
    End With
End Sub

Pour mettre des bordures à la cellule A2 (traits simples à droite, à gauche, en haut et en bas de la cellule) :
Code:
Call Bordure(Range("A2"), xlEdgeLeft, xlContinuous, xlThin)
Call Bordure(Range("A2"), xlEdgeTop, xlContinuous, xlThin)
Call Bordure(Range("A2"), xlEdgeBottom, xlContinuous, xlThin)
Call Bordure(Range("A2"), xlEdgeRight, xlContinuous, xlThin)
 
Re : mise en forme cellule

en ce qui concerne le code de la mise en forme pas de probleme j'ai reussi a faire par contre j'ai une erreur qui est : la méthode select de la classe range a échoué.

je ne sais pas trop se que c'est comme erreur!?

j'utilise le code suivant:
Code:
Sheets(2).Visible = True
Sheets(2).Range("B4:B21").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlDouble
    Selection.Borders(xlEdgeTop).LineStyle = xlDouble
    Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
    Selection.Borders(xlEdgeRight).LineStyle = xlDouble
    Selection.Borders(xlInsideHorizontal).LineStyle = xlDouble
Selection.Interior.ColorIndex = 2
Sheets(1).Select
Sheets(2).Visible = False
 
Re : mise en forme cellule

Voici une solution :
Code:
    With Sheets(2)
        .Visible = True
        [COLOR="Red"].Select[/COLOR]

        .Range("B4:B21").Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlDouble
        Selection.Borders(xlEdgeTop).LineStyle = xlDouble
        Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
        Selection.Borders(xlEdgeRight).LineStyle = xlDouble
        Selection.Borders(xlInsideHorizontal).LineStyle = xlDouble
        Selection.Interior.ColorIndex = 2
        .Visible = False
    End With
    Sheets(1).Select
 
Dernière édition:
- 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

Réponses
10
Affichages
553
Réponses
2
Affichages
491
Réponses
4
Affichages
485
Retour