XL 2013 Un petit coup de pouce pour finaliser mon projet

jux9366

XLDnaute Nouveau
bonjour,

j'ai trouvé sur un site ce fichier Excel qui correspond tous à fait avec ce que je recherche (que j'ai modifié). En effet je voudrais a partir d'une fiche technique intégrer les différentes donnée de: prix ,référence, unité de différent fournisseurs avec plusieurs feuille pour pouvoir réactualiser mes prix plus ,facilement . Jusqu'à la tous allait bien sauf que quand je change sur la feuille fiche technique le nom de fournisseur toutes les données se retire de mon tableau et insère ceux de l'autre fournisseur. j'aurais aime savoir si cela étais possible de rester dans le même esprit avec plusieurs feuille différentes de fournisseurs et de pouvoir intégré toutes les données sans que cela se supprime ? et si possible dans la liste déroulante du tableau fiche technique d'avoir une recherche simplifie avec les premières lettre.

Merci d'avance à la personne qui pourra me venir en aide.
 

Pièces jointes

  • fiche technique et mercuriale.xlsm
    71.9 KB · Affichages: 33
Solution
Est-ce bon de me demander, il suffit de tester et en plus tu as tout compris.
N'ai pas peur de bidouiller pour arriver à tes fins
Ne pas avoir peur d'aller en bug j'ai surement dépassé plusieurs centaines de millier.
Fait des copies du fichier au besoin
Ici tu vois j'ai mis un point d'arrêt (point marron)la macro stop sur la ligne et pour questionner
j'utilise la fenêtre exécution tu écris ? et la variable que tu veux et [enter]
Reclique sur le point marron et la flèche verte pour continuer
Pour avoir cette fenêtre exécution aller en menu>affichage moi j'ai mis comme ca
1604176641922.png

youky(BJ)

XLDnaute Barbatruc
Bonjour JUX,
Voici un fichier avec Formulaire tu indiques qlq lettres et tu as le choix dans la liste
Tu peux taper be pour avoir tout les beurres.
Bien des formules disparaissent
Bruno
 

Pièces jointes

  • fiche technique et mercuriale.xlsm
    66.8 KB · Affichages: 13

jux9366

XLDnaute Nouveau
Bonjour JUX,
Voici un fichier avec Formulaire tu indiques qlq lettres et tu as le choix dans la liste
Tu peux taper be pour avoir tout les beurres.
Bien des formules disparaissent
Bruno
Merci beaucoup pour ce formulaire qui me comble de joie,je suppose que c'est du vba, j'y connais pas grand chose.
Qu'est ce que vous voulez dire par bien des formules disparaissent a quelle niveau ? et si je veux rajouter un niveau fournisseur comment je fais?
cordialement
 

youky(BJ)

XLDnaute Barbatruc
Important il faut activer les macros(VBA) une 1ere fois
Voir comment faire dans l'aide
Tu peux ajouter autant de fournisseurs que tu veux.
Une fois trouvé un article tu peux l'ajouter en recette ou modifier le prix ou autres.
Reviens si besoin
J'ai fait des amélioration sur ce dernier fichier
Bruno
 

Pièces jointes

  • mercuriale.xlsm
    73.1 KB · Affichages: 13

jux9366

XLDnaute Nouveau
Important il faut activer les macros(VBA) une 1ere fois
Voir comment faire dans l'aide
Tu peux ajouter autant de fournisseurs que tu veux.
Une fois trouvé un article tu peux l'ajouter en recette ou modifier le prix ou autres.
Reviens si besoin
J'ai fait des amélioration sur ce dernier fichier
Bruno
merci encore mieux :).
Pour faire le ménage sur le classeur ttes les validation des données et tous ceux que j'ai créer sur le gestionnaire de nom peuvent être effacé ainsi que la feuille formule ?
 

youky(BJ)

XLDnaute Barbatruc
Press Alt+F11 pour te retrouver direct en VBA
Pour retourner sur ton Excel clic sur l'icone Excel en haut à gauche
Si tu veux que Efface supprime la ligne 12
Double-clic sur Navigateur (à droite) et en macro Efface remplace 13 par 12
Sub efface()
Feuil1.[A13:C1000].ClearContents
Feuil1.[E13:H1000].ClearContents
End Sub
Tu peux clicker sur la disquette pour enregistrer sinon en quittant.
Si tu viens souvent en VBA affiche l'onglet développeur c'est rapide(voir dans l'aide)
Je viens de voir le dernier message je vais faire le nécessaire.
Bruno
 

jux9366

XLDnaute Nouveau
Press Alt+F11 pour te retrouver direct en VBA
Pour retourner sur ton Excel clic sur l'icone Excel en haut à gauche
Si tu veux que Efface supprime la ligne 12
Double-clic sur Navigateur (à droite) et en macro Efface remplace 13 par 12
Sub efface()
Feuil1.[A13:C1000].ClearContents
Feuil1.[E13:H1000].ClearContents
End Sub
Tu peux clicker sur la disquette pour enregistrer sinon en quittant.
Si tu viens souvent en VBA affiche l'onglet développeur c'est rapide(voir dans l'aide)
Je viens de voir le dernier message je vais faire le nécessaire.
Bruno
merci en trifouillant un peut j'avais trouver pour la ligne 12
 

jux9366

XLDnaute Nouveau
j'aurais besoin de votre avale un essayant de comprendre j'ai changer cette ligne qui était 3 en 5
Private Sub CommandButton2_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
If TextBox6 = "" Then MsgBox "Manque QTE": Exit Sub
With Feuil1
lig = .[B65000].End(3).Row + 1
.Cells(lig, 1) = TextBox5
.Cells(lig, 2) = TextBox2
.Cells(lig, 5) = CDbl(TextBox6)
.Cells(lig, 6) = TextBox3
.Cells(lig, 7) = CDbl(TextBox4)
.Cells(lig, 8) = .Cells(lig, 3) * .Cells(lig, 7)
End With
TextBox6 = ""
End Sub
dites moi si cela est bon et si il y a quelque chose d'autre a changer
 

youky(BJ)

XLDnaute Barbatruc
Est-ce bon de me demander, il suffit de tester et en plus tu as tout compris.
N'ai pas peur de bidouiller pour arriver à tes fins
Ne pas avoir peur d'aller en bug j'ai surement dépassé plusieurs centaines de millier.
Fait des copies du fichier au besoin
Ici tu vois j'ai mis un point d'arrêt (point marron)la macro stop sur la ligne et pour questionner
j'utilise la fenêtre exécution tu écris ? et la variable que tu veux et [enter]
Reclique sur le point marron et la flèche verte pour continuer
Pour avoir cette fenêtre exécution aller en menu>affichage moi j'ai mis comme ca
1604176641922.png
 

Discussions similaires

Réponses
1
Affichages
730

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo