XL 2016 somme dans une plage variable

pierrejean

XLDnaute Barbatruc

• 7 Juin 2018

• #2

Bonjour Reve24

Si tu n'es pas hostile au vba
Une fonction personnalisée

 

Pièces jointes

• Formule (1).xlsm

  20.7 KB · Affichages: 26

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 7 Juin 2018

• #3

Bonjour
je ne comprends pas ta solution ou me suis je mal exprimée

La valeur recherchée est

cumul des temps de production entre compteur 0 à 0 = 01:42:05

temps total entre 0 et zero est de 03:42:16

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 7 Juin 2018

• #4

Hello
un essai par formule
en I2

VB:

=SI(F2=0;SOMMEPROD(($D$2:D2="TEMPS DE PRODUCTION")*($E$2:E2))-I1;SOMMEPROD(($D$2:D2="TEMPS DE PRODUCTION")*($E$2:E2)))

et tu tires vers le bas

hello @pierrejean on n'a pas compris la meme chose apparemment :-D

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 7 Juin 2018

• #5

et je viens de voir que ma formule ne marche plus pour la suite du tableau..
ca repart à 1:42:05

 

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 7 Juin 2018

• #6

Exact quand il rencontre un nouveau 0 cela ne repart pas a zéro
c'est toute ma difficulté , sans compter que le nombre de ligne peut être variable
merci a toi

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 7 Juin 2018

• #7

nouvelle solution avec une colonne supplémentaire
Voir PJ

 

Pièces jointes

• Formule (1).xlsm

  20.3 KB · Affichages: 28

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 7 Juin 2018

• #8

pour la solution de PJ, suffit d'adapter le code comme ceci (Si tu me permets @pierrejean )

VB:

Function somme_spe(cellule)
For n = cellule.Row - 1 To 1 Step -1
    If Cells(n, cellule.Column) <> 0 Then
        If Cells(n, cellule.Column - 2) = "TEMPS DE PRODUCTION" Then
            somme_spe = somme_spe + Cells(n, cellule.Column - 1)
        End If
    Else
    Exit Function
    End If
Next
End Function

il s'agit d'une fonction personalisée...
il faut en écrire le code dans un module vba standard (Alt+F11 --- ajouter module standard - copier le code)
et dans excel, tu tapes =somme_spe(F2) comme une fonction normale d'excel

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Juin 2018

• #9

Re

Voila la correction
Edit: @ vgendron : Bien sur que je permets !!!!

 

Pièces jointes

• Formule (1).xlsm

  20.9 KB · Affichages: 23

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 7 Juin 2018

• #10

Bonjour le Forum,
Bonjour Reve24, PierreJean , vgendron,

pour saluer mes petits camarade de jeu et pour proposer une autre solution voir formule en P2 et P3

Cordialement

 

Pièces jointes

• Formule reve24.xlsx

  15.9 KB · Affichages: 25

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 7 Juin 2018

• #11

oui en vba cela fonction , j ai ajouter un autre critère si temps de production et machine X Z ou Z
toutefois cela fait que je dois créer une fonction par machine .
POUR LE TEMPS TOTAL entre 0 à 0 ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Juin 2018

• #12

Bonjour à toutes et tous,

Juste pour saluer les participants à ce fil, une solution avec une formule simple en colonne I et un TCD. Rem : pour le 1er problème (une seule machine)

 

Pièces jointes

• reve24- Formule- v1.xlsx

  22.9 KB · Affichages: 17

Dernière édition: 7 Juin 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2018

• #13

Bonjour reve24, Pierre, vgendron, Jocelyn, mapomme,

Solution par formule en I3, à tirer à droite (si plusieurs machines) et vers le bas :

Code:

=SI($F3;"";SOMME.SI.ENS($E$2:$E2;$D$2:$D2;"TEMPS DE PRODUCTION";$H$2:$H2:$H2;I$2)-SOMME(I$2:I2))

A+

 

Pièces jointes

• Formule(1).xlsx

  22.8 KB · Affichages: 24

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 7 Juin 2018

• #14

Merci et effectivement tant de créativité
Merci pour tous ceux qui participent

 

Vote positif 0 Vote négatif