Discussion :

[fra7878]

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 :

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
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

[ProgElecT]

Salut

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

[fra7878]

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

[ProgElecT]

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 ?

[fra7878]

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