Création d'un glossaire

Bonjour,

Je sollicite votre aide car j'ai créé un glossaire qui a le format suivant:

colonne A = mots

colonne B = définitions

Mon besoin est le suivant:

Je souhaite que dans la colonne C apparaissent, à côté de chaque définition, les mots présents dans la définition ET dans la colonne A.

Pour être sûr de m'être bien fait comprendre, je vous mets un exemple "bateau". L'idée est d'obtenir le résultat en rouge colonne C.

Je vous remercie d'avance de votre aide.

Salut Helder,

j'imagine que c'est possible avec formule mais ça,... connais pas trop!

En VBA, par contre...

Double-clic sur la feuille pour démarrer la macro!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData, tSplit
'
Cancel = True
Columns(3).ClearContents
tData = Range("A1:C" & Range("A" & Rows.Count).End(xlUp).Row).Value
'
For x = 1 To UBound(tData, 1)
    tSplit = Split(tData(x, 2))
    For y = 0 To UBound(tSplit)
        For Z = 1 To UBound(tData, 1)
            If tSplit(y) = tData(Z, 1) And x <> Z Then
                tData(x, 3) = tData(x, 3) & IIf(tData(x, 3) = "", tData(Z, 1), ", " & tData(Z, 1))
                Exit For
            End If
        Next
    Next
Next
Range("A1").Resize(UBound(tData, 1), 3).Value = tData
'
End Sub

A+

Merci curulis57 pour ta réactivité !

C'est presque bon (sinon ce n'est pas drôle) ^^.

En colonne A tous mes mots commencent par une majuscule et le reste en minuscule (par exemple: Avion, Voiture, Camion, Vélo, etc.).

Les mots qui me sont reportés en colonne C grâce à VBA ne sont que ceux écrits en colonne B strictement de la même manière.

Autrement dit si en colonne B, j'ai des définitions comportant les mots "avion", "camion" ou "vélo" (donc d'un format différent => sans majuscule) ils ne sont pas repris colonne C.

Je ne suis pas expert en VBA mais je pense que cela n'est pas compliqué à corriger, non ?

Encore merci en tout cas