Bonjour a tous,

j'ai une grosse macro dans laquelle une partie concerne la mise en forme de la feuille ou sont traitees les donnees. J'arrive a mettre en gras, colorier les lignes que je veux, mais je butte sur leur encadrement.

Je souhaite faire un cadre gris sur toute les lignes ou il y a les lettres "bnis" dans ma colonne D. Voici mon code de mise en forme qui ne marche pas.
La syntaxe que j'ai utilise necessite un With, mais j'ai aps trouve d'autres exmples donc j'avais essaye comme ca...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
For Each D In STD.Range("D4:D800")
  If Right(D.Value, 4) = "bnis" Then
    D.Offset(0, 11) = cmpt
    D.Offset(0, 5) = scmpt
    D.Offset(0, 7) = kcmpt
    D.Offset(0, 11).Font.Bold = True
     D.Offset(0, 5).Font.Bold = True
     D.Offset(0, 7).Font.Bold = True
     D.Font.Bold = True
     D.EntireRow.Interior.Color = 13160660
     D.EntireRow.Borders = xlEdgeLeft
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 48
 
    cmpt = 0
    scmpt = 0
    kcmpt = 0
  Else
    cmpt = cmpt + D.Offset(0, 11).Value
    scmpt = scmpt + D.Offset(0, 5).Value
     kcmpt = kcmpt + D.Offset(0, 7).Value
  End If
Next
merci par avance.