Remplissage tableau selon beaucoup de condition

E

eddy51

XLDnaute Occasionnel

• 25 Juin 2012

• #2

Re : Remplissage tableau selon beaucoup de condition

Pas d'idées?

 

Vote positif 0 Vote négatif

francedemo

XLDnaute Occasionnel

• 25 Juin 2012

• #3

Re : Remplissage tableau selon beaucoup de condition

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

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 25 Juin 2012

• #4

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

 

Dernière édition: 25 Juin 2012

Vote positif 0 Vote négatif

francedemo

XLDnaute Occasionnel

• 25 Juin 2012

• #5

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 ::: 🙂)
à +

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 25 Juin 2012

• #6

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

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 25 Juin 2012

• #7

Re : Remplissage tableau selon beaucoup de condition

J'ai ecrit un truc en DK6.

 

Pièces jointes

• FORMULAIRE DE SAISIE DES ARRETS1 (2).xlsx

  252.4 KB · Affichages: 42

Vote positif 0 Vote négatif

francedemo

XLDnaute Occasionnel

• 25 Juin 2012

• #8

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...
à +

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 25 Juin 2012

• #9

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

 

Vote positif 0 Vote négatif

francedemo

XLDnaute Occasionnel

• 25 Juin 2012

• #10

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

Code:

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

 

Vote positif 0 Vote négatif