[Débutant] Ajouter condition code existant

Ajouter condition code existant

Bonjour,

Etant débutant dans la programation VB, je me tourne vers vous.

J'aimerais ajouter une condition au code existant ci-dessous qui me permette de ne pas afficher les lignes ou la somme est égale à 0

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
        '****************
        ' insert grand total column
        '****************
        iCol = 19 ' S col
        Sheets(SHEET_SF).Columns(iCol).Select
        Selection.Insert Shift:=xlToRight
        Sheets(SHEET_SF).Cells(1, iCol).FormulaR1C1 = "=SUM(RC[-1],RC[-5],RC[-9],RC[-13])"
        Sheets(SHEET_SF).Range(Sheets(SHEET_SF).Cells(1, iCol).Address & ":" & Sheets(SHEET_SF).Cells(LastRow, iCol).Address).Select
        Selection.FillDown
        With Selection.Interior
            .ColorIndex = 45
            .Pattern = xlSolid
        End With
 
 
        '=SUM(R[-40]C+R[-16]C+R[-14]C+R[-4]C)
        'Grand Total
        Sheets(SHEET_SF).Cells(LastRow + 2, 2).Value = "Grand Total"
        Sheets(SHEET_SF).Cells(LastRow + 2, iCol_Mnth).FormulaR1C1 = sGrandTotalStr
        Sheets(SHEET_SF).Range("C" & (LastRow + 2) & ":AY" & (LastRow + 2)).Select
        Selection.FillRight
        Sheets(SHEET_SF).Range("A" & (LastRow + 2) & ":AY" & (LastRow + 2)).Select
        With Selection.Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With

Merci pour votre aide,

François

Salut

Il me semble que =(SUM(RC[-1],RC[-5],RC[-9],RC[-13]))<>0 devrait faire, ou quelque chose d'approchant ;).

Merci pour ta réponse mais je ne sais pas trop si placer un If ou un For et où exactement

Une autre idée?

Merci

Re

As tu fait l'essais de Sheets(SHEET_SF).Cells(1, iCol).FormulaR1C1 = "=(SUM(RC[-1],RC[-5],RC[-9],RC[-13]))<>0", pour voir ?

Dans ce cas j'obtiens des TRUE et des FALSE dans la colonne TOTAL
Et forcément, les lignes "nulles" y sont toujours.