XL 2016 Trouver nombre de combinaisons de lettres

Etoto

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #16

patricktoulon à dit:

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

Cliquez pour agrandir...

sylvanu à dit:

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

Cliquez pour agrandir...

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

C'est bizarre.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2021

• #17

chez moi la colonne "C" reste vide

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #18

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #19

patricktoulon à dit:

chez moi la colonne "C" reste vide

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #20

sylvanu à dit:

Regarde la pièce jointe 1114059

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #21

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #22

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

VB:

Dico(Prefixe & Texte) = Prefixe & Texte

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2021

• #23

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2021

• #24

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)

VB:

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

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #25

patricktoulon à dit:

en attendant je vous l'ai transformé en fonction

Cliquez pour agrandir...

Merci beaucoup !!!

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #26

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2021

• #27

re

 

Pièces jointes

• combistring.xlsm

  19.1 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2021

• #28

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!!! 😉

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2021

• #29

patricktoulon à dit:

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

Cliquez pour agrandir...

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 😱 😵 .

 

Dernière édition: 26 Août 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2021

• #30

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

 

Vote positif 0 Vote négatif