Problème de mise automatique de bordures

Bonjour,

J’ai un souci avec une macro pour mettre automatiquement des bordures aux cellules de B à F si la cellule B est non vide. J’affiche la feuille « Affectation » par un bouton à partir de la feuille « Accueil ».

Sur la feuille « Affectation », j’ai utilisé le code suivant :

Private Sub Worksheet_Activate()
Range("B5").Select
End Sub

Option Explicit

Private Sub Worksheet_Change()
Dim Derlig As Long
Derlig = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Derlig , "F" & Derlig).Borders.Value = 1
End Sub

Je joins le fichier de travail

Si quelqu’un à une solution.

Merci d’avance

Bonjour,

Tu peux tester la macro suivante

Private Sub Worksheet_Change(ByVal Target As Range)
    'Mise de bordures sur dernière ligne
    Dim Derlig As Long
    Derlig = Range("B" & Rows.Count).End(xlUp).Row
    Range("B5:F" & Derlig).Borders.Value = 1
End Sub

Bonjour,

A tester ( mais il y a du tri à faire dans les macros)

Edit: Bonjour James, pas vu ta réponse

Merci James007 et M12 pour ce débogage,

Cela marche impeccable.

Salut M12

Content que tout fonctionne ...