XL 2013 Un petit coup de pouce pour finaliser mon projet

[jux9366]

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.

 

[youky(BJ)]

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

 

[jux9366]

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)]

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

 

[jux9366]

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)]

YES, je n'utilise rien
Tu peux virer le 2 derniers onglets qui ne servent pas(je pense)
Bruno

 

[jux9366]

YES, je n'utilise rien
Tu peux virer le 2 derniers onglets qui ne servent pas(je pense)
Bruno
Par contre quand j'appuie sur efface j'arrive pas a efface la ligne 12
et autre petite question par quoi vous etes passé pour réaliser cela?

 

[jux9366]

YES, je n'utilise rien
Tu peux virer le 2 derniers onglets qui ne servent pas(je pense)
Bruno

Par contre quand j'appuie sur efface j'arrive pas a efface la ligne 12
et autre petite question par quoi vous êtes passé pour réaliser cela? et pouvez vous me mettre la quantité dans la colonne quantité 1.

 

[youky(BJ)]

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]

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]

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)]

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