Trouver des mots à partir des lettres

R@chid · 14 Novembre 2015

Bonjour les amis,
je me permet de poser la question, espérant que ce que je veux soit réalisable sur Excel.
je veux un code VBA qui peut combiner des lettres pour faire des mots et d'en extraire juste les mots qui fonts partis du dictionnaire français.

je joins un fichier.

Merci d'avance

Marc L · 15 Novembre 2015

Re : Trouver des mots à partir des lettres

Bonjour !

Rachid, si tu disposes de Firefox ou de Thunderbird sur l'ordinateur,
tu peux directement utiliser le fichier texte de leur dictionnaire …

mapomme · 15 Novembre 2015

Re : Trouver des mots à partir des lettres

Bonsoir david84 , R@chid , à tous,

david84 à dit:
pour le problème des accents il faut juste une grande base de données avec des mots accentués pour faire marcher la macro de l'ami mapomme je pense.

Cliquez pour agrandir...

Non il faut que la procédure ne remplace pas les voyelles accentuées par celles non accentuées.
A+

J'ai construit la macro dans l'esprit du jeu télévisé "Des chiffres et des lettres" où on ne distingue pas les lettres accentuées des autres.

Si on veut tenir compte des lettres accentuées, il suffit de:

1) remplacer dans la macro :

VB:

Const avecAccent = "à â ä ç é è è ê ê ë ë ë î ï ô ö ù û ü"
Const SansAccent = "à â ä ç é è è ê ê ë ë ë î ï ô ö ù û ü"

par

VB:

Const avecAccent = ""
Const SansAccent = ""

2) rajouter les lettres accentuées minuscules dans la liste de validation nommée Alphabet

Errata : je viens de m'apercevoir qu'il y a des doublons dans la liste des lettres accentuées. On peut les ôter dans la constante avecAccent ainsi que leur lettre correspondante dans la constante sansAccent.

On devrait donc n'avoir que 15 lettres accentuées:

VB:

Const avecAccent = "â ä ç é è ê ë î ï ô ö ù û ü"
Const SansAccent = "a a c e e e e i i o o u u u"

R@chid · 16 Novembre 2015

Re : Trouver des mots à partir des lettres

Bonsoir,
merci mapomme c'est parfait

Merci Marc L, on peut aussi télécharger une base sur internet ce serait mieux.

@ + +

Trouver des mots à partir des lettres

R@chid

XLDnaute Barbatruc

Pièces jointes

Marc L

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Discussions similaires