XL 2013 Somme des heures en fonction de la couleur

Algarre · 28 Octobre 2020

Bonjour à tous,

Je remplis un tableau (sur Excel 2013) où je note le temps de fonctionnement en fonction de l'activité de production.
Je rentre au fur et à mesure les temps de fonctionnement selon l'activité mais aussi les temps de panne et de maintenance.

Je voudrais calculer le temps de fonctionnement de la machine en fonction de l'élément à produire : autrement dit, sur une semaine, la machine a passé combien de temps à produire l'élément 1 ect...

Je n'ai trouvé aucun exemple avec des heures dans les différentes discussions ici.

Votre aide me retira une grosse épine du pied.

Merci, mille fois, d'avance.

Algarre

sylvanu · 28 Octobre 2020

Bonjour Algarre, JHA,
Je préférerais :

VB:

Function SommeCouleurFondRef(champ As Range, couleurFond As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.Color = couleurFond.Interior.Color Then
      If IsNumeric(c.Value) Then temp = temp + c.Value
    End If
  Next c
  SommeCouleurFondRef = temp
End Function

Car les couleurs choisies pourraient ne pas être dans la palette.
En utilisant Interior.Color au lieu de Interior.Color.Index on peut utiliser l'ensemble des couleurs que l'on veut.

Algarre · 28 Octobre 2020

j'ai oublié... c'est pour calculer le temps de fonctionnement en fonction de la couleur...

Merci.

JHA · 28 Octobre 2020

Bonjour à tous,

Un début de piste avec une fonction personnalisée de Mr JB.

JHA

sylvanu · 28 Octobre 2020

Bonjour Algarre, JHA,
Je préférerais :

VB:

Function SommeCouleurFondRef(champ As Range, couleurFond As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.Color = couleurFond.Interior.Color Then
      If IsNumeric(c.Value) Then temp = temp + c.Value
    End If
  Next c
  SommeCouleurFondRef = temp
End Function

Car les couleurs choisies pourraient ne pas être dans la palette.
En utilisant Interior.Color au lieu de Interior.Color.Index on peut utiliser l'ensemble des couleurs que l'on veut.

Algarre · 1 Novembre 2020

Bonjour Sylvanu et JHA.

Merci beaucoup pour vos solutions.
L'épine est bien sorti du pied.

Très Cordialement.

XL 2013 Somme des heures en fonction de la couleur

Algarre

XLDnaute Nouveau

Pièces jointes

sylvanu

Algarre

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Algarre

XLDnaute Nouveau

Discussions similaires

XL 2013 Somme des heures en fonction de la couleur

Algarre

XLDnaute Nouveau

Pièces jointes

Algarre

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Algarre

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency