XL 2016 Trouver nombre de combinaisons de lettres

[Etoto]

Hello à tous,

Je demande de nouveau de l'aide sur le forum pour une question que je me pose. Est-ce possible de faire qu'Excel renvoie toutes les combinaisons possible d'anagrammes d'un mot ou nom ?

Exemple :

J'ai sur le fichier joint le prénom "Romain" et j'aimerai qu'Excel en colonne B renvoie tous les anagrammes possible de ce nom (sans doublons) comme j'avait déjà commencé en colonne B. J'avait utilisé la fonction Anagramme de @Magic_Doctor mais comme la fonction ALEA, elle renvoie des doublons.


Merci d'avance

 

[Etoto]

je sais pas chez mois il ne se passe rien quand je clique sur le bouton

Si la chaine entrée est Etoto, l'outil renvoie 30 combinaisons, les doublons ont été ignorés.

Ha bon ? Chez moi c'est nickel et on dirait que cela fonctionne aussi chez @sylvanu.

C'est bizarre.

 

[patricktoulon]

chez moi la colonne "C" reste vide

 

[sylvanu]

 

[Etoto]

chez moi la colonne "C" reste vide

Normalement, c'est la colonne A qui se remplit.

 

[Etoto]

Regarde la pièce jointe 1114059

Tu utilises quel logiciel pour faire ses captures vidéos d'écran ?

 

[sylvanu]

ApowerRec.

ApowerREC – Meilleur Enregistreur d'écran pour PC et Mobile

ApowerREC est un logiciel d'enregistreur d’écran multiplateforme qui peut être utilisé pour enregistrer tous les contenus affichés sur l'écran de votre Windows / Mac et sur les appareils Android et iOS.

www.apowersoft.fr

Je trouve que c'est celui qui permet d'obtenir des GIF très légers.

 

[sylvanu]

Pour être précis, dans la macro, les doublons ne sont pas supprimés mais simplement pas créés. Avec :

Dico(Prefixe & Texte) = Prefixe & Texte

Si Préfixe & Texte sont déjà dans le dico une nouvelle entrée n'est pas créée.

 

[patricktoulon]

ok j'ai testé le post 2 tout les fichiers celui avec la colonne "A" fonctionne
vérifier quand même de 120 à 30 je me demande si il ne manque pas des combi
mais j'avoue elle est pas mal la combi récursive
ça me rappelle un des algo que j'ai cité plus haut , il faudrait que je retrouve ça sur DVP

 

[patricktoulon]

ok j'ai pas bien encore pigé comment la boucle s'arréte
mais je sais que ca se joue avec le if else et le la boucle len (chaine)
en debug je n'atteins jamais 0 et 1 je l’atteint plusieurs fois ,par contre 5 je l'atteins 1 fois en dernier

en attendant je vous l'ai transformé en fonction(toujours récursive)

Sub AppelCombi2()
    Dim TexteCombi As String, Tablo
    TexteCombi = Application.InputBox(prompt:="Texte combinaison")
    Cells.ClearContents
    Tablo = StringCombinaison("", TexteCombi, True)
    Cells(1).Resize(UBound(Tablo)) = Application.Transpose(Tablo)
End Sub


Function StringCombinaison(prefixe$, chaine$, Optional raz As Boolean = False)
    Static dic As Object
    Dim i As Long
    If dic Is Nothing Or raz = True Then Set dic = CreateObject("Scripting.Dictionary")
    If Len(chaine) <= 1 Then
        dic(prefixe & chaine) = prefixe & chaine
    Else
        For i = 1 To Len(chaine)
            StringCombinaison prefixe & Mid(chaine, i, 1), Left(chaine, i - 1) & Right(chaine, Len(chaine) - i)
        Next i
    End If
       StringCombinaison = dic.keys
End Function

 

[Etoto]

en attendant je vous l'ai transformé en fonction

Merci beaucoup !!!

 

[Etoto]

@patricktoulon, je n'arrive pas a comprendre ta fonction. Arriverais-tu à me montrer un fichier exemple ?

 

[patricktoulon]

re

 

[patricktoulon]

après je le redis c'est pas le meilleur algo car des que l'on va vers entre 7 et 10 caractères voir plus
ben le moulin ne s’arrête plus
j'ai essayé le mot "identiquement" (soit 13 lettres ) et donc après 22 minutes d'attente , j'ai du avorter excel car il n'avait toujours pas fini , je suis pas sur qu'il se serait arrêté un jour

donc en ce qui me concerne c'est WRONG WAY!!!

 

[Etoto]

entre 7 et 10 caractères voir plus
ben le moulin ne s’arrête plus

Bas le positif est que mes strings les plus longs sont de 6 caractères, donc ça marche bien. Mais c'est sur qu'avec un "anticonstitutionnellement" ou un "patricktoulon", ça risque de mouliner . Heureusement que je n'ai pas un prénom ni un pseudo trop long . Et c'est normal Excel a 1'048'576 lignes, alors que le nombres de combinaisons de "patricktoulon" sans compter les lettres identiques est de 6'227'020'800 .

 

[patricktoulon]

et oui le temps de travail est exponentiel
*7 a peu prés (par étage de puissance)
et c'est bien ce que je pensais le chiffre phare de excel est fatal c'est le chiffre 9
9 caractères et c'est fini ça ne s’arrête plus
j'avais a l'époque (il y a pas mal d'année )fait cela en javascript et utilisé ça dans un scriptcontrol et ça allais vachement plus vite
il faudrait que je retrouve ce truc dans mes archives ou dans DVP