Gestion de stock pharmacie

bode · 17 Octobre 2014

Bonjour à tous

J'ai repris à mon compte un fichier de Flappy dans un précédent forum (Cf fichier joint).
Il s'agit de la gestion de stock d'une Pharmacie avec la possibilité de sortir des médicament vers des postes de secours.

1)Pour régler le problème des multiples dates de péremption pour un article donné j'ai résolu le problème en considérant qu'un même article avec deux dates de péremption différentes représente deux articles...Donc dans le tableau pharmacie il peut y avoir plusieurs lignes avec le même article.

2)J'ai essayé de bidouiller dans VBA, mais je ne suis pas très fort!!!

Pour le formulaire, j'aimerais d'abord choisir dans ComboBox0 la catégorie et ensuite que dans ComboBox1 il m'affiche les désignations correspondantes à la catégorie choisie. J'ai créé le masque mais je n'arrive pas à le remplir.

Ensuite, quand je saisi mes données à sortir, il me serait utile qu'apparaissent les dates de péremption que je saisis pour bien faire la différence entre deux articles égaux mais avec des dates différentes.

MOT DE PASSE DE VERROUILLAGE DE FEUILLE : "SDIS" en majuscule.

Merci de m'aider

Antsiva · 30 Juillet 2020

Bonsoir
C'est super, mais pouvez vous supprimer le stock ambulance dont je n'ai pas besoin
Merci encore 1000 fois

Antsiva · 30 Juillet 2020

Ce stock ambulance n'était pas dans la première version

JM27 · 30 Juillet 2020

Bonsoir
A tester

Antsiva · 1 Août 2020

C'est parfait. j'ai testé. tout est OK. Merci beaucoup

vivien38 · 23 Avril 2021

Bonjour à tous,

je sollicite de l'aide !!
J'ai repris à mon compte un fichier de "la sauvegarde" avec pour auteur du fichier JM27 dans un précédent forum.
Il s'agit de la gestion de stock d'une Pharmacie avec la possibilité de sortir des médicament vers des destinataires.

1) J'aimerais que lorsque mon destinataire apparait, il y est deux nouvelles colonnes intitulées :"code service" et "nom demandeur" (voir feuil2 de mon fichier).
ah j'ai oublié aussi si c'est possible d'enlever le logo "la sauvegarde" lorsque que le destinataire apparait!

2) Dans pharmacie centrale, j'aimerais voir si toutes les alertes "péremption et stock mini" fonctionnent bien ! (certaine ne fonctionne pas)
ainsi que la dernière colonne du tableau avec la marge à 2.5 soit supprimé définitivement .

merci d’avance

ChTi160 · 23 Avril 2021

Re
Je regarde dès que possible!
Jean marie

JM27 · 24 Avril 2021

Bonsoir

1) J'aimerais que lorsque mon destinataire apparait, il y est deux nouvelles colonnes intitulées :"code service" et "nom demandeur" (voir feuil2 de mon fichier).

Ou trouves tu la liste des code service et des noms des demandeurs ?
Je pense qu'il faudrait créer une liste de service et non associés demandeurs , dans la feuille données

2) Dans pharmacie centrale, j'aimerais voir si toutes les alertes "péremption et stock mini" fonctionnent bien ! (certaine ne fonctionne pas)

Lesquelles ma boule de cristal est rayée ?

ce n'est pas une mise en forme conditionnelles standard

C'est une mise en forme faite par le programme; donc si tu fais des modifs directement dans la base de donnes sans passer par l'userform , cela ne fonctionnera pas

ah j'ai oublié aussi si c'est possible d'enlever le logo "la sauvegarde" lorsque que le destinataire apparait!

pas compris ? le logo : ou ?

ainsi que la dernière colonne du tableau avec la marge à 2.5 soit supprimé définitivement

Si tu supprimes la ligne , cela devrait le faire
.Cells(Derligne, 10) = Round(CDbl(Me.TxtPrixAchat) * Range("J2"), 2)

vivien38 · 27 Avril 2021

JM27 à dit:
Bonsoir

Ou trouves tu la liste des code service et des noms des demandeurs ?
Je pense qu'il faudrait créer une liste de service et non associés demandeurs , dans la feuille données

Lesquelles ma boule de cristal est rayée ?

ce n'est pas une mise en forme conditionnelles standard

