Combinaison exhaustive de mots clés

Bonjour à tous,

Je suis ingénieur de recherche et j'aurais une petite question pratique sur Excel (ou autre) qui me permettrait de gagner un certain temps pour mes recherches bibliographiques.

Je dispose de 85 mots clés que j'aimerais coupler par deux dans un premier temps puis par trois. Chaque mot doit être couplé avec les 84 autres. Y a-t-il une formule pour faire ça ?

Merci d'avance,

Camille L.

Bonjour et bienvenue sur le forum

Un essai à tester.

Pour les mots couplés 3 par 3 le nombre est trop grand pour mon PC qui cale avant le 30 000 ième : mémoire vive insuffisante apparemment...

Désolé !

Bye :!

8essai-v1.xlsm (16.68 Ko)

Bonsoir,

Sub essai2()
  a = Application.Transpose(Range("A2:A" & [A65000].End(xlUp).Row))
  b = Combi2(a)
  [D2].Resize(UBound(b), 1) = Application.Transpose(b)
End Sub

Function Combi2(a)
  Set d = CreateObject("scripting.dictionary")
  k = 0: Dim b()
  For i = LBound(a) To UBound(a)
    For j = LBound(a) To UBound(a)
      If i <> j Then
        temp = a(i) & " " & a(j)
        temp2 = a(j) & " " & a(i)
        If Not d.exists(temp2) Then
          k = k + 1
          ReDim Preserve b(1 To k)
          b(k) = temp
          d(b(k)) = ""
         End If
      End If
    Next j
  Next i
  Combi2 = b
End Function

Un autre exemple qui compte les citations de 2 mots en PJ

Boisgontier

2combinaisons2.xlsm (59.40 Ko)
Rechercher des sujets similaires à "combinaison exhaustive mots cles"