Bordure de cellule sous VBA Résolu/Fermé

Question

Bonjour, à tous.

Je suis en train de développer un petit outil de planning automatique, mes lignes et mes colonnes sont donc variables.

J'aimerai que toutes les cellules que j'ai édité aient une bordure.

J'imagine donc que le problème serait de sonder toute les cellules ligne par ligne ou colonne par colonnes pour voir si il y a quelque chose d'écrit dedans si c'est le cas on encadre la cellule en question.

Est-ce que j'ai raison sur le principe ? Si oui comment y parvenir, sinon comment faire ?

Cordialement,

Grobibi34

michel_m · Accepted Answer

bonjour

ton tableau est dans la zone B2:H25 par exemple

Sub encadrer_si()
Dim cellule As Range
For Each cellule In Range("B2:H25")
   If cellule <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub

booddha · Answer

Regarde si ça peut te convenir.

Je n'en suis pas l'auteur donc je ne pourrais t'aider plus avant.


With .Range(.Range("A" & Nl), .Range("BQ" & Nl))
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Arto · Answer

si ça t'intéresse toujours, je viens de faire un code correspondant à ce que tu cherches.

tibatcool · Answer

si c'est toujour possible je recherche ce genre de choses je voudrais juste mettre en blanc une cellule rouge (ça c'est pas difficile j'ai réussi) mais il faudrait que je remette la case en mode normal (avec les bordures d'origine) dans mon programme

merci

tibatcool · Answer

merci beaucoup ! ;)

tibatcool · Answer

A tout hasard je cherche à changer le contenue d'une cellule d'une feuille à l'autre dans un classeur excel si quelqu'un sait...

merci

seb · Answer

Moi pour sélectionner un tableau donc le coin supérieur gauche est la cellule B1 je fais ça;

Range("B1", Range("B1").End(xlToRight).End(xlDown)).Select


cela permet quelque soit la taille du tableau d'avoir une sélection qui s'adapte automatiquement à la taille de ton tableau.

Après tu fais ce que tu veux de ton tableau...mise en forme, mise en forme conditionnelle...

Bordure de cellule sous VBA

7 réponses

Discussions similaires