Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    janvier 2011
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : janvier 2011
    Messages : 90
    Points : 39
    Points
    39

    Par défaut 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 : 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

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 660
    Points : 10 261
    Points
    10 261

    Par défaut

    Salut

    Il me semble que =(SUM(RC[-1],RC[-5],RC[-9],RC[-13]))<>0 devrait faire, ou quelque chose d'approchant .
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    janvier 2011
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : janvier 2011
    Messages : 90
    Points : 39
    Points
    39

    Par défaut

    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

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 660
    Points : 10 261
    Points
    10 261

    Par défaut

    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 ?
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Nouveau membre du Club
    Profil pro
    Inscrit en
    janvier 2011
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : janvier 2011
    Messages : 90
    Points : 39
    Points
    39

    Par défaut

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

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo