Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Importer des données de fichier excel et les traiter

J

julie169

XLDnaute Nouveau
Salut à toutes et à tous,

Je cherche à calculer le prix de revient d'un appareil en utilisant deux fichiers excel.

Dans l'un on a tous les composants (et leur nombre) constituant l'appareil, dans l'autre on a le prix de plein de composants.(bien plus que pour l'appareil)

Je souhaite faire ce calcul automatiquement.
C'est à dire l'utilisateur du fichier que je veux créer doit sélectionner l'appareil dans une liste. cette liste sera en fait des noms de fichier excel tous contenus dans un même dossier (fichier qui contient la liste des composants de l'appareil )

après sélection de l'appareil par l'utilisateur (à ce moment on va chercher le fichier excel en question par ouverture discrète), on compare la liste des composants avec la liste des prix.
On va rechercher le prix des composants dans la liste des prix.
On calcule les prix par composant (X composant A à Y € = Z€)
et enfin le prix total de l'appareil. (Somme de tous les Z)

Comme vous l'avez compris il y a plusieurs séquence dans cette application.
Je suis toute disponible à les traiter les une après les autres. Le but étant aussi que je comprenne pour pouvoir refaire voir améliorer.

Merci à tous pour votre soutient.

Julie
 
Trier par date Trier par votes
J

julie169

XLDnaute Nouveau
Re : Importer des données de fichier excel et les traiter

Salut Tototiti,

En fait j'ai réussi à contenir toutes mes données dans un seul fichier (sauf le prix des articles)

un extrait du nouveau fichier de calcul du prix de revient est en PJ

Pour le choix de l'appareil j'utilise un tri-ordonné-sans doublons renvoyé dans un combobox. (feuille Nomenclature colonne D)

dans la question précédente, j'essayais de créer la liste des composants en fonction de l'appareil sélectionné dans le UserForm. VlookUp(combobox1.text)

Ensuite j'utiliserai cette liste (tableau?) pour calculer le prix de revient de l'appareil en faisant appel au fichier 'cout standard.xls' qui contient tous les prix de chaque article.

Je te laisse voir mes évolutions du fichier et j'attends tes critiques.

A tout,

Julie
 

Pièces jointes

  • Prix App.xls
    40 KB · Affichages: 102
  • Prix App.xls
    40 KB · Affichages: 94
  • Prix App.xls
    40 KB · Affichages: 98
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : Importer des données de fichier excel et les traiter

Re,

trés bien, tes changements, mais ça change pas mal la problématique...
pour ton tri sans doublons, trés bien.
pour la liste des composants, ça ne pourra pas marcher avec un Vlookup. Vlookup renvoie la première valeur trouvée, pas la liste de toutes les valeurs correspondantes.

bref il va falloir revoir des trucs...
 
Vote positif 0 Vote négatif
J

julie169

XLDnaute Nouveau
Re : Importer des données de fichier excel et les traiter

Re,

Merci pour ces critiques. ça me fait chaud au cœur de voir que je ne suis pas si nulle que ça! Pour une débutante bien sûr...

Bon, alors pour ma liste de composant, si j'ai bien compris je dois créer un tableau 'dynamique': Je compte d'abord combien il y a de composant lié à l'appareil sélectionné, ensuite je remplis le tableau ajusté au nombre de composant et enfin je l'utilise pour calculer le prix total. c'est ça?

Si oui... ....Quelqu'un aurait une petite idée des fonctions que je pourrais utiliser car à chaque fois je passe beaucoup de temps à chercher la bonne fonction.

Merciiii
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : Importer des données de fichier excel et les traiter

Re,

ben en l'occurence, je ne vois que du manuel, à savoir boucler sur le nombre de lignes de ta feuille Nomenclature.

un truc du genre :

