XL 2019 Besoin d'aide sur diverses macros

[darknigthmare]

Bonjours à tous
voilà j'ai besoin de faire des tableaux avec quelque fonction macro, mais je n'arrive pas à avoir ce que je voudrais faire
je vais essayer vous décrire ce que j'aimerai avoir
-sur le tableau MaintenanceAfaire j'aimerai avoir B2:C2 & E2:H2 qui une fois que le bouton valider est appuyée cela efface les cellules et transpose les valeurs dans le tableau Historiqueoutillage sur la ligne B4:H4 et qu'à chaque fois qu'une nouvelle entrée est ajoutée, que la dernière valeur soit sur la B4:H5 et que la précédente soit sur la ligne du dessous, Etc. (tout en agrandissant le tableaux a chaque fois que ya plus de place)(chose qui est quasi fonctionnel, mais j'ai encore quelque problème sur la transposition des valeurs et de position
-si possible avec la validation des données que j'ai mises en place sur les cellules B2:H2 d'avoir la possibilité d'ajouter si une valeur qui n'existe pas est entrée de l'ajouter a la suite de ceux prises dans la plage mise en référence dans la feuille "reference'

feuille Historiqueoutillage :
-À chaque fois qu'une cellule en O dépasse les 7 utilisations la colonne passe en orange et passe sur le tableau principal "MaintenanceAfaire" (le bleu) dès que cela passe à 9 cela passe en rouge
-la quantité fabriquer + le nombre d'utilisations doivent s'incrémenter à chaque fois qu'une nouvelle ligne avec le même pt apparait

feuille Maintenance :
-avoir une copie du tableau bleu dynamique et un bouton à cote de chaque référence (bouton qui permet de remettre a zéro le nombre d'utilisations depuis la dernière maintenance ainsi que de remettre à zéro le nombre de poches depuis la dernière maintenance (O du tableau historique d'outillage),et de metre au jour d appuy du bouton la dernière maintenance (colonne (R) du tableau historique d outillage)

