Recherche d'un mot commun à partir de deux colonnes et retour de la valeur

Ce VBa va le faire

N'oubliez pas de faire une sauvegarde de votre fichier au cas où ! (Il n'y a pas d'option d'annulation dans VBa).

Puisque vous avez des lignes vides, mais que vous connaissez le nombre de lignes, vous pouvez utiliser ce code NON TESTÉ.

Option Explicit
Sub doTheThing()

Dim row As Integer
row = 1

Dim totalRows as Integer
totalRows = 7000                      'Change the number to the total rows

for row = 1 to totalRows 

    Dim splitty() As String
    splitty = Split(Range("B" & row), ",")
    Dim i As Integer

    For i = 0 To UBound(splitty)
        Dim sp As String
        sp = splitty(i)
        If InStr(Range("A" & row).Value, Trim(sp)) Then
            Range("C" & row).Value = Range("C" & row) & sp & " "
        End If

    Next i

Next row

End Sub

Comment ajouter VBA dans MS Office ?

Avant

Après