VBA pour copyr des valeurs de cellule à partir de classurs dans un dossier

Je dois créer des calculs pour environ 150 produits, dont chacun comprend environ 50 à 60 sous-produits. Selon le fait que le sous-produit soit produit ou acheté à partir d'une source externe, le prix serait calculé différemment. Essentiellement, je dois copyr-coller le poids et le prix pour chaque sous-produit inclus dans le produit et déterminer quelle est la source.

Je souhaite que Excel vérifie les calculs précédemment effectués dans le même dossier (tous les classurs différents) et s'il trouve une cellule dans l'un des classurs, puis copyz-collez le poids, le prix et la source dans le classur actuellement ouvert. Je suis complètement perdu quant à la façon de comparer les cellules et si une correspondance est trouvée, puis copyz-la au bon endroit. Je crois que .Find et .FindNext pourraient être utiles ici, mais je ne suis pas tout à fait sûr de leur utilisation.

Voici un exemple de la façon dont mes données sont structurées:

Et c'est ce que j'ai trouvé jusqu'ici:

• Existe-t-il un moyen de générer une string qui peut être collée dans Excel avec un formatting générique (c.-à-d. Balises, interruptions de ligne dans la cellule)
• comment append quelques données de colonnes et les copyr dans un autre file Excel dans une colonne
• Comment replace un caractère spécifique dans la colonne A en valeurs dans la colonne B dans Excel?
• Copier et coller la rangée et la colonne Selon la valeur de la cellule
• Copiez une plage à partir d'un classur et collez dans une feuille d'une autre VBA

Sub RunCodeOnAllXLSFiles() Dim lCount As Long Dim wbResults As Workbook Dim wbCodeBook As Workbook Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False On Error Resume Next Set wbCodeBook = ThisWorkbook With Application.FileSearch .NewSearch 'Change path to suit .LookIn = "C:\ahjualune\stuff" .FileType = msoFileTypeExcelWorkbooks 'Optional filter with wildcard .Filename = "*NAV*.xls*" If .Execute > 0 Then 'Workbooks in folder For lCount = 1 To .FoundFiles.Count 'Loop through all 'Open Workbook x and Set a Workbook variable to it Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0) 'DO YOUR CODE HERE With ActiveSheet For Each c In .Range("B2:B90").Cells ' problematic place If c.Value = Then End If Next c End With wbResults.Close SaveChanges:=False Next lCount End If End With On Error GoTo 0 Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True End Sub 

• Copiez les cellules dans une ligne vers une autre feuille en considérant un numéro de reference unique
• Comment copyr une cellule d'une feuille de calcul vers une autre en fonction des critères de la feuille cible
• Copiez chaque ligne qui existe dans une list différente
• Comment copyr xlsx-File sans le verrouiller pour Excel
• Code pour automatiser la copy de la sélection sur un nouveau file et sauvegarde automatique

 range("A2").select dim sSource as ssortingng dim dPrice as decimal Dim dWeight as decimal dim dtotal as decimal Do Until ActiveCell = "" sSource = ActiveCell.Offset(0,8).value dprice = Activecell.offset(0,7).value Activecell.Offset(1,0).Select etc..... when your source changes write out to a column to the right...or something like that Loop