VBA pb d'ajout d'un produit pour référence déja existante

[byby]

Bonjour,
J'ai un petit soucis avec VBA lorsque je veux ajouter du stock mais que la référence du produit existe déjà. J'utilise un userform qui rentre plusieurs informations concernant l'ajout au stock. Mais si je rentre une référence déjà existante cela ne s'ajoute pas au stock déjà existant et j'assiste à la création d'une nouvelle ligne avec cette référence.
Si je veux mettre un nouveau produit avec une nouvelle référence, je rentre le code suivant (qui fonctionne)


Private Sub Valider_Click()
Sheets(2).Activate


Range("A1").Select
Count = 0
Do While Not ActiveCell.Value = ""
Count = Count + 1
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Val(Count)
ActiveCell.Offset(0, 1) = Val(Ref1)
ActiveCell.Offset(0, 2) = Date
ActiveCell.Offset(0, 3) = Application.Proper(Des1.Value)
ActiveCell.Offset(0, 4) = Application.Proper(Fou1.Value)
ActiveCell.Offset(0, 5) = Val(0)
ActiveCell.Offset(0, 6) = Val(Qte1.Value)
Sum = Val(ActiveCell.Offset(0, 5).Value) + Val(ActiveCell.Offset(0, 6).Value)
ActiveCell.Offset(0, 7) = Val(Sum)


Ce code fait référence à une quantité initiale, une entrante ou sortante et une finale. Lorsque je rentre une nouvelle référence, la quantité initiale est à 0, normal. Mais lorsque je rentre une référence déjà existante, cette quantité initiale apparait aussi a zéro (en plus du fait que ce ne soit pas sur la même ligne que la référence déjà existante) alors que je voudrais "actualiser" le calcul.

Malheureusement je ne sais comment faire pour faire en sorte que la référence soit reconnue :/ j'ai essayé pleins de codes mais je n'y arrive pas :'(

Je ne sais pas si j'ai été clair dans mes explications


Si vous pouviez m'aider ce serait génial.

Merci d'avance

 

[néné06]

Re : VBA pb d'ajout d'un produit pour référence déja existante

Bonjour byby

cette ligne me choque?

ActiveCell.Offset(0, 5) = Val(0)
elle replace à zero ton stock.

ActiveCell.Offset(0, 7) = Val(Sum)' ajoute le zero de l'autre ligne + ajout de la nouvelle entrée.

Dis nous ??

A+

 

[byby]

Re : VBA pb d'ajout d'un produit pour référence déja existante

Oui c'est normal, car quand j'ajoute une nouvelle référence, cela me met 0 dans la case voulue (à savoir la quantité initiale, qui n'existait pas avant)

Quant à ActiveCell.Offset(0,7)=Val(Sum) c'est normal car le tableau se présente sous la forme suivante:

colonne F + colonne G= Collonne H (avec les formules bien entendu)

F c'est la qté initiale
G la qté ajoutée
H la qté finale

Cela aide t-il?

 

[néné06]

Re : VBA pb d'ajout d'un produit pour référence déja existante

Sur une nouvelle ref OK
Sur un ajout de stock le'ancien stock qui est en (0,5) est aussi mis à zero et efface l'ancien stock.
Te serait il possible de nous faire parvenir une Pièce jointe "non confidentielle" avec des données bidons?
A+

 

[byby]

Re : VBA pb d'ajout d'un produit pour référence déja existante

Est ce que cela suffira?

 

[néné06]

Re : VBA pb d'ajout d'un produit pour référence déja existante

Il n'y a pas la macro et le mode de lancement (bouton click)?

A+

 

[byby]

Re : VBA pb d'ajout d'un produit pour référence déja existante

Pardon pour mon temps de réaction... Voici comment ca se présente avec le bouton 🙂