Probleme vba extraire plusieur données de cellule

**wes13200** · 28/03/2016, 10h55

Bonjour à tous , je suis un débutant VBA et je n'arrive pas à faire qqch je vous explique :

J'ai un fichier excel (qui sera joint) qui possede 3 feuilles. Dans la feuille "prodfini" j'ai un tableau avec un code produit fini et un libellé du produit fini.

Ce qu'on me demande c'est que dans un userform il apparaisse : dans une combobox le Code du produit fini et que du coup dans une textbox sont libellé.

Mais aussi : dans la 2eme feuille du fichier :"Mat1Prodfini" on va avoir les codes des produits finis dans un tableau et le code des matières premières qui compose ce produit fini.

Ce qu'on me demande dans le userform c'est qu'en selectionnant un code produit fini , qu'il y ait donc son libellé qui apparaisse mais aussi le prix de revient de ce produit fini (qui va donc prendre en charge le prix des matieres premiere * leurs quantités)

Et pour finir : Que la matière première la plus chers apparaisse pour chaque produit fini ...

Je vous en demande énormément j'en suis conscient si vous avez des "axes d'idées" pour mon problème je suis preneur...
J'ai réussi dans mon usf à faire la comboox et le libéllé associé mais c'est pour le reste que je nage total..
Excel1.xlsm
Merci d'avance

**patricktoulon** · 28/03/2016, 12h22

Bonjour

a lire http://www.developpez.net/forums/d84...s-discussions/

**wes13200** · 28/03/2016, 12h50

re-Bonjour je suis désolé je n'avais pas lu je pensais pas que mon fichier excel pourrait être mal vu... Je vais donc expliquer mon problème

J'ai un fichier comprenant 3 feuilles , dans la feuille 1 j'ai colonne A des codes de produits fini (aucun doublon)
Dans la feuille 2 j'ai des codes de matières premières qui compose un produit fini (un produit fini est composé de plusieurs matières premières)

Mon probleme est le suivant : pour un code produit fini j'ai plusieurs matieres premieres et je voudrais pour chaque produit fini "extraire" le prix d'achat des matières premières qui le compose

Exemple : j'ai dans la feuille 1 le code produit fini "1" et dans l'autre feuille je vois que "1" est composée de "M1,M2,M3" (qui sont des noms de matieres premieres) et chacune de ces matieres premieres ont une quantité et un prix..

Ce que je n'arrive pas à faire c'est que dans un userform je selectionne : un code produit fini dans un combobox

Et qu'à partir de ce code j'ai dans une textbox le prix de reviens de ce produit fini et aussi la matiere premiere la plus chers qui le compose (les prix des matieres premieres sont donnés feuille 3)

Encore désolé pour mon premier message je ne savais pas j'aurai du lire .. voici le debut de mon code pour la combobox qui fonctionne
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Initialize()
   Dim plage2 As Range
 
      ' remplissage de la combobox
      Set ShMat = Sheets("Prodfini")
      UsfProdfini.ComboBox1.Clear
      der_ligne = ShMat.Range("A" & Rows.Count).End(xlUp).Row
            For I = 2 To der_ligne
                  UsfProdfini.ComboBox1.AddItem ShMat.Cells(I, 1)
 
        Next I
 
        End Sub
  Private Sub ComboBox1_Change()
 
 
Set plage2 = Sheets("Prodfini").Range("B2:B100")
TextBox1 = plage2(1 + ComboBox1.ListIndex, 1)
End Sub

**Docmarti** · 28/03/2016, 23h56

Bonjour.

Le code que tu as semble correct.
Ta question est claire. Il ne manque qu'un exemple des données se trouvant en feuille 1, 2 et 3 pour pouvoir répondre à ta question.