Code: 
Dim ListeComp() As String, i As Long
    ReDim ListeComp(0)
    With ThisWorkbook.Worksheets("Nomenclature")
        DerLigne = .Range("A65536").End(xlUp).Row
        For i = 2 To DerLigne
            If .Cells(i, 4).Value = NomApp Then
                ReDim Preserve ListeComp(UBound(ListeComp) + 1)
                ListeComp(UBound(ListeComp)) = .Cells(i, 10).Value
            End If
        Next i
    End With

dans ce cas, le tableau ListeComp contiendra les identifiant Item de ton Appareil de la "case" 1 à la dernière (la "case" 0 est vide)
 
Vote positif 0 Vote négatif
J

julie169

XLDnaute Nouveau
Re : Importer des données de fichier excel et les traiter

Wahoo!

Je sais pas si ça marche mais en tout cas je suis stup et fête de t'as rapidité de réponse.

J'espère qu'un jour je connaitrai aussi bien quevous, les Barbatruc, ce langage.

Je teste et je reviens vers toi.

Merci!

Julie
 
Dernière édition:
Vote positif 0 Vote négatif
J

julie169

XLDnaute Nouveau
Re : Importer des données de fichier excel et les traiter

Ooops!

Apparemment il y a une erreur avec ListComp. je crois bien qu'il soit utilisé deux fois avec une dimension différente.

Regardez:
Code: 
Dim [COLOR="Red"]ListeComp([/COLOR]) As String
    ReDim ListeComp(0)
    With ThisWorkbook.Worksheets("Nomenclature")
        DerLigne = .Range("A65536").End(xlUp).Row
        For i = 2 To DerLigne
            If .Cells(i, 4).Value = NomApp Then
                ReDim Preserve ListeComp(UBound(ListeComp) + 1)
                ListeComp(UBound(ListeComp)) = .Cells(i, 10).Value
            End If
        Next i
    End With
    
    Set Wkb = Workbooks.Open(ThisWorkbook.Path & "\COUT STANDARD.xls")
    DerLigne = Wkb.ActiveSheet.Range("A65536").End(xlUp).Row
       For i = 1 To UBound(ListeComp, 1)
            Code = Left([COLOR="Red"]ListeComp(i, 2)[/COLOR], InStr(1, [COLOR="Red"]ListeComp(i, 2),[/COLOR] " ") - 1)
            If Application.WorksheetFunction.CountIf(Wkb.ActiveSheet.Range("A4:A" & DerLigne), Code) = 0 Then
                Remarque = "Certains composants sont introuvables dans Liste prix composant.xls"
            Else
                Total_Purch = Total_Purch + CLng(ListeComp(i, 1)) * CDbl(Application.WorksheetFunction.VLookup(Code, Wkb.ActiveSheet.Range("A4:B" & DerLigne), 2, False))
                Total_Sourcing = Total_Sourcing + CLng(ListeComp(i, 1)) * CDbl(Application.WorksheetFunction.VLookup(Code, Wkb.ActiveSheet.Range("A4:C" & DerLigne), 3, False))
            End If
        Next i

Le message d'horreur que j'ai c'est :'L'indice n'appartient pas à la selection"

Quelqu'un a une idée?
 
Dernière édition:
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : Importer des données de fichier excel et les traiter

Bonjour julie,

Dis-moi, où se trouvent les quantités de composant maintenant ?

