Discussion :

[hamynaa]

Bonjour le Forum,

J'ai un pb avec l'automatisation d'un fichier. En fait, je voudrai qu'il fache les sous totaux en fonction de la notation attribuée à chaque produit.
Je joins un fichier avec un bout de code pour que vous voyez plus en détail.


Merci de votre aide

[jfontaine]

Bonjour,

As tu étudié la solution des formules plutôt que VBA ?

ex : à mettre en D9

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME.SI(C4:C8;"BBB";D4:D8)

[hamynaa]

Merci Jerôme
Mais y'aurait il pas un moyen de l'adapter à mon code. En effet, ceci n'est qu'un bout. j'ai une liste qui varie en fonction des mois et je veux dés qu'il finit le classement en fonction des conditions qu'il me calcule les sous totaux ainsi qu les totaux pour chaque type de produits.
Merci encore

[jfontaine]

A ajouter pour chaque sous-totaux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    F1.Range("B" & Ligne + 1) = "Sous total BBB"
    F1.Range("D" & Ligne + 1).FormulaLocal = "=SOMME.SI(C" & Lgdep & ":C" & Ligne & ";""BBB"";D" & Lgdep & ":D" & Ligne & ")"

[hamynaa]

Merci jerôme