Déduire 1 de mon stock sur la feuille Base

[Mimi]

Bonjour à tous,

Je joint un exemple de mon fichier conçu avec la collaboration et la gentillesse de Robert, je recherche le moyen de déduire de 1 la colonne stock à chaque fois que je rentre un vin dans la feuille 1.
D'avance je vous remercie.
Mimi

 

[Mimi]

Re : Déduire 1 de mon stock sur la feuille Base

Re
un petit up pour remonter le fil, quelqu'un aurait-il une idée ??
Merci
Mimi

 

[laetitia90]

Re : Déduire 1 de mon stock sur la feuille Base

bonjour Mimi🙂

a la fin du code de la macro placer...... il faudrait revoir tout cela un peu brouillon tout cela a mon avis🙄

B.Columns(1).Find(C, , xlValues, xlWhole).Offset(0, 5).Value = B.Columns(1).Find(C, , xlValues, xlWhole).Offset(0, 5).Value - 1

 

[Mimi]

Re : Déduire 1 de mon stock sur la feuille Base

Bonjour Laetitia,
Tout d'abord un grand merci d'avoir prit du temps pour mon problème, j'ai copier ta formule dans le VBA, sa fonctionne bien, i aurait-il un moyen de mettre un message en disant que si la quantité est à 0 il affiche "Plus en stock".
D'avance merci
Mimi

 

[laetitia90]

Re : Déduire 1 de mon stock sur la feuille Base

re le code tu le mets juste apres suite comme cela incremente si <>0 autrement msgbox + sort de la sub pour
pas mettre si stock vide

suite: 'étiquette
 If B.Columns(1).Find(C, , xlValues, xlWhole).Offset(0, 5).Value <> 0 Then
B.Columns(1).Find(C, , xlValues, xlWhole).Offset(0, 5).Value = B.Columns(1).Find(C, , xlValues, xlWhole).Offset(0, 5).Value - 1
Else
MsgBox "attention stock=0": Exit Sub
End If

ect

 

[Mimi]

Re : Déduire 1 de mon stock sur la feuille Base

Re
Ok laetitia tout marche impec
Merci beaucoup
Mimi