Petite macro a modifier

Bonsoir a tous, forum bonsoir,

Avec la petite macro du fichier ci-joint, je trace des traits autour des cellules des colonnes A-B-C

Je souhaiterai svp une petite modification du code voir svp le fichier ci-joint explications a l'intérieur.

Merci d'avance pour votre aide, une bonne soirée a tous

Cdlt Ray

Bonsoir

avec une MFC

Salut M12

merci pour ta réponse rapide, j'ai ouvert le fichier, bon ca fonctionne

mais j'aurai svp préférer conserver ma macro SUB modifier me suffira

les MFC ca me dit trop rien

Mais merci a toi

A plus tard

Ray

Re,

Dans ce cas mets la macro

'*** Encadrement automatique des traits dans la plage ("A1:C4000") de cellules
Public Sub Entourage_Cellules()
Dim dl As Integer
dl = Range("A" & Rows.Count).End(xlUp).Row
    With Feuil1.Range("A1:C" & dl) ' Non pas jusqu'en C4000 mais du nombre de films
        .Borders(xlEdgeLeft).LineStyle = xlContinuous           'A gauche
        .Borders(xlEdgeTop).LineStyle = xlContinuous            'En haut
        .Borders(xlEdgeBottom).LineStyle = xlContinuous         'En bas
        .Borders(xlEdgeRight).LineStyle = xlContinuous          'A droite
        .Borders(xlInsideVertical).LineStyle = xlContinuous     'Vertical
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous   'Horizontal
    End With
End Sub

à la place de l'autre

Salut M12,

Merci trop gentil, ca fonctionne très bien

Voila comme c'est comme je le souhaitai

Encore merci a toi et pour ta réactivité

j'adapte a mon programme

Bye bye la bonne soirée a toi avec modération hum, je clos le sujet

Bien cordialement Raymond