Sous-totaux
Bonjour,
J'ai créer un tableau pour les décompositions de prix.
dans la colonne de prix total je veux écrire la bonne formule
soit : le produit du prix unitaire par la quantité
soit : la somme des prix totaux du chapitre.
mon plus gros problème c'est que je n'arrive pas à définir la fin de la somme.si par une macro.
Bonjour,
Je ne sais pas si je vais être d'une grande aide... mais je dois te poser la question : d'où est-ce que nous sort ta liste déroulante avec choix de fonction et résultant intégré ??? c'est bluffant.
C'est la première fois que je vois cela... bien conscient de ne pas tout connaitre d'excel, je t'avoue que j'adore l'idée.
Donc cela te confirme que je ne suis pas d'une grande aide.
En attente de te relire, je te souhaite bon courage dans tes recherches.
Cordialement,
Leakim
Bonjour,
effectivement ce n'est pas d'une grande aide mais bon.
de quel liste parle tu ?
de celle dernière ligne à coté de TOTAL H.T. : ?
si c'est ça c'est parce que c'est un tableau (style : mettre sous forme de tableau).
espérant avoir répondu à t'a question.
Bonjour,
une solution avec une fonction personnalisée qui renvoie l'adresse de la plage entre 2 lignes de même niveau.
ce qui permet de mettre la formule suivante en A7 et de la tirer vers le bas
=SI(A7<>0;SOMMESI(findlvl(A7;1);0;findlvl(A7;8));[@[QTE
ENT]]*[@[Prix Unitaire €]])la fonction
findlvl(rlvl,decalage)
rlvl est la référence (l'adresse) de la cellule contenant le niveau recherché
decalage indique la colonne pour laquelle il faut renvoyer la plage
exemple si
findlvl(A7,1) la fonction renverra une plage A8:Ax
findlvl(A7,8) la fonction renverra une plage H8:Hx
merci pour vos réponse mais cette nuit j'ai eu la révélation !!
mon problème c'était que j'écrivais les formule dans un tableau !
il suffisait d'écrit 0 avant d'inscrir les formules.
donc du coup la formule suivante fonctionne bien :
Do While k <= Lfin - Ldebut - L
If Cells(Ldebut + L + k, Cdebut) = 10 Then
Exit Do
Else
k = k + 1
End If
Loop
Cells(Ldebut - 1 + L, Cfin).FormulaR1C1 = "=SUMIF(R[1]C[" & Cdebut - Cfin & "]:R[" & k & "]C[" & Cdebut - Cfin & "],0,R[1]C:R[" & k & "]C)"
k = 0