Identifier inversions de mots clé

Bonjour à tous !

Pardonnez moi si le sujet à déjà été traité mais je n'ai rien trouvé sur le site pour mon problème.

Je cherche une formule ou macro pour détecter des inversions de mots clés par exemple :

petit chat

chat petit

Avez-vous une solution ?

Merci bcp !

Salut SandraB,

Alors, on commence tout de suite par prendre de bonnes habitudes, stp :

• on fournit un fichier réaliste et conforme à la réalité ;
• on présente des données réelles sans tourner autour du pot ;
• on est complet et très précis : où chercher les infos, où placer les résultats, qui, que, quoi, comment, pourquoi.

Sauf... si tu fournis la boule de cristal!

A+

Bonsoir,

Avec le pgm joint , on retrouve les mots inversés.

Boisgontier

C'est la fonction Filter() qui permet de retrouver un ensemble de mots dans le désordre.

Dim f, choix(), Rng
Private Sub UserForm_Initialize()
   Set f = Sheets("bd")
   Set Rng = f.Range("a2:a" & f.[A65000].End(xlUp).Row)
   choix = Application.Transpose(Rng)
   Me.ListBox1.List = choix
End Sub

Private Sub TextBox1_Change()
   mots = Split(Trim(Me.TextBox1), " ")
   Tbl = choix
   For i = LBound(mots) To UBound(mots)
     Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
   Next i
   Me.ListBox1.List = Tbl
End Sub

Private Sub B_ok_Click()
  ActiveCell = Me.ListBox1
  Unload Me
End Sub

Boisgontier