Remplissage tableau selon beaucoup de condition

[eddy51]

Bonjour,

Voila dans ma PJ j'ai 2 feuilles
Feuil1 dans laquelle j'ai 3 tableau , nombre d’arrêt , temps d’arrêt , type d’arrêt .
Celui qui m’intéresse c'est temps d’arrêt qui commence en DK .


Arret , ou j'ai une base de donnée qui m'importe des arrets .

Je voudrais que dans la cellule DK6 il me compte le temps d'arret total , pour l'equipe A .entre les 2 dates en DK1 et DK2 pour l'arret en D6

Merci d'avance ,
Cordialement Eddy51

 

[eddy51]

Re : Remplissage tableau selon beaucoup de condition

Pas d'idées?

 

[francedemo]

Re : Remplissage tableau selon beaucoup de condition

bonjour eddy,
pas tout compris, tu veux un résultat sous quel format ? (heures, minutes, jours, ...)
à +

 

[eddy51]

Re : Remplissage tableau selon beaucoup de condition

Salut francedemo ,
Heure minute seconde .

En gros faut qu'il repere les conditions , si c'est equipe A , si c'est arret a renseigner , si c'est entre tel et tel date et ensuite il additione tout les temps d'arret , y'a une date de debut une date de fin a chaque arret , ben addition de tout les intervalles

 

[francedemo]

Re : Remplissage tableau selon beaucoup de condition

tu auras du mal à avoir des minutes, secondes en partant de jours, mais bon...
j'ai mis :
=((DK2-DK1)*24)
avec un format de cellule à "j"
ça me donne "24"
(tu as déjà les heures ::: 🙂)
à +

 

[eddy51]

Re : Remplissage tableau selon beaucoup de condition

On s'est mal compris je croit lol ,

J'ai des arrets dans ma feuille Arret ,
y'en a tout les jours .
Dans mon tableau 3 cases correspondent a 1jours entre les 2 dates en haut , il faut les utilisés car les journées ne sont pas de minuit a minuit mais de 5h30 a 5h30 mais les deux dates en haut sont répertorié comme sa .

dans les 3 cases il y'en a 1 pour chaque equipe A B C
dons SI equipe A SI tel type d'arret et si entre tel date et tel date . dans ce cas les arrets sont dans cette case .
MAIS
a chaque arret il y'a une heure de debut une heure de fin , il faut qu'il calcul la difference de tout les arrets qui corresponde a la cellule et qu'il additione les temps

 

[eddy51]

Re : Remplissage tableau selon beaucoup de condition

J'ai ecrit un truc en DK6.

 

[francedemo]

Re : Remplissage tableau selon beaucoup de condition

sans une boucle en VBA, je ne vois pas trop comment tu vas pouvoir faire
du style:
de 1 à la fin de la colonne "équipe"
si équipe A alors si c'est un arrêt => compter le temps passé (compteur A)
si équipe B alors si c'est un arrêt => compter le temps passé (compteur B)
si équipe C alors si c'est un arrêt => compter le temps passé (compteur c)
next

en formule, c'est pas trop mon fort, je ne vois pas...
à +

 

[eddy51]

Re : Remplissage tableau selon beaucoup de condition

Normalement y'a pas besoin de Macro , c'est juste des conditions .
SI EQUIPE A SI ARRET A RENSEIGNE SI ENTRE DATE 1 ET DATE 2 alors on compte tout le temps entre heure debut et heure fin des arret qui corresponde

 

[francedemo]

Re : Remplissage tableau selon beaucoup de condition

bon, en formule, comme ditr plus haut, c'est pas mon truc,

en macro, je te propose ça (ça fonctionne chez moi)
avec en DK6 / DL6 / DM6 un format hh:min

Public Sub SommeTemps()

Dim i As Integer
Dim TotalA As Double
Dim TotalB As Double
Dim TotalC As Double
Dim FeuilRecap As Worksheet

TotalA = 0
TotalB = 0
TotalC = 0

Set FeuilRecap = Sheets("Feuil1")
With Sheets("Arret")
For i = 4 To .[K65536].End(xlUp).Row
    If Cells(i, "C") > Sheets("Feuil1").Range("DK1") And Cells(i, "C") > Sheets("Feuil1").Range("DK2") Then
    If .Cells(i, "K") = "Equipe A" Then
        If .Cells(i, "I") = "Arrêt a renseigner" Then TotalA = TotalA + .Cells(i, "D").Value - .Cells(i, "C").Value
    End If
    If .Cells(i, "K") = "Equipe B" Then
        If .Cells(i, "I") = "Arrêt a renseigner" Then TotalB = TotalB + .Cells(i, "D").Value - .Cells(i, "C").Value
    End If
    If .Cells(i, "K") = "Equipe C" Then
        If .Cells(i, "I") = "Arrêt a renseigner" Then TotalC = TotalC + .Cells(i, "D").Value - .Cells(i, "C").Value
    End If
    End If
Next i

FeuilRecap.Activate

Range("DK6") = TotalA
Range("DL6") = TotalB
Range("DM6") = TotalC
End With

End Sub

voilà, si ça peux t'aider