Bordures cellules

Bonjour,

Je suis a à la recherche d'un code pour mettre des bordures au cellules "B:F" que si je rempli les cellules.

ex: si je rempli la cellule "B7" la ligne "B7:F7" aura une bordure ect....

Je vous remercie d'avance

Cordialement

Max

Bonjour

Feuille de test : Feuille 1 colonne b:b

Bonjour Lean,

Je te remercie beaucoup mais serait-il pas plus simple que lorsque je rempli une cellule de la colonne B la ligne active "B:F" porteras une bordure?

Merci et bonne journée

Max

Bonjour,

lorsque je rempli une cellule de la colonne B la ligne active "B:F" porteras une bordure

c'est ce que fait la macro de lean non ?

En plus court si tu veux :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then Target.Resize(, 5).Borders.Weight = xlThin
End Sub

Si tu veux autre chose il faudra mieux t'expliquer.

eric

C'est plus joli en plus court...

Bonjour eriiic,

Oui je te remercie beaucoup. Juste une petite modif si tu le permet, comment supprimer la bordure si les cellules d'une ligne sont vide?

Bonne journée

Max

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then Target.Resize(, 5).BorderAround Weight:=xlThin    
End Sub

Mise à jour de votre première demande...

Re,

Merci et bonne journée

Max

Pareillement

Re,

peut-être plutôt ça ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
    If Target = "" Then
        Target.Resize(, 5).Borders.LineStyle = xlNone
    Else
        Target.Resize(, 5).Borders.Weight = xlThin
    End If
End Sub

eric