C'est une mise en forme faite par le programme; donc si tu fais des modifs directement dans la base de donnes sans passer par l'userform , cela ne fonctionnera pas

pas compris ? le logo : ou ?

Si tu supprimes la ligne , cela devrait le faire
.Cells(Derligne, 10) = Round(CDbl(Me.TxtPrixAchat) * Range("J2"), 2)"

"Ou trouves tu la liste des code service et des noms des demandeurs ?
Je pense qu'il faudrait créer une liste de service et non associés demandeurs , dans la feuille données"

-le problème c'est que ma liste de code service bouge tout le temps donc je vais les mettre en destinataire du coup solution trouvé! par contre je suis obligé de mettre le nom du demandeur comment je peux faire? sachant que les noms sont différent au vue du turnover des agents! dans l'userform.

"Lesquelles ma boule de cristal est rayée ?
ce n'est pas une mise en forme conditionnelles standard
C'est une mise en forme faite par le programme; donc si tu fais des modifs directement dans la base de donnes sans passer par l'userform , cela ne fonctionnera pas"

-OK merci ils fonctionnent effectivement je ne passai pas par l'userform!

"pas compris ? le logo : ou ?"

-lorsque tu crées un destinataire ,le logo "la sauveguarde" apparait en haut a droite sur la nouvelle feuille crée. c'est le logo que j'aimerais enlever!

"Si tu supprimes la ligne , cela devrait le faire
.Cells(Derligne, 10) = Round(CDbl(Me.TxtPrixAchat) * Range("J2"), 2)"

-dsl je ne suis pas expert ! ou je peux la trouver et la supprimer?

JM27 · 27 Avril 2021

Bonjour à tester

-OK merci ils fonctionnent effectivement je ne passai pas par l'userform!

Non au contraire , il faut absolument passer par l'userform

vivien38 · 27 Avril 2021

JM27 à dit:
Bonjour à tester

Non au contraire , il faut absolument passer par l'userform

bonjour,

Merci pour votre réactivité !
Super pour la partie destinataires c'est exactement se que je voulais merci
Par contre je ne peux plus créer une référence , il me met : Erreur d'exécution "1004" la méthode sort de la classe Range a échoué. peux-tu m'aider merci d'avance

JM27 · 27 Avril 2021

bonsoir

ChTi160 · 28 Avril 2021

Bonjour vivien38
Bonjour JM
juste pour vous saluer je me permet cette remarque
on ne peut pas entrer de Point ou de Virgule dans ce TextBox qui doit contenir ou être modifié en Prix!

VB:

Private Sub TxtPrixAchatModif_KeyPress(ByVal Touche As MSForms.ReturnInteger)
     If InStr("0123456789", Chr(Touche)) = 0 Then Touche = 0
End Sub

voir si d'autres non pas le même Problème !
a voir donc (si je n'ai rien loupé Lol)
Bonne journée
jean marie

JM27 · 28 Avril 2021

Bonjour
@ChTi160
Effectivement , bien vu

ChTi160 · 28 Avril 2021

Bonsoir JM
histoire de te remercié
je profite pour faire une nouvelle suggestion
mettre lors de la validation d'une modif du Prix d'achat le cas ou il est à Zéro !
soit , si besoin

VB:

 If Me.TxtPrixAchatModif = "" Or Me.TxtPrixAchatModif = 0 Then
        MsgBox " le nouveau prix d'achat doit être défini"
        TxtPrixAchatModif.BackColor = &H80FFFF
        TxtPrixAchatModif.SetFocus
        Exit Sub
    End If

Bonne fin de Soirée
jean marie

JM27 · 28 Avril 2021

Bonsoir
@ChTi160
Pourquoi pas
Mais au final je me pose la question : si c'est un transfert de produit entre services d'une même boite , est ce que le prix d'achat est obligatoire ?
seul le demandeur peut le dire
mais comme il passe sur le site (et sur le fil) sans se manifester ?

Gestion de stock pharmacie

bode

XLDnaute Nouveau

Antsiva

XLDnaute Nouveau

Antsiva

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Pièces jointes

Antsiva

XLDnaute Nouveau

vivien38

XLDnaute Nouveau

Pièces jointes

ChTi160

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

vivien38

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Pièces jointes

vivien38

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Pièces jointes

Discussions similaires