XL 2013 fiche technique + mercuriale cuisine

[Dylan]

Bonjour, je suis actuellement en train d'essayer de réaliser une fiche technique interactive pour nos amis cuisinier qu'ils puissent estimer les coups d'un plats.
Mais pour cela il faut rechercher dans un documents appelé mercuriale qui référence tous les prix des denrées en cuisine

et intégrer ce prix sur la fiche technique de fabrication sur exel mais ce travail est long et fastidieux.
J'aimerais donc que de mamiére automatique lorsque je rentre le nom d'un produit en B16 exel trouve le nom du produit sur la feuille 2 et qu'il inscrive son prix qui se trouve dans la colone à coté du nom du produits (feuille 2)

. Et ce prix j'aimerais qu'il s'affiche dans la cellule J16.

Merci d'avance

 

[mitsurugi.hunter]

Je viens de voir ce topic. Votre système sur Excel est absolument génial.

J'aimerai juste savoir. Admettons que l'on réalise plusieurs fiches techniques sur ce document. Est-ce qu'il y a un moyen de gérer les stocks vis à vis de la mercuriale, et de l'ensemble des fiches techniques?

 

[Dylan]

Bpnjour Dylan,


Le message d'avertissement a été supprimé et remplacé par un beep.


Sans doute mais pas assez de précision pour le faire.


Je n'utilise pas de formule mais le langage assosié à EXCEL : VBA (Visual Basic Application). Il possède son propre environnement de développement accessible par les touches Alt + touche de fonction F11.

Merci "mapomme" pour ton aide

 

[Romain Delouteau]

Bonjour

Je viens d'utiliser votre système excel que je trouve excellent. Je suis Chef et cela m'aiderait énormément .

j'ai une question : j'essaie de créer plusieurs fiches techniques qui auraient la même base de mercuriale.

J'ai un peu modifié le fichier pour mes besoins, j'ai copié la fiche technique qui est donc devenue fiche technique (2), lorsque je double clique pour accéder a la mercuriale pas de problème celle-ci s'ouvre bien mais lorsque je sélectionne un ingrédient il s'inscrit sur la fiche technique primaire

Comment faire pour créer a l'infini des fiches techniques ayant la même mercuriale.

J'ai essayé avec Alt + F11 mais je n'y connais pas assez...

Pouvez vous m'apporter votre aide?

Merci d'avance

 

[ChTi160]

Bonsoir Romain
Bonsoir le Fil ,le Forum
Bienvenue sur XLD
peut être une approche !
pas sur d'avoir compris lol
j'ai créé dans le Module 1 une Variable Public Feuille , que j'ai Nommé "Sht_Cible"

Public Sht_Cible As Worksheet

puis dans le Code de Chaque feuille fiche technique (x)

Private Sub Worksheet_Activate()
   FromFichTech = False
   Set Sht_Cible = Me 'on définit  la variable feuille
End Sub

j'ai rajouté dans le Code de la feuille Mercuriale

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not FromFichTech Or Not IsNumeric(Target.Offset(, 2)) Then Exit Sub
   Sht_Cible.Activate 'on active la feuille
   ActiveCell = Target.Value
   ActiveCell.Offset(, 1) = Target.Offset(, 1).Value
   ActiveCell.Offset(, 8) = Target.Offset(, 2).Value
End Sub

Bonne fin de Soirée
jean marie

 

[Romain Delouteau]

Slt Jean Marie

Merci de la reponse
Mais je dois avouer que je suis vraiment nul ... je n'ai pas du tout reussi
Peux tu changer le code et reposter le fichier pour que je comprenne mieux le fonctionnement
merci

 

[ChTi160]

Bonjour Romain
je vais modifier le Fichier et le joindre des que possible , mais j'ai une question :
Qu'entends tu par :

Comment faire pour créer a l'infini des fiches techniques ayant la même mercuriale.

peux tu nous expliquer c'est le créer a l'infini , que je ne comprends pas .
Merci
Bonne journée
jean marie

 

[ChTi160]

Re
le fichier de ce que j'ai cru comprendre !
Bonne journée
jean marie

 

[Romain Delouteau]

Merci beaucoup c'est exactement ce que je souhaitais

bravo !

 

[Romain Delouteau]

Peux etre une derniere question

Quand je change le prix dans la mercuriale celui s'adapte automatiquement mais que a la feuille 1 (la principale) comment faire pour que l'ensemble des fiches techniques soient actualisées quand je change de prix ?

 

[ChTi160]

Re
Peux tu aussi répondre a mes questions #21?
merci
Bonne fin de Journée
jean marie

 

[Romain Delouteau]

Re
Peux tu aussi répondre a mes questions #21?
merci
Bonne fin de Journée
jean marie

Biensur

Ce que je voulais dire c'est de créer autant de fiches techniques différentes et connectées a la même mercuriale dans un seul ficher excel

merci en tout cas cela m'aide déjà beaucoup

 

[ChTi160]

Re
Ok je regarde ce que je peux faire.
Bonne fin de journée
jean marie

 

[Positive37]

Bonjour,
je suis cuisinière et j'utilise Excell de façon basique, rien à voir avec vos pratiques hyper compétentes !!
Par contre j'ai suivi ce post avec beaucoup d'intérêt, et je comprends tout à fait le besoin de Romain de " créer autant de fiches techniques différentes et connectées a la même mercuriale dans un seul ficher excel ".
Je ne vois pas de réponse à sa question, qui est du coup aussi la mienne...
Quelqu'un a-t-il une solution à proposer?
Merci d'avance

 

[ChTi160]

Bonjour positive37
Bonjour ce vieux Fil ,le Forum
pas sur d'avoir compris
mais une suggestion
Tu crées des Feuilles Fiche technique (x)
et tu mets dans le Code de la feuille (Click Droit sur le nom de la feuille créée ,puis "Visualiser le Code" et tu colles )les deux procédures suivantes (le même que les premières feuilles)

Private Sub Worksheet_Activate()
   FromFichTech = False
   Set Sht_Cible = Me 'on récupére la feuille
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("b19:b50")) Is Nothing Then
      FromFichTech = True
      Beep
      Sheets("Mercuriale").Activate
   End If
End Sub

n'hésite pas
jean marie

 

[Positive37]

Merci Jean-Marie!
Ça fonctionne, mais comme tout est en anglais, y compris les valeurs (AED??) que je voudrais mettre en euros, j'ai peur d'effacer une formule en touchant au contenu... Et il va falloir que je traduise toutes les cases...Il n'existe pas en français ce fichier? Désolée, je suis encore plus nulle en anglais qu'en Excell
Crystèle