macro mail
-je n'arrive pas à faire apparaitre le tableau bleu dans le corps du message
(j'aimerai savoir s'il est possible une fois que le tableau bleu copier sur la feuille maintenance avec les boutons de remise à zéro peut être activé directement dans le mail envoyer (ex la personne reçoit le mail et clic sur le bouton remise a zéro de la ligne en question et cela applique la modification et tous ce que cela doit activer par la suite (sauvegarde comprise))

merci Beaucoup pour toute aide que vous pourriez m'apporter

 

[fanfan38]

Bonjour
Feuille et cellules protégées
A+ François

 

[fanfan38]

Bonjour

Tu es plein de bonne idée mais trop éparpillée...
On ne doit jamais avoir 2 macros ayant le même nom...
Je coince avec tes quantités de polyester et d'aiguilles...
Peux tu m'expliquer?
A+ François

 

[darknigthmare]

Bonjour

Tu es plein de bonne idée mais trop éparpillée...
On ne doit jamais avoir 2 macros ayant le même nom...
Je coince avec tes quantités de polyester et d'aiguilles...
Peux tu m'expliquer?
A+ François

C'est un tableau à part du reste qui permet en temps réel de savoir le stock "d'aiguille" que l'on a ou de "polyester" que l'on a, si une aiguille est jetée on appuie sur le bouton utiliser ce qui décrémente de 1 et si le stock atteint moins de 5 cela passe la cellule en rouge pour prévenir qu'il faut en refaire, si le stock est mit a jour en appuyant sur le bouton réapprovisionnement cela rajoute 5 aiguille au nombre du stock actuel (voir plus tard si on ne peut pas ajouter un texte box pour mettre le chiffre que l'on veut aux lieux de 5)

 

[darknigthmare]

Je n'ai pas traité les aiguilles et le polyester.
B2 à H2 supprimées remplacées par userform
Ajout de données si pas dans la liste
Feuille référence cellule devient Orange si +7 et rouge si 9 et plus + transfert vers maintenance
Si la date de maintenance, sur la feuille "reference" change les données se remettent à zéro
j'ai mis un exit sub dans la macro before close à supprimer
les mails je sais pas faire...

A+ François

Tout d'abord merci pour l'aide immense que vous venez de me fournir cela m'a beaucoup avancé
quelque petite précision sur ce nouveau tableau :
-il faudrait trouver un moyen d'empêcher de mettre des dates incorrectes (cela fait buguer la macro apparemment)
-dès qu'une valeur =>7 transposer la ligne C:H sur un nouveau tableau (feuille maintenance) ;
je ne sais pas si c'est possible, mais sur ce nouveau tableau de pouvoir sélectionner un des PT qui est apparu et de le valider pour dire que la maintenance a été faite (grâce à un bouton) ce qui changerez la date 'dernière maintenance' et qui ferait disparaitre la ligne (sur ce tableau la) (c est pour avoir un visuel simple et clair des pt à faire en maintenance, d'envoyer ce tableau à la maintenance pour qu'ils voient rapidement les maintenances à faire et de pouvoir une fois la maintenance faite, remettre a zéro les compteurs cumul+utilisation de ce pt+le faire disparaitre du tableau maintenance

 

[darknigthmare]

Merci fanfan38 pour ce que tu a fait, c'est vraiment génial
merci chTI160 pour ton aide aussi
j'aurai juste quelque petite suggestion, sur la text box si l'on veut rajouter des modifications sur les aiguilles ou polyesters uniquement cela rajoute une ligne vide sur le tableau des pt, il faudrait peut-être le mettre à part ?
Pourrait-on mettre sur le tableau maintenance en plus des lignes qui apparaisses dessus sur la colonne de droite un petit texte 'validé' (cela forcerez les utilisateurs à cliquer dessus (même si cela ne change rien vu que toute la ligne sert de validation, mais pour aider les utilisateurs non expérimentés du matériel informatique))
(par la même occasion, pourrait-on mettre la validation (sur la feuille maintenances) avec un mot de passe à rentrer pour qu'uniquement la maintenance puisse le faire)
ps: voici le fichier mise a jour (pour avoir le dernier en date si vous voulez le modifiez)
merci encore pour l'avancement énorme

 

[darknigthmare]

On va y arriver... lol
A+ François

Merci grandement pour ces modifs
mais les valeurs n'ont pas l'air de se transporter sur le tableau "maintenances" une fois les 7 (ni plus d'ailleurs) dépasser
(comment déplacer les boutons utiliser1 pour les placer sur la droite des chiffres ?)
je ne sais pas si c'est moi qui est mal fait les valeurs ou s'il y a eu un problème sur une des formules

merci encore pour ton aide

 

[darknigthmare]

Merci encore pour cette aide précieuse, je vais faire quelque test sur la semaine et je reviendrais vers vous si jamais j'ai de nouveaux paramètres qui me seront remonté

 

[darknigthmare]

Alors je reviens vers vous après quelque test
j'ai rajouté des valeurs dans mon tableau pour augmenter les références, j'ai changé le mot de passe de la maintenance,
-j'ai essayé d'éviter que le fichier ne se ferme si le mot de passe est incorrecte (il faudrait juste que cela ferme juste la text box ou bien mettre une text box "mot de passe erronée "),
-le tableau maintenance semble ne plus afficher les valeurs des références qui dépasse le nombre limite d'utilisation de l'outillage
-la colonne dernière utilisation de l'onglet référence ne ce met pas à jour (par rapport à la date de démontage de la page historique d'outillage)
-empêcher les lignes B1:I1 du tableau maintenance devrais ne pas être maintenance able ^^ (sinon on pourrait supprimer la ligne par erreur)
merci de toute aide que vous pourriez m'apporter de nouveaux

 

[patricktoulon]

Bonjour @fanfan38

 

[fanfan38]

Bonjour et merci jean marie (on en apprend tout les jours (même à 68 ans lol)
A+ François

 

[darknigthmare]

Bonjour merci a tous pour votre intérêt a mes petits problèmes
-Je me suis rendu compte aussi que pour plus de précisions la détection de date devrais être plus détaillé (heure :minute) car si dans la journée plusieurs changements sont apporté je ne suis pas sûr qu'il le détecte
-actuellement si j'ai bien compris la transposition des données sur le tableau maintenance prennent en compte la colonne machines, mais cela ne correspond pas forcément à ce qui est écrit sur la ligne (exemple si le tableau la majorité des outillages pt440044 sont faite sur la machine hf5 cela devrais apparaitre hf5 et non pas hf1 qui est sur la même ligne que le pt440044

deux nouvelles petites suggestions qui me sont apparu
-sur le tableau référence il y a des PT mit à part dans une colonne non-maintenance, ces pt la devrais pouvoir être sélectionnable dans l'user form production, mais qu'aucune formule de maintenance ne soit applicables (pour éviter que des personnes puisse les rajouter, car ils ne sont pas dans la liste)
-pour la partie mail, je n'arrive toujours pas à faire apparaitre le tableau maintenance dans le corps du message (si vous avez une petite idée)

merci bien pour l'intérêt et le temps que vous m'accorder

 

[darknigthmare]

c'est l'outillage qui part en maintenance ,la machine sert a savoir sur laquelle l'outillage a été utiliser
nous somme en quart ,durant une journée il se peut qu' il y est plusieurs changements d'outillage

PS: il me semble que si une date est changée manuellement sur la ligne "dernière maintenance" cela ne transpose plus les valeur sur le tableaux maintenance ,depuis que j ai valider la première ligne de maintenance il ne veut plus me remettre une ligne sur ce dit tableaux

 

[darknigthmare]

Bonsoir ,
une autre question :
quel est le but de cette procédure :

Private Sub UserForm_Initialize()
  Dim Plage As Range, tablo, dl As Long, i As Long
  With Sheets("reference")
    Set Plage = .Range("B2:B" & .Range("B65536").End(xlUp).Row)
    Me.ComboBox1.List = Plage.Value '-----> Ici On remplie le Combobox1 avec la Colonne "B"
    dl = .Range("M65536").End(xlUp).Row
    For i = 5 To dl
      Me.ComboBox1.AddItem .Range("M" & i).Value '----> Ici On ajoute au Combobox1 la Colonne "M"
    Next
    Set Plage = .Range("J2:J" & .Range("J65536").End(xlUp).Row)
    Me.ComboBox3.List = Plage.Value
  End With
  tablo = [T_outillage[Code Outillage]]
  Me.ComboBox2.List = tablo
End Sub

Pourquoi alimenter ce Combobox1 avec les deux Colonnes " Code et désignation " de l'outillage ?
Edit je viens de comprendre Lol

ne pas tenir compte du message ci dessus ! Lol
pour éviter les Ligne vides faire un test avant le AddItem

Private Sub UserForm_Initialize()
  Dim Plage As Range, tablo, dl As Long, i As Long
  With Sheets("reference")
  With .Range("T_outillage[machines]")
         For i = 1 To .Rows.Count
            If Not Trim(.Cells(i)) = Empty Then
                Me.ComboBox1.AddItem Trim(.Cells(i))
            End If
         Next i
 End With
    dl = .Range("M65536").End(xlUp).Row
    For i = 5 To dl
     With .Range("M" & i)
     If Not IsEmpty(.Value) Then Me.ComboBox1.AddItem .Value
     End With
    Next
    Set Plage = .Range("J2:J" & .Range("J65536").End(xlUp).Row)
    Me.ComboBox3.List = Plage.Value
  End With
  tablo = [T_outillage[Code Outillage]]
  Me.ComboBox2.List = tablo
End Sub

autre question:
est ce que tous les outillages peuvent servir sur touse les Machines ?
Bonne Soirée
Jean marie

oui et non
certain outillage sont unique a une machine propre, d'autre quant a eux peuvent être interchangeable sur une plage de machine

PS: il me semble que si une date est changée manuellement sur la ligne "dernière maintenance" cela ne transpose plus les valeur sur le tableaux maintenance ,depuis que j ai valider la première ligne de maintenance il ne veut plus me remettre une ligne sur ce dit tableaux

j'ai rajouter ceci depuis mon dernier test

 

[darknigthmare]

Re
Pour le déplacement des Boutons à droite des chiffres!

jean marie

merci bien

PS :
-est t'il possible de bloquer la modification des cellules (sans bloquer les actions faite par les macro)
-est t'il possible d activer par défauts sur mon book l'activation des macros (car travaillants avec des novice voire pire en informatique pour éviter qu'il ne fassent n'importe quoi