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

 

[ChTi160]

pas compris
mets un fichier （anonimise） exemple de ce que tu as et ce que tu veux.
avec des explications
merci par avance
jean marie

 

[Positive37]

Ça, (Fiche technique interactive En cours Amélioration.xlsm ) c'est ce que j'ai trouvé un peu plus haut, dans ton message du 13 aout dernier. J'ai créé 2 autres feuilles "fiches techniques", et c'est super que ça soit "vierge", je veux justement le remplir avec mes données, mais c'est en anglais

L'autre , est en français, très bien, j'y ai rajouté une feuille 'fiche technique 2", et j'ai mis ton code, mais ça ne fonctionne pas sur toute la feuille, les cases B16 à B18 ne fonctionnent pas, contrairement aux suivantes.

J'espère que c'est plus clair comme ça...
merci de ton aide
Crystèle

 

[ChTi160]

Re
je regarde cela demain.
jean marie

 

[jcf6464]

Bonjour à vous tous et le forum
Modeste contribution

avec le fichier joint

Bonne soiré jc

 

[Positive37]

Merci, jc, chouette outil, que je réutiliserai, mais je cherche à intégrer une mercuriale, et la base des fichiers que j'ai postés un peu plus haut, attendent toujours la réponse de Chti160...
As-tu trouvé, chti?

Bonjour à vous tous et le forum
Modeste contribution

avec le fichier joint

Bonne soiré jc

 

[jcf6464]

Bonjour Positive, chti et le forum

chti ta donné la solution la fiche technique marche avec la mercuriale en post22 + rajouter bout de code dans fiche technique pour l'actualisation des prix dans la fiche à l'ouverture de celle-ci

a+ jc

 

[Positive37]

Effectivement, ça marche, mais le fichier est en anglais, et je ne parle pas anglais.
J'ai testé la ligne de code sur un autre fichier en français, j'y ai rajouté une feuille 'fiche technique 2", mais ça ne fonctionne pas sur toute la feuille, les cases B16 à B18 ne fonctionnent pas, contrairement aux suivantes.
C'est ça que Chti a dit regarder "demain"

 

[jcf6464]

Re positive ,

dans ton classeur post37 supprime la (Fiche technique 2) elle ne sert à rien que de t'embrouiller la fiche 1 est en français et elle fonctionne,

a+ jc

 

[Positive37]

Bien sûr, qu'elle fonctionne, et si je demande de l'aide, c'est pour en créer d'autres, pour pouvoir avoir plusieurs fiches techniques dans un seul fichier...
Mais jje vois bien que tu essaye de m'aider... et je t'en remercie

 

[jcf6464]

Re positive ,

a quoi te sert les colonnes 1 à 5 pour ma part elles sont a supprimer

J'avais pas vu ton message

a+ jc

 

[Positive37]

tu veux parler des colonnes 1 à 5 de denrées, qui sont dans les colonnes D à H ?
Elles sont utiles, parce qu'une même denrée par exemple du beurre peut être utilisée plusieurs fois dans une recette (dans une pate à tarte, dans la crème que l'on va poser dessus... donc oui, elles sont utiles.

 

[ChTi160]

Bonjour Positive37
Bonjour le Fil ,le Forum
je vois que cela avance !
Dans un premier temps ,j'ai une réponse pour ce qui est de ta demande du Post #37

cases B16 à B18 ne fonctionnent pas

Normal car dans la procédure de la Deuxième feuille #29 , j'ai mis

Range ("b19:b50")

b19:b50

Au lieu de B16. Excuses !
à voir !
Ensuite si l'on veut pouvoir utiliser plusieurs "Fiches Techniques"
Première possibilité.
Insérer les procédures dans Chaque feuilles
soit

Private Sub Worksheet_Activate()
FromFichTech = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("b16:b50")) Is Nothing Then
FromFichTech = True
Sheets("Mercuriale").Activate
MsgBox "Double-cliquez sur le produit à placer sur la fiche technique.", vbInformation
End If
End Sub

ou alors travailler avec la Procédure

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Soit
J’ai déclaré dans le Module standard
"Module 1"
Les variables suivantes :

Option Explicit
Public FromFichTech As Boolean
Public ShtName As String
Public RngCible As Range
Public RngSource As Range
Public ShCible As Worksheet
Public ShSource As Worksheet

Puis dans le module du Classeur "ThisWorkbook"

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
           ShtName = Sh.Name
   FromFichTech = False 'On met a False
               Cancel = False 'evite la selection de la Cellule
With Sh 'Avec la feuille
 'Si feuille "technique" et cellule dans la Plage "B16:B50"
 If ShtName Like "Fiche technique*" And Not Intersect(Target, .Range("b16:b50")) Is Nothing Then
     Set ShCible = Sh 'On récupére la Feuille "Fiche technique"
    FromFichTech = True 'On met a true
    Set RngCible = Target 'On récupére
         Sheets("Mercuriale").Activate
         MsgBox "Double-cliquez sur le produit à placer sur la fiche technique.", vbInformation
   ElseIf Sh.Name = "Mercuriale" Then 'Si feuille "Mercuriale"
     If FromFichTech Or Not IsNumeric(Target.Offset(, 2)) Then Exit Sub 'Si pas de selection dans une feulle Cible"Fiche technique"
           Set ShSource = Sh 'On récupére la Feuille "Mercuriale"
          Set RngSource = Target 'On récupére
         RngCible.Value = RngSource.Value 'On colle la valeur dans la cellule de la feuille Cible
         RngCible.Offset(, 1).Value = RngSource.Offset(, 1).Value 'Idem
         RngCible.Offset(, 8).Value = RngSource.Offset(, 2).Value 'Idem
         ShCible.Activate 'retour a la feuille "Fiche technique x
         FromFichTech = False 'On met a False
 End If
End With
Cancel = True 'On réinitialise
End Sub

voir le fichier
jean marie

 

[Positive37]

Merci beaucoup Jean Marie!
Je crois que je vais m'en tenir à ajouter le code sur chaque nouvelle fiche que je vais créer, parce que je n'ai rien compris à la 2ème possibilité, mon niveau est tout à fait insuffisant... . j'imagine que c'est évident pour la plupart des gens qui viennent sur ce forum, je me sens très limitée... Sauf s'il y a une explication simple à ces procédures et modules :-\

 

[ChTi160]

Re
c'est très simple
la procédure "

Workbook_SheetBeforeDoubleClick

veut dire avant Double Click dans une feuille du Classeur

Donc détecte un Double Clic quelque soit la feuille du Classeur ou il se produit.
et

Worksheet_BeforeDoubleClick

veut dire avant Double Click dans la seule Feuille concernée

Donc le but , c'est de faire le distinguo entre les feuilles ou vont se produire les Double Click
Des feuilles Cible "Fiche technique x" et la feuille Source "Mercuriale"
une procédure pour x feuilles "Fiche technique"
mais bon ! tu vois .
n'hésite pas ,si besoin d'autres explications
jean marie

 

[Positive37]

Désolée... Je suis très blonde ce matin.... j'ai rien compris...