Discussion :

[Blend]

Bonjour à tous,

J'ai réalisé un fichier Excel pour des pilotes en usine de production mais après une semaine de test, je me suis rendu compte qu'il y avait encore certaines choses à revoir... Je me tourne donc vers vous et votre science infuse !

Après rajout d'une colonne "Fréquence", mon souhait serais:
Si la durée est mise ainsi que la Machine/Cause mais pas la fréquence, alors sur la feuille 'CalculsMacros' cette durée se rajoute à celle déjà présente (Durée totale) et que la fréquence augmente de +1 à la ligne correspondant à la Machine/Cause.
Si la fréquence est mise ainsi que la Machine/Cause (La durée dans ce cas n'est pas importante) alors sur la feuille 'CalculsMacros' la fréquence se rajoute à celle déjà présente et la durée totale augmente de 5min toujours à la ligne de la Machine/Cause.

Voici une partie de la macro de la feuille 'Saisie-pilote' qui me reportait la durée et rajoutait +1 à la fréquence:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'la macro se déclenche à chaque fois qu'une valeur est entrée dans une cellule de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
 
'définir les variables
    Dim Ligne As Variant
    Dim Plage As Range
    Dim Cel As Range
    Dim Chaine As String
 
    'saisie en colonnes A à F non vides
    If Target.Column < 7 And Application.CountA(Cells(Target.Row, 3).Resize(, 6)) = 10 Then
 
        'concatène le nom de la machine avec le nom du problème
        Chaine = Cells(Target.Row, 5) & Cells(Target.Row, 6)
 
        With Sheets("CalculsMacros")
 
            'on cherche sur la feuille "CalculsMacros" le numéro de ligne correspondant à l'évènement et au nom de la machine
            Set Plage = .Range(.Cells(4, 2), .Cells(.Rows.Count, 2).End(xlUp))
 
            For Each Cel In Plage
 
                If Cel.Value & Cel.Offset(, 1).Value = Chaine Then
 
                    Ligne = Cel.Row
                    Exit For
 
                End If
 
            Next Cel
 
            'on additionne le nombre de la colonne C de la feuille "saisie-pilote" dans la colonne E
            ' de la feuille "CalculsMacros"
            .Cells(Ligne, 5) = .Cells(Ligne, 5) + Cells(Target.Row, 3)
            .Cells(Ligne, 8) = .Cells(Ligne, 8) + 1
 
        End With
 
    End If
 
End Sub

A noter que sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    'saisie en colonnes A à F non vides
    If Target.Column < 7 And Application.CountA(Cells(Target.Row, 3).Resize(, 6)) = 10 Then

j'ai mis le comptage = 10 pour ne pas que le reste de la macro s'effectue pour éviter les erreurs ou les abérations.

Merci de votre aide,
Cordialement

Blend

[nibledispo]

bonsoir,

je suis partis sur ma précédente proposition.

logique déduite de tes conditions
si fréquence <> "" alors
CMfrequence = CMfrequence + SPfrequence
CMduree = CMduree + 5
sinon
CMfrequence = CMfrequence + 1
CMduree = CMduree + SPduree

je ne comprends pas l'intéret du 10 puisque la macro fonctionne uniquement si target colonne 6 est reconnu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column <> 6 Then Exit Sub  ' le target ne concerne que la colonne 6
    Dim Ligne As Integer
    Dim trouvé As Boolean
    trouvé = False
    'si toutes les colonnes de 3 à 6 sont renseignées
 
        With Sheets("CalculsMacros")
          'on cherche sur la feuille "CalculsMacros" la première ligne de la machine correspondant à l'évènement
           Ligne = Application.Match(Cells(Target.Row, 5), .[A:A], 0) ' départ de la recherche
 
           Do While .Cells(Ligne, 1) = Target.Offset(0, -1) ' "Autre" est traité comme un cas courant dans la boucle
 
              If .Cells(Ligne, 3) = Target Then
                  If Target.Offset(0, -2) <> "" Then
                     .Cells(Ligne, 5) = .Cells(Ligne, 5) + 0.5
                     .Cells(Ligne, 8) = .Cells(Ligne, 8) + Cells(Target.Row, 4)
                  Else
                     .Cells(Ligne, 5) = .Cells(Ligne, 5) + Cells(Target.Row, 3)
                     .Cells(Ligne, 8) = .Cells(Ligne, 8) + 1
                  End If
                  trouvé = True
                  Exit Do
              End If
              Ligne = Ligne + 1
          Loop
 
          If trouvé = False Then
             MsgBox " cas incompatible avec le choix dans une liste "
          End If
        End With
 
End Sub

adapte le tout à ton goût.

Cordialement,

[Blend]

Bonsoir Nibledispo,

Merci beaucoup, je n'ai pu répondre avant par soucis de temps...

Je viens de réaliser plusieurs tests, cependant, pourquoi le +0.5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(Ligne, 5) = .Cells(Ligne, 5) + 0.5

rajoute 12:00 dans la durée ? J'ai essayé de modifié en 00:05 (5min) mais cela ne fonctionne pas .
Ta macro me plait bien, elle est claire. J'essaie donc de la modifier afin de résoudre mon problème mais je ne sors que des erreurs --'.
De plus, par exemple, on choisit la Cause1 avec la fréquence (pas de durée) pas de problème. Mais si on re-choisit cette même cause1 avec la durée cette fois-ci, la fréquence se réinitialise.
Il en est de même avec la durée .
Une solution ?

Bien cordialement,

Blend

[nibledispo]

Bonjour,

La gestion des heures est une horreur à laquelle je ne comprends rien.
Dans le code, j'ai modifié "0.5" par (timevalue("0:05").

Pour la seconde remarque, je ne vois pas que les fréquences se réinitialisent.

Enfin, pour parvenir au résultat, j'ai modifié :
- ta formule calcul du temps inutilement compliquée (*24) dans la feuille de saisie.
- le format du temps dans la feuille calcul.

essai le fichier joint.

[Philippe Tulliez]

Bonjour,

La gestion des heures est une horreur à laquelle je ne comprends rien.
Dans le code, j'ai modifié "0.5" par (timevalue("0:05").

A lire Utiliser les fonctions Date et Heure sous Excel 2007 et déjà le chapitre II. Généralités au sujet des dates et des heures dans Excel

[Blend]

Bonjour,

Bien vu le Timevalue, cela fonctionne!
De plus, avec ton fichier les fréquences s'additionnent bien alors que sur le miens, il prend seulement la dernière valeur... Je ne me suis pas trop posé de questions et j'ai directement pris la suite de ton fichier en rajoutant mes anciennes modif' .

Par contre, au niveau de la durée, est-il possible de multiplier les 5min (si la durée en 'saisie-pilote' n'est pas mise) par le nombre de fréquence ? En prenant en compte que si aucune fréquence n'est mise, le chiffre "1" est directement ajouté ?

Enfin, pour revenir au numéro 10:

je ne comprends pas l'intéret du 10 puisque la macro fonctionne uniquement si target colonne 6 est reconnu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'saisie en colonnes A à F non vides
    If Target.Column < 7 And Application.CountA(Cells(Target.Row, 3).Resize(, 6)) = 10 Then

La somme des colonnes non vides était à l'origine = 3 (Machine+Cause+Durée) dans le but d'éviter que la macro s'effectue si on ajoute seulement la machine/cause sans durée ni fréquence. Car cela entraine un #VALEUR! à la cellule "% du temps de prod" en 'Saisie-pilote'.
Faudrait-il donc la rajouter afin d'éviter cette possible erreur si les pilotes cliquent avant sur "choisir machine/cause" ?

Encore merci de votre aide,
Cordialement,

Blend

[nibledispo]

Bonjour,

Vois si cela peut convenir.

tu ne crois pas qu'il sera peut-être nécessaire à un moment de remettre les compteurs à 0 dans la feuille calcul ?

Cordialement,

[Blend]

Bonjour nibledispo, bonjour à tous,

Encore une fois merci beaucoup !

J'ai modifié tout ça. Sujet résolu! Je ne devrais plus vous embêter avec ce fichier maintenant...!

Pour te répondre, remettre à zéro n'est pas utile dans mon cas car c'est un document annuel (on remettra à zéro pour 2015 mais un archivage suffira).

Bonne journée,

Blend