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

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 !!! ;-))


-------------------------------
Réponse au message :
-------------------------------

> 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