Gestionnaire d'outils

chris

XLDnaute Barbatruc

• 25 Février 2020

• #2

Bonjour

Plutôt qu'enlever des soutils qui sont en maintenance, plutôt prévoir une colonne "En maintenance" à mettre à jour.

Quelle est ta version Excel ?

Quelles données doivent être synthétisées ?

 

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 25 Février 2020

• #3

Oui j'ai déjà créer un registre affutage (maintenance) a mettre a jour tout fonctionne bien je voulais juste voir pour automatiser les fonction de prélèvement et d'ajour d'outils. Les données qui sont variable donc a synthétiser sont la ref le diamètre la longueur et la fonction.

Je ne sait pas si j'ai répondu a votre question ?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Février 2020

• #4

Bonjour

Non.

Tu n'as pas répondu concernant ta version Excel, d'une part
D'autre part, tu as 7 onglets et pour ma part je n'ai toujours pas compris ce que tu veux concrètement.

A noter qu'on ne doit pas laisser les noms automatiques des tableaux structurés, comme Tableau1, mais modifier ce nom comme on le fait pour les onglets.

 

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 25 Février 2020

• #5

Actuellement j'ai une version 2013 mais il est possible d'investir vers une version 2019 que je possède chez moi. Les 7 onglets sont les mêmes outils que le premier répertorier par famille sauf l'onglet accessoire qui a été rajouté et dont il ne faut pas tenir compte.

Voici quelques mises a jours

 

Pièces jointes

• outils 2020.xlsm

  33.5 KB · Affichages: 9

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Février 2020

• #6

RE

Peux-tu expliquer ce que tu entends par "créer une interface de gestion de stock d'outils coupant"

Tu veux un formulaire de saisie, mise à jour ?
Tu veux juste automatiser la synthèse des autres tableaux dans le tableau Outils ?

C'est ton objectif qu'il faut détailler.

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 25 Février 2020

• #7

Bonjour
Ci joint ma solution.. mais souhaites tu gérér les entrées et sorties de matériels autres que l’affûtage?
exemple mèche 10 chantier 15 le 25/2/20...
Double clic sur une ligne de la feuille outils 2020 pour voir le formulaire
A+ François

 

Pièces jointes

• outils 02 2020.xlsm

  48 KB · Affichages: 15

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 26 Février 2020

• #8

bonjour merci fanfan38 pour votre solution ,seulement je n'y arrive pas a l'utiliser il y a bien l'interface qui apparait mais cela me revois a config macro dès que je click sur validé. Si la date du jour pouvais se mettre automatiquement ce serais un plus.
Après il est possible que des outils nouveau soit ajouté et d'autres sortie définitivement par casse ou autre raison.

Pour répondre au question, j'ai trouvé ceci sur le site et il est vraiment pas mal mais pas adaptable a mes besoin.
Merci beaucoup a tous pour le temps que vous me dédié

Je suis également désolé si je ne suis pas clair car très novice en la matière, je sais que je me suis lancé dans un sujet complexe 🙂 .

amicalement .

 

Pièces jointes

• Copie de stocks EPI.xlsm

  151.5 KB · Affichages: 6

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 26 Février 2020

• #9

Bonjour
Ma solution...
A+ François

 

Pièces jointes

• outils 02 2020.xlsm

  50.2 KB · Affichages: 13

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 26 Février 2020

• #10

Merci beaucoup François votre solution est vraiment extra.
C'est vraiment très gentil de votre part de m'avoir aidé.

amicalement 🙂 🙂

 

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 27 Février 2020

• #11

fanfan38 à dit:

Bonjour
Ma solution...
A+ François

Cliquez pour agrandir...

Bonjour François pardon de vous déranger mais serait il possible qu'il n'y ai de notifié dans la colonne motif seulement les affutage car il y a d'affiché la dernière manip.

Si sur la même ref j'ai plusieurs départ et un retour entre temps je ne sais plus qu'il y en a a l'affutage.
je ne sais pas si je suis très clair pardon.

amicalement

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 27 Février 2020

• #12

Bonjour
Ci joint la macro modifiée

VB:

Private Sub CommandButton1_Click() 'Valider
  Dim lig As Long
  lig = CLng(Me.VarLigne.Caption)
  If Len(Me.TextBox7.Value) > 0 And Len(Me.TextBox8.Value) > 0 And Len(Me.ComboBox2.Value) > 0 Then
   Select Case Me.ComboBox2.Value
     Case Is = "Affûtage"
      If Len(Me.TextBox8.Value) > 0 Then Range("H" & lig).Value = Range("H" & lig).Value - Me.TextBox8.Value
        Range("I" & lig).Value = CDate(Me.TextBox7.Value) 'date mouvement
        Range("J" & lig).Value = CLng(Me.TextBox8.Value) 'nb mouv
        Range("K" & lig).Value = Me.ComboBox2.Value 'motif mouv
    Case Is = "Retour d'affûtage"
      If Len(Me.TextBox8.Value) > 0 Then Range("H" & lig).Value = Range("H" & lig).Value + Me.TextBox8.Value
     Case Is = "Suppression"
      If Len(Me.TextBox8.Value) > 0 Then Range("H" & lig).Value = Range("H" & lig).Value - Me.TextBox8.Value
     Case Is = "Nouveau"
      If Len(Me.TextBox8.Value) > 0 Then Range("H" & lig).Value = Range("H" & lig).Value + Me.TextBox8.Value
   End Select
  Else
    Range("I" & lig).ClearContents
    Range("j" & lig).ClearContents
    Range("K" & lig).ClearContents
  End If
  Range("B" & lig).Value = Me.TextBox1.Value
  Range("C" & lig).Value = Me.TextBox2.Value
  Range("D" & lig).Value = Me.TextBox3.Value
  Range("E" & lig).Value = Me.TextBox4.Value
  Range("F" & lig).Value = Me.TextBox5.Value
  Range("G" & lig).Value = Me.TextBox6.Value
  Range("A" & lig).Value = Me.ComboBox1.Value
  Unload Me
  MsgBox ("Fiche mise à jour")
End Sub

A+ François

 

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 27 Février 2020

• #13

Merci de votre reponse , j'ai un porblème c'est que même avec cette modif je ne sait pas la solde d'outils en transit. A la la place de clng il faudrait une formule qui met a jour le nombre d'outils en transit.

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 27 Février 2020

• #14

clng c'est pour convertir du texte en nombre...
veux tu une colonne avec les outils en cours d’affûtage?
Dans la version ci joint il n'y a que les affûtages en cours qui sont affichés
A+ François

 

Pièces jointes

• outils 02 2020.xlsm

  55 KB · Affichages: 12

Dernière édition: 27 Février 2020

Vote positif 0 Vote négatif

B

Bastienc

XLDnaute Nouveau

• 27 Février 2020

• #15

Oui cette solution est pas mal car c'est le seul cas ou je dois être au courant du nombre qu'il y a en transit.
Merci pour la précision sur clng car je pensait que c'était pour mettre a jour le nombre.

 

Vote positif 0 Vote négatif