Combinaison exhaustive de mots clés

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
c
camlevel
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 22 janvier 2019
Version d'Excel : 2013 FR

Message par camlevel » 22 janvier 2019, 17:37

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.
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 22 janvier 2019, 19:02

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 :!
essai v1.xlsm
(16.68 Kio) Téléchargé 8 fois
B
Boisgontierjacques
Membre fidèle
Membre fidèle
Messages : 470
Appréciations reçues : 108
Inscrit le : 5 octobre 2018
Version d'Excel : 2016

Message par Boisgontierjacques » 8 janvier 2020, 19:53

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
FrequenceMotCombi2.xlsm
(30.68 Kio) Téléchargé 2 fois
Combinaisons2.xlsm
(59.4 Kio) Téléchargé 2 fois
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message