gestion de stock

T

titiborregan5

XLDnaute Accro

• 31 Juillet 2014

• #2

Re : gestion de stock

Bonjour,
pourquoi un userform?

Un TCD n'irait pas?

A+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 31 Juillet 2014

• #3

Re : gestion de stock

Bonjour

Mais pour faire un TCD il faudrait que les lignes possedent des étiquettes
par exemple
A1 : Code
B1 : Désignation
C1 : Quantité

une fois possé il faut remplir les etiquettes ligne avec le champ Code, les valeurs avec le champ Quantite.
Puis changer les parametres du champ Quantité pour qu'il affiche la somme au lieu du nombre

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 31 Juillet 2014

• #4

Re : gestion de stock

tbft à dit:

Bonjour

Mais pour faire un TCD il faudrait que les lignes possedent des étiquettes
par exemple
A1 : Code
B1 : Désignation
C1 : Quantité

une fois possé il faut remplir les etiquettes ligne avec le champ Code, les valeurs avec le champ Quantite.
Puis changer les parametres du champ Quantité pour qu'il affiche la somme au lieu du nombre

Cliquez pour agrandir...

Right Sir!

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 31 Juillet 2014

• #5

Re : gestion de stock

Mais est que cela est suffisament clair pour Dam3117???
On n'a pas de nouvelle🙁

 

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 1 Août 2014

• #6

Re : gestion de stock

bonjour,

merci effectivement ce n'est pas clair du tout pour moi.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 1 Août 2014

• #7

Re : gestion de stock

Bonjour

Voici le fichier

 

Pièces jointes

• stock.xls

  19.5 KB · Affichages: 92
• stock.xls

  19.5 KB · Affichages: 94
• stock.xls

  19.5 KB · Affichages: 111

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 1 Août 2014

• #8

Re : gestion de stock

Bonjour le fil, le forum,

À adapter dans ton userform :

Private Sub ComboBox1_Change()
Dim a, b As Integer

Range("b2").Select
Do Until ActiveCell = ComboBox1
ActiveCell.Offset(1, 0).Select
Loop

a = 0

Do Until ActiveCell <> ComboBox1
a = ActiveCell.Offset(0, 1)
b = a + b
ActiveCell.Offset(1, 0).Select
Loop

TextBox1 = b
End Sub

Il ne reste qu'à alimenter ton combobox1.

A+

 

Vote positif 0 Vote négatif