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

  • Initiateur de la discussion Initiateur de la discussion Yannic
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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
 
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:
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
'-----
 
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour