XL 2010 Résolu Merci faire une recherche et soustraction en vba

Yannic

XLDnaute Nouveau
Bonjour a tous
comme dit dans le titre j'ai un souci en vba
voila je dispose d'un calculateur qui me permet de géré une quantité d'arômes que je met dans mes recettes et je souhaiterai que quant j'applique ma recette (Macro qui est faite et fonctionnelle qui va enregistrer sur une autre feuille le tarifs la quantité la dates etc...) mais je voudrai que cette macro aille aussi soustraire la quantité d'arômes utiliser a ma liste d'arômes que je possède pour avoir un suivi de mes stock précis (pas que je prépare une recette et paf je me rende compte qu'il me manque 1ml d'un arômes.

j'ai mit un fichier démo qui vous montre les parties intéressante enfin j’espère avec la macro d'enregistrement qui doit être complété (pour évité les double clique je mettrai une "inpubox" avec demande de confirmation


"Edit j'ai fait beaucoup de recherche et j'ai rien trouvé que je comprenne ou qui réponde a ma question"
 

Pièces jointes

  • Classeurdémo.xlsm
    15 KB · Affichages: 41
Dernière édition:

sousou

XLDnaute Barbatruc
Bonjour
étant donné le manque d'info sur ton classeur, voici une méthode que tu dois adapter
Ici je sélectionne les arômes de la feuille calculateur, et je modifie le stok en recherchant l'arôme.
Je ne traite pas si l'arôme n'existe pas.
Sub stock()
Set aromes = Selection
For Each a In aromes
quantité = a.Offset(0, 2).Value
Set stocka = Sheets("liste_arômes").Columns(2).Find(a)
stocka.Offset(0, 7).Value = stocka.Offset(0, 7).Value - quantité
Next
End Sub
 

Yannic

XLDnaute Nouveau
heum je comprends pas comment le modifié j'ai une erreur à "For Each a aromes" il me met "erreur de compilation/ erreur de syntaxe :/

voici un nouveau classeur démo le code a complété s'appelle enregistrement_tarif
 

Pièces jointes

  • E-Tech-Liquides_Démo.xlsm
    83.7 KB · Affichages: 23
Dernière édition:

sousou

XLDnaute Barbatruc
Tu ne te rends pas bien compte de la difficulté pour nous de comprendre ta problèmatique et la manière dont tu utilises ton fichier,
J'ai donc inséré le bout de code dans ta macro, mais ne suis pas sur que ce soit ce que tu souhaites
A voir?
 

Pièces jointes

  • Copie de E-Tech-Liquides_Démo.xlsm
    87 KB · Affichages: 34

Yannic

XLDnaute Nouveau
je voudrai soustraire la quantité d'arômes en ml utilisé a la feuille calculateur a ma colonne I (ml totaux) de ma feuilles Liste_Aromes histroire que mes quantité d'arômes diminue a chaque utilisation


Edit ça me met une erreur "stocka.Offset(0, 7).Value = stocka.Offset(0, 7).Value - Quantité" variable d'objet ou variable de bloc with non défini ?

mais hormis cette erreur qui bloque la macro ça fonctionne comme je le souhaite excusé moi si je suis pas vraiment claire
 
Dernière édition:

sousou

XLDnaute Barbatruc
corrige ainsi, mais je ne peux pas tester en vrai grandeur, il faudrait une feuille remplie

'- -sousou----------------------------------------
Set Arômes_source = Worksheets(Source).Range("c26:c35")
For Each a In aromes
If a <> 0 Then
Quantité = a.Offset(0, 2).Value
Set stocka = Sheets("Liste_Arômes").Columns(2).Find(a)

stocka.Offset(0, 7).Value = stocka.Offset(0, 7).Value - Quantité
End If
Next
'-----
 

Bebere

XLDnaute Barbatruc
bonjour
Yannic
clic dans C6:C17 appelle un userform1
là tu choisis la marque et l'arôme,l'userform1 disparait
pour ajouter tu complètes les 2 textbox et tu valides
suite à l'écran
les données sont déclarées comme tableau,pas besoin de colorer les lignes
c'est fait automatiquement suivant le style choisi
 

Pièces jointes

  • Copie de E-Tech-Liquides_Démo (3)v1.xlsm
    96.7 KB · Affichages: 35

Discussions similaires