XL 2013 Planning vision temps passé par action sur 1 semaine

fanfan38

XLDnaute Barbatruc

• 30 Octobre 2018

• #2

Bonjour
J'espère que le fichier joint correspond a tes attentes...
A+ François

 

Pièces jointes

• Planning tache.xlsm

  90.9 KB · Affichages: 33

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 30 Octobre 2018

• #3

Bonjour,

Merci beaucoup pour ce travail, c'est parfait, je vais essayer de travailler dessus.

Ne connaissant pas du tout le VBA, saurais-tu rapidement m'expliquer comment tu y es arrivé ?
Si je souhaite rajouter une liste pour sélectionner le jour où le planning est impacté, je peux le faire facilement ?
Et de même si je souhaite compter le temps passé sur chaque action automatiquement, est-ce possible ?

Merci d'avance.

Cordialement

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Octobre 2018

• #4

Bonjour à vous tous,
Comme j'avais fait ceci je le mets tout de même avec du retard.
Avec formulaire
Bruno

 

Pièces jointes

• Planning tache (1).xlsm

  70.6 KB · Affichages: 35

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 30 Octobre 2018

• #5

Bonjour youky,

Merci pour ta contribution, ton fichier répond à mes questions, c'est parfait !
Je vais pouvoir récupérer les données à présent.

Merci encore.

 

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 31 Octobre 2018

• #6

Bonjour youky,

Je suis super satisfait du fichier.
J'ai modifié le contenu et je l'ai un peu adapté à mon besoin, tout fonctionne parfaitement.
J'aurais cependant une petite fonctionnalité que j'aimerais implémenter; lorsque les personnes déclarent une tache de production (j'ai modifié le nom des taches), ils peuvent aussi déclarer une quantité de pièces produites bonnes et une quantité de pièces théorique. Ces, quantités doivent s'afficher dans deux des cases de la bande de couleur correspondant à la ligne production. J'ai essayé de rajouter des Texbox mais sans succès ...
Aurais-tu du temps pour m'aider ?

D'avance merci !

 

Pièces jointes

• Planning tache-3.xlsm

  89.4 KB · Affichages: 22

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 31 Octobre 2018

• #7

Hello , je suis ravi de ta satisfaction,
Voici modifié le fichier comme j'ai compris.
Les col sont étroites et on voie pas bien les chiffres
Tu devais à mon avis faire un tableau idem plus bas(sans couleur) pour mieux voir et en macro il suffit dans les 2 dernières lignes de remplacer lig par lig+20 le 20 est à adapter.
Bruno

 

Pièces jointes

• Planning tache-3 (1).xlsm

  86.9 KB · Affichages: 24

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 5 Novembre 2018

• #8

Salut youky,
Merci de ton retour, je vais essayer de laisser le fichier comme tel et récupérer les valeurs rentrées dans la ligne production pour faire la somme des quantités OK sur la somme des quantités THEO.
Penses-tu que je peux ajouter dans le code quelque chose qui colorie en rouge les valeurs THEO et en noir les valeurs OK pour ensuite faire "somme des noir / somme des rouges" ?
Cordialement

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 5 Novembre 2018

• #9

Bonjour Claggan,
J'ai ajouté un bouton "Actualise le Calcul"
avec la macro calcul, en fin de semaine tu actualises et hop tu as la somme des OK et somme des THEO dans chaque groupes.
J'ai laissé dans le fichier mon essai logistique 10 et 12
Bruno

 

Pièces jointes

• Planning tache-4.xlsm

  89.3 KB · Affichages: 14

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 5 Novembre 2018

• #10

Merci de ton retour youky,

Lorsque j'ai une entrée sur la ligne "logistique" ça fonctionne parfaitement, seulement, je crois que cela ne fonctionne pas sur les autres lignes.
Quand je remplis la ligne "production"' par exemple, j'ai une erreur d'exécution '13' incompatibilité de type et il me propose un débogage.
Tu as aussi le problème ?

Cordialement

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 5 Novembre 2018

• #11

Exact PB aussi,
sok = 0: sthe = 0 au lieu de sok = "": sthe = ""
Je remets la macro comme elle se doit
Bruno

VB:

Sub calcul()
Dim ok As Boolean
ok = True
For lig = 3 To 17
For col = 4 To Cells(lig, 1024).End(1).Column
If Cells(lig, col) <> "" Then
If Cells(lig, col) <> " " Then
    If ok Then
    sok = sok + Cells(lig, col)
    Else
    sthe = sthe + Cells(lig, col)
    End If
ok = Not ok
End If
End If
Next
Cells(lig + 27, 1) = IIf(sok = 0, "", sok)
Cells(lig + 27, 2) = IIf(sthe = 0, "", sthe)
sok = 0: sthe = 0
Next
End Sub

 

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 5 Novembre 2018

• #12

Merci beaucoup, cela fonctionne parfaitement.

Cordialement

 

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 8 Novembre 2018

• #13

Bonjour youky,

J'ai un peu arrangé le fichier pour qu'il calcule à partir des heures de début et des heures de fin; après avoir testé avec mes équipes, je me suis rendu compte que cela fonctionnait lorsque j'avais seulement une entrée par ligne par contre si j'ai 1h de 8 à 9 le lundi et 1h de 8 à 9 le mardi sur la première ligne, par exemple, il me remplit les cellules de 8h le lundi à 8h05 le mardi, et je n'arrive pas à changer cela ...
Si tu as du temps et une piste, je suis preneur !

Cordialement

 

Pièces jointes

• TRS-heure fin.xlsm

  86.7 KB · Affichages: 25

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 8 Novembre 2018

• #14

Hé oui une boulette qui est passée inaperçu.
Une seule ligne à modifier dans la macro du bouton Valider de l'user

fin = (ComboBox1.ListIndex * 204) + ComboBox4.ListIndex + 4

il y a qu'une seule ligne qui commence par fin=…...

Bonne suite Bruno

 

Vote positif 0 Vote négatif

C

Claggan

XLDnaute Nouveau

• 8 Novembre 2018

• #15

J'ai en effet essayé de bricoler cette ligne là sans succès, ça paraît logique en plus !

Merci beaucoup,
J'espère arriver à me débrouiller maintenant.

En tout cas c'est du beau boulot Bruno !

Cordialement

 

Vote positif 0 Vote négatif