Problème avec formule si

matrix · 8 Mai 2008

Bonjour à tous,

Dans mon fichier excel, j'ai cette formule qui ne marche pas.

Code:

'% SELON TYPE
nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("COUT PAR PÉRIODE").Range("D5:D" & nbLignes).Formula = "=(B5;B5/SOMME(B5:B503);0)"

Je voudrais qui me calcule les informations, mais ça ne fonctionne pas.

Comment faire s.v.p.

au lieu d'inscrire la formule, peut-on insérer seulement le résultat?

Merci de votre aide!

cbea · 8 Mai 2008

Re : Problème avec formule si

Bonjour Matrix,

Avec une formule :

Code:

Sheets("COUT PAR PÉRIODE").Range("D5:D" & nbLignes).Formula = "=IF(B5,B5/SUM(B5:B503),0)"

matrix · 8 Mai 2008

Re : Problème avec formule si

Merci beaucoup.

Peut-on faire en sorte que seul le résultat s'affiche dans la cellule au lieu de la formule?

cbea · 9 Mai 2008

Re : Problème avec formule si

Voici 2 solutions :

1er cas : avec la formule dans la cellule
PS : dans mon message précédent, il y avait une erreur dans la formule

Code:

    Dim nbLignes as Long
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row

    Sheets("COUT PAR PÉRIODE").Range("D5:D" & nbLignes).Formula = "=IF(B5,B5/SUM($B$5:$B$" & nbLignes & "),0)"

2me cas : avec le résultat directement dans la cellule

Code:

    Dim Plage As Range, Cell As Range
    Dim nbLignes as Long
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    
    Set Plage = Sheets("COUT PAR PÉRIODE").Range("B5:B" & nbLignes)
    For Each Cell In Plage
        Cell.Offset(0, 2).Value = Cell.Value / Application.WorksheetFunction.Sum(Plage)
    Next Cell

Problème avec formule si

matrix

XLDnaute Occasionnel

Pièces jointes

cbea

XLDnaute Impliqué

matrix

XLDnaute Occasionnel

cbea

XLDnaute Impliqué

Discussions similaires