Aider moi a finir !!!!

Dranreb

XLDnaute Barbatruc

• 24 Décembre 2013

• #2

Re : Aider moi a finir !!!!

Bonjour.
Ne pourriez vous ajouter en tête une déclaration Dim Sens As Integer,
dans UserForm_Initialize If Me.Caption = "Sortie" Then Sens = -1 Else Sens = 1
et enfin lors du With Pharmacie … + Val(ListBox1.List(i, 1)) * Sens

P.S. Voir s'il ne serait pas plus pratique à l'usage d'avoir un seul Journal des mouvements de stock contenant aussi bien les entrées en positif que les sorties en négatif.

 

Dernière édition: 24 Décembre 2013

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 24 Décembre 2013

• #3

Re : Aider moi a finir !!!!

VOUS savez je ne suis pas trop doué en excel
es ce que vous pouvez le faire vous meme et poster le lien

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Décembre 2013

• #4

Re : Aider moi a finir !!!!

C'est que si je commence à y toucher … je refais tout !
On pourrait aussi imaginer une seule feuille Mouvements de stock qui servirait à tout. Ce qui m'y fait penser c'est que j'imagine qu'un article introduit en stock devrait avoir une date de péremption différente de celle du même article restant en stock insuffisant, et qu'il faudrait donc de toute façon garder une trace de toutes les dates de péremption, au moins jusqu'à leur épuisement. De la à garder tout comme dans les mouvements, et n'avoir qu'eux…

 

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 24 Décembre 2013

• #5

Re : Aider moi a finir !!!!

mais moi je voudrai garder une trace des mouvements qu'ils soit entrant ou sortant et pour ce qui est de la date de péremption je peux vous dire que je m'en fous un peux
PS : ce que je veux vraiment c'est une feuille ENTRER qui sera comme celle des sortie voila

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Décembre 2013

• #6

Re : Aider moi a finir !!!!

Alors essayez comme ça. À tester.

 

Pièces jointes

• Diamant.xls

  74.5 KB · Affichages: 109
• Diamant.xls

  74.5 KB · Affichages: 100
• Diamant.xls

  74.5 KB · Affichages: 110

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 25 Décembre 2013

• #7

Re : Aider moi a finir !!!!

bonsoir pour commencé dsl pour se retard (probleme de connexion )
je viens d'esseyer le fichier et je vois un petit probleme
on ne peux pas ajouter plus que le stock
merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Décembre 2013

• #8

Re : Aider moi a finir !!!!

Bonsoir.
La TextBox2 s'efface c'est ça ?
Vous avez certainement compris que ça vient de la Sub TextBox2_Change.
Pourquoi n'avez vous pas pensé à y mettre comme 1ère instruction :

VB:

If Sens = 1 Then Exit Sub

 

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 25 Décembre 2013

• #9

Re : Aider moi a finir !!!!

Merci Merci Merci 1000x
c'est sa que je voulais

 

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 27 Décembre 2013

• #10

Re : Aider moi a finir !!!!

bonjour voila y'a un petit probleme
maintenant il restock dans les deux feuille (entrée et sortie )

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Décembre 2013

• #11

Re : Aider moi a finir !!!!

Bonjour.
Vous savez j'ai laissé la programmation du Userform comme vous l'aviez faite. Quel est exactement le problème de mise au point dans votre code ?

 

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 27 Décembre 2013

• #12

Re : Aider moi a finir !!!!

le probleme que quaand je veux ajouter les produit ( dans la feuille entrée )
c'est l’inverse qui se produit (il dimenu au lieu d'ajouter ) dans la feuille Stock

 

Dernière édition: 27 Décembre 2013

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Décembre 2013

• #13

Re : Aider moi a finir !!!!

Je n'ai pas ce phénomène. Y a-t-il bien autre chose que "Sortie" en titre de la fenêtre ? sinon voir la Sub affusf de Module1

 

Vote positif 0 Vote négatif

Y

Yanis

XLDnaute Nouveau

• 27 Décembre 2013

• #14

Re : Aider moi a finir !!!!

essaye de faire une opération entre et sortie tu verra de tes propre yeux le problème exactement .
Au lieux de faire des sortie il fais les entrée .
et on ne peux pas ajouterplus que la quantité deja en stock

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Décembre 2013

• #15

Re : Aider moi a finir !!!!

Joignez votre classeur, que je vérifie si vous avez apporté les bonnes modifications aux bons endroits.
Ma version actuelle ne présente pas ces anomalies.

P.S. Ah si, il y a un problème: UserForm_Initialize s'exécute dès le With Userform1, donc avant que son Caption n'ait été changé. Alors on va procéder différemment.
En tête du userform:

VB:

Option Explicit
Public Sens As Integer
Dim Tablo()

Pour l'Initialize, simplement :

VB:

Private Sub UserForm_Initialize()
Tablo = [Designations].Value
IniCombo
End Sub

Enfin deux procédures différentes pour les boutons :

VB:

Sub Entrées()
With UserForm1
   .Caption = "Entrées en stock"
   .Sens = 1
   .Show
   End With
End Sub
Sub Sorties()
With UserForm1
   .Caption = "Sorties de stock"
   .Sens = -1
   .Show
   End With
End Sub

Et pour pouvoir ajouter plus que le stock, toujours encore :

VB:

Private Sub TextBox2_Change()
If Sens = 1 Then Exit Sub
If Val(TextBox2) > Val(TextBox1) Then TextBox2 = ""
End Sub

 

Dernière édition: 27 Décembre 2013

Vote positif 0 Vote négatif