pour poster du code, tu va en mode avancé et tu cliques sur la balise code (#)
 
Vote positif 0 Vote négatif
J

julie169

XLDnaute Nouveau
Re : Importer des données de fichier excel et les traiter

Salut Tototiti, Salut Forum,

On trouve les quantités de composant sur la feuille nomenclature colonne N 'CNQT'. Par contre le format de cette colonne est 'monétaire' alors que le top certian un 'nombre' avec deux (2) décimales. enfin, ça c'est un détail.


Merci pour le chip 'Tototiti

Bonne journée à tous.

Julie
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : Importer des données de fichier excel et les traiter

Re,

essaye de modifier le code comme ça :


Code: 
Dim [COLOR=red]ListeComp([/COLOR])
ReDim ListeComp(1 To 2, 0)
With ThisWorkbook.Worksheets("Nomenclature")
DerLigne = .Range("A65536").End(xlUp).Row
For i = 2 To DerLigne
If .Cells(i, 4).Value = NomApp Then
ReDim Preserve ListeComp(1 to 2,UBound(ListeComp) + 1)
ListeComp(1,UBound(ListeComp)) = .Cells(i, 10).Value
ListeComp(2,UBound(ListeComp)) = .Cells(i, 13).Value
End If
Next i
End With
    Set Wkb = Workbooks.Open(ThisWorkbook.Path & "\COUT STANDARD.xls")
    DerLigne = Wkb.ActiveSheet.Range("A65536").End(xlUp).Row
       For i = 1 To UBound(ListeComp, 2)
            Code = Left([COLOR=red]ListeComp(1, i)[/COLOR], InStr(1, [COLOR=red]ListeComp(1, i),[/COLOR] " ") - 1)
            If Application.WorksheetFunction.CountIf(Wkb.ActiveSheet.Range("A4:A" & DerLigne), Code) = 0 Then
                Remarque = "Certains composants sont introuvables dans Liste prix composant.xls"
            Else
                Total_Purch = Total_Purch + CDbl(ListeComp(2, i)) * CDbl(Application.WorksheetFunction.VLookup(Code, Wkb.ActiveSheet.Range("A4:B" & DerLigne), 2, False))
                Total_Sourcing = Total_Sourcing + CDbl(ListeComp(2, i)) * CDbl(Application.WorksheetFunction.VLookup(Code, Wkb.ActiveSheet.Range("A4:C" & DerLigne), 3, False))
            End If
        Next i
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : Importer des données de fichier excel et les traiter

et en changeant la ligne comme ça :

ReDim Preserve ListeComp(1 to 2,UBound(ListeComp,2) + 1)


Edit : non, en fait c'est tous les Ubound(ListeComp) qu'il faut modifier en Ubound(ListeComp,2)
 
Vote positif 0 Vote négatif
J

julie169

XLDnaute Nouveau
Re : Importer des données de fichier excel et les traiter

Yes! yes! YEEEEEESS!

ça maaaaaarche!! c'est super!!!! Ouf!!!! je suis sauvée!!!!

Merci beaucoup le Forum et ENORME MERCI à Tototiti pour ton aide, ta dispo, ta gentillesse et ton dévouement!

MERCIIIIII!
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : Importer des données de fichier excel et les traiter

Mais de rien, ça a été un plaisir.
comme tu as pû l'observer, je n'avais pas testé le code...(il me manque quelques fichiers pour ça) mais au final, ça a l'air de tourner donc tant mieux...

à bientôt
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
XL 2010 Nature du type de prix de la facture
Réponses
3
Affichages
278
Mody200
M
A
  • Question
XL 2016 Colorer en vert le besoin effectif par rapport au stock
Réponses
2
Affichages
161
job75
R
  • Résolu(e)
Microsoft 365 Fichier xls suivi délai d'affaires
2 3
Réponses
42
Affichages
913
Roran2024
R
J
  • Question
XL 2021 Résolu - Extractions de valeurs Ligne pour créer des lignes isolées / Macro Séparer Valeurs
Réponses
14
Affichages
376
JM04082023!
J
M
  • Question
Microsoft 365 Recherche et renvoi de résultats
Réponses
1
Affichages
347
JHA
J
  • Question
XL 2013 Actualiser les données des formules
Réponses
8
Affichages
322
lestoiles1
V
  • Question
Microsoft 365 Resume de plusieurs fichier
Réponses
2
Affichages
314
Cousinhub
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
217
JHA
J
O
  • Résolu(e)
XL 2021 VBA - Importer des données
Réponses
5
Affichages
235
OULDTA
O
T
  • Résolu(e)
XL 2019 Importer des images
2
Réponses
23
Affichages
900
Tsimbina
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…