XL 2013 fiche technique + mercuriale cuisine

M

mitsurugi.hunter

XLDnaute Nouveau

• 27 Décembre 2017

• #16

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?

 

Vote positif 0 Vote négatif

Dylan

XLDnaute Nouveau

• 28 Décembre 2017

• #17

mapomme à dit:

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.

Cliquez pour agrandir...

Merci "mapomme" pour ton aide

 

Vote positif 0 Vote négatif

R

Romain Delouteau

XLDnaute Nouveau

• 12 Août 2018

• #18

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

 

Pièces jointes

• Dylan-Fiche technique interactive- v2a MODIFIER.xlsm

  95.4 KB · Affichages: 116

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Août 2018

• #19

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"

VB:

Public Sht_Cible As Worksheet

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

VB:

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

VB:

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

 

Vote positif 0 Vote négatif

R

Romain Delouteau

XLDnaute Nouveau

• 12 Août 2018

• #20

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Août 2018

• #21

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Août 2018

• #22

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

 

Pièces jointes

• Fiche technique interactive Chti160.xlsm

  97.3 KB · Affichages: 126

Vote positif 0 Vote négatif

R

Romain Delouteau

XLDnaute Nouveau

• 13 Août 2018

• #23

Merci beaucoup c'est exactement ce que je souhaitais

bravo !

 

Vote positif 0 Vote négatif

R

Romain Delouteau

XLDnaute Nouveau

• 13 Août 2018

• #24

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 ?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Août 2018

• #25

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

 

Vote positif 0 Vote négatif

R

Romain Delouteau

XLDnaute Nouveau

• 13 Août 2018

• #26

ChTi160 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Août 2018

• #27

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

 

Vote positif 0 Vote négatif

P

Positive37

XLDnaute Nouveau

• 11 Juin 2019

• #28

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Juin 2019

• #29

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)

VB:

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

 

Vote positif 0 Vote négatif

P

Positive37

XLDnaute Nouveau

• 11 Juin 2019

• #30

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

 

Vote positif 0 Vote négatif