Base de donnée

[35niavlys]

Bonjour, par exemple si dans la cellule A1 j'écris Farine, je souhaiterais que dans la cellule A2 j'en ai le prix. Or je veux que ce prix soit stocké dans un autre classeur. Donc il faut que la fonction recherche dans un autre classeur le mot Farine dans la colonne A et me donne la valeur mise dans la colonne B.

J'ai déjà essayé quelques fonction mais je suis novice

Merci d'avance

 

[gilbert_RGI]

Re : Base de donnée

='[Prix.xlsx]Feuil1'!$A:$A dans Donnée ?????? c'est bien à cet endroit !!!!! dans une liste de validation ce ne serait pas plutot dans une liste déroulante formulaire ou activeX


Ctrl + alt + f5 ou le bouton Actualiser dans l'onglet "données" ruban "connexion" doit remettre les formules correctement

Cdlt

Gilbert_RGI

 

[35niavlys]

Re : Base de donnée

Tout compte fait, ça fonction tout seul si je change de répertoire.(je crois, peux-tu essayer sur ton ordi ?)

Mais je suis obliger d'ouvrir ma base de donnée pour pouvoir m'en servir. As-tu une solution ?

Voilà mes fichiers si tu veux voir mes modif.

 

[gilbert_RGI]

Re : Base de donnée

il y a un truc qui m'échappe dans la liste le premier ingrédient cacao en poudre n'affiche pas le prix les autres fonctionnent ???

 

[35niavlys]

Re : Base de donnée

J'ai rajouté un titre pour chaque colonne et ça règle le problème

Tu as une solution pour ne pas être obliger d'ouvrir ma base de donnée pour pouvoir m'en servir ?

 

[gilbert_RGI]

Re : Base de donnée

non malheureusement

mais tu peux l'ouvrir automatiquement en ouvrant ton 1 fichier avec VBA par exemple

dans le Workbook_Open()

 

[35niavlys]

Re : Base de donnée

Comment tu fais ça car je ne connais rien sur le vba

 

[gilbert_RGI]

Re : Base de donnée

Comment tu fais ça car je ne connais rien sur le vba

il faut que ta bécane autorise les macros

donc le nom de l' extension de ton fichier ne sera plus xlsx mais xlsm

je te mets le fichier avec le code d'ouverture du second

pour voir le code tu cliques droit sur le nom de l'onglet de feuille et sur visualiser le code ensuite
là tu te trouves dans l'éditeur de VBA soit le VBE

 

[35niavlys]

Re : Base de donnée

Ok j'ai compris, merci beaucoup pour ta patience.

 

[gilbert_RGI]

Re : Base de donnée

Ok j'ai compris, merci beaucoup pour ta patience.

de rien

j'ai oublié qq chose dans le code tu peux le modifier comme suit

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Workbooks.Open (ThisWorkbook.Path & "\INGREDIENTS ET PRIX.xlsx")
    ThisWorkbook.Activate
    Application.ScreenUpdating = True
End Sub

 

[gilbert_RGI]

Re : Base de donnée

attends je t'envoie le fichier modifié 😀

 

[gilbert_RGI]

Re : Base de donnée

tu peux encore améliorer en fermant le second fichier quand tu fermes le premier
avec :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("INGREDIENTS ET PRIX.xlsx").Close SaveChanges:=True
End Sub

je te mets le fichier changé

 

[35niavlys]

Re : Base de donnée

Merci beaucoup mais lorsque je ferme, les deux classeurs se ferme mais Excel ne se ferme pas. Y a t-il une ligne à ajouter au code vba ?

 

[gilbert_RGI]

Re : Base de donnée

Merci beaucoup mais lorsque je ferme, les deux classeurs se ferme mais Excel ne se ferme pas. Y a t-il une ligne à ajouter au code vba ?

tu ajoutes l'instruction QUIT au moment de fermer l'application

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("INGREDIENTS ET PRIX.xlsx").Close SaveChanges:=True
Application.Quit
End Sub

 

[35niavlys]

Re : Base de donnée

Ça ne marche pas.

 

[gilbert_RGI]

Re : Base de donnée

Ça ne marche pas.

chez moi si 😉