Excel - renvoie plusieurs valeurs pour chacune d'une liste de valeurs

Cette macro utilisant VBA fera l'affaire :

Public Sub ingredients()
    Dim wkb As Workbook
    Dim wks, wks1 As Worksheet
    Set wkb = ThisWorkbook
    Set wks = ActiveSheet
    wks.Application.ScreenUpdating = False
    mastername = "Master"
    totalsheets = wkb.Worksheets.Count
    For i = 1 To totalsheets
        Set wks1 = wkb.Worksheets(i)
        wks1name = wks1.Name
        If wks1name = mastername Then
            i = totalsheets
        Else
            Set wks1 = Nothing
        End If
    Next i
    reviewing = True
    activerow = 1
    While reviewing
        tradename = wks.Cells(activerow, 1)
        If tradename = "" Then
            reviewing = False
        End If
        reviewingmaster = True
        activerowmaster = 1
        found = 0
        While reviewingmaster
            sciname = wks1.Cells(activerowmaster, 1)
            If sciname = "" Then
                reviewingmaster = False
            End If
            If sciname = tradename Then
                found = found + 1
                If found > 1 Then
                    activerow = activerow + 1
                    wks.Rows(activerow).Insert
                End If
                wks.Cells(activerow, 2) = wks1.Cells(activerowmaster, 2)
                wks.Cells(activerow, 3) = wks1.Cells(activerowmaster, 3)
            End If
            activerowmaster = activerowmaster + 1
        Wend
        activerow = activerow + 1
    Wend
    wks.Application.ScreenUpdating = True
    theend = MsgBox("Finished on " & wks.Name, vbInformation)
End Sub

Vous devez ouvrir Macros /VBA, insérer un module sous le nom de Ce manuel de travail et collez le code sur le côté droit.

Gardez à l'esprit ces éléments :

• Le code s'exécute sur la feuille de calcul active.
• Chaque nouveau nom scientifique, en plus du premier pour un nom commercial, est ajouté dans une nouvelle ligne.
• Le code est prêt à fonctionner tant qu'il n'y a pas de cellules vides dans la colonne A des feuilles de calcul.
• Comme cela suppose que le nom de la feuille de calcul de la liste principale est Maître vous devez modifier la ligne mastername="Master" au nom approprié.
• La définition de 500 noms commerciaux et 5000 noms scientifiques lui a pris 23 secondes.