Calcul et insertion dans excel

Question

J'essaie de faire des budgets pour des utilisateurs... J'ai une feuille excel avec le nom de l'utilisateur, tout ce qu'il possède... Je voudrais tout simplement additionner ses valeurs et insérer une ligne de total, sachant que mes utilisateurs sont touts à la suite les uns des autres... Voici mon code (qui ne fonctionne pas) pour que ce soit un peu plus clair !!! Merci mille fois ! Sub calculPrix() Dim rowPro As Integer Dim rowSite As Integer Dim calcul As Integer calcul = 0 rowSite = 4 Worksheets("PricingTot").Cells(3, 8).Value = "Total prix" While (Worksheets("PricingTot").Cells(rowSite, 1).Value <> "") rowPro = 4 While (Worksheets("PricingTot").Cells(rowPro, 1).Value <> "") If (Worksheets("PricingTot").Cells(rowSite, 1).Value = Worksheets("PricingTot").Cells(rowPro, 1).Value) Then calcul = calcul + Worksheets("PricingTot").Cells(rowSite, 7).Value Worksheets("PricingTot").Cells(rowSite, 8).Value = calcul End If rowPro = rowPro + 1 Wend calcul = 0 rowSite = rowSite + 1 Worksheets("PricingTot").Cells(1, 3).Value = rowSite Wend End Sub

cs_Celeborn · Answer

Bonjour,

Je ne comprend pas l'ordonnancement de ta feuille,,, ( les sites et les noms sont dans la même colonne ???),,,

Mais il me semble que le mieux n'est pas l'exécution d'une macro,,, connais tu la formule "SOMMESI" ???,,, qui semble parfaitement adapté à ce que tu veux réaliser.
Cette fonction permet d'aditionner les chiffres de cellules d'une colonne,,, si une condition d'une cellule d'une autre colonne est remplis,,,
 
Virtuellement vôtre !!! ;-))

Calcul et insertion dans excel

1 réponse

Discussions similaires