1 pièce(s) jointe(s)
effectuer une somme conditionnelle concernant 6 cellules et boucler sur 150 lots de 6 cellules
Bonjour
Je travaille sur un fichier Excel 2010 qui gère des marchés de travaux.
On choisit un projet et un numéro de marché et les infos s'affichent et peuvent être modifiées, le tout étant réinjecté dans une feuille BDD;
- Un marché de travaux peut avoir 150 OS
- Chaque OS est défini par 6 cellules :
. Objet OS1
. Date signature OS1
. Montant OS1
. État OS1
. Affectation OS1
. Avenant OS1
Dans la feuille Tableau de bord marchés de travaux, il est nécessaire d'additionner les montants des OS en fonction de critères.
PREMIER CALCUL : Additionner les OS qui ont un état "Prévisionnel" et une affectation "MOE"
DEUXIÈME CALCUL : Additionner les OS qui ont un état "Prévisionnel" et une affectation "MAE"
.....
J'ai commencé avec une formule SI & ET mais c'est fou de la faire 150 fois dans la barre de formules
Code:
SIERREUR(SI(ET(W199="Prévisionnel";W200="MOE");W198;"")+SI(ET(W205="Prévisionnel";W206="MOE");W204;"");"")
QUESTION : Comment faire une macro qui boucle sur les 150 lots d'OS avec addition des cellules Montant si cellule etat = prévisionnel et cellule affectation = MOE ?
Voici le début d'une macro mais je ne suis pas assez calée pour la finaliser
Code:
1
2
3
4
5
6
| Sub Macro1()
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(AND(R[183]C[21]=""Prévisionnel"",R[184]C[21]=""MOE""),R[182]C[21],"""")+IF(AND(R[189]C[21]=""Prévisionnel"",R[190]C[21]=""MOE""),R[188]C[21],""""),"""")"
End Sub |
Voilà, j'espère avoir été assez claire ...
Le fichier allégé est en pièce jointe
Je me tiens à disposition si nécessaire
Merci beaucoup de votre aide
Nathalie
