Création de noms originaux par mix de radicaux

[Philippe Buteau]

Bonjour à vous grand(e) spécialiste d'Excel,

Ce bijou informatique issue du génie humain et placé dans des mains expertes aiderait-il le parfait ignorant que je suis à automatiser le mélange de mots (ou radicaux, syllabes,etc.) ?

Par exemple:
A partir d'une liste infinie et évolutive:
image
pix
pixel
info
action
etc.
Afficher toutes les combinaisons (par paires uniquement!) ?:
imagepix
imagepixel
imageinfo
imageaction
piximage
pixpixel
pixinfo
pixaction
etc.

A+
Philippe

Tout bonheur commence...par un petit déjeuner tranquille.
Somerset Maugham

 

[edelweisseric]

Bonsoir Philippe

Rien de plus facile !!!!! Enfin...

Où veux tu en venir, car il se peut qu'il y ai plusieurs solutions ?

Cordialement

 

[Hervé]

Bonsoir philippe, eric

une proposition en pièce jointe via vba et cette macro :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Integer, j As Integer
Dim ligne As Integer

tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
ligne = 1

For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
                If Not i = j Then
                        Cells(ligne, 3) = tablo(i, 1) & tablo(j, 1)
                        ligne = ligne + 1
                End If
        Next j
Next i

               

End Sub

salut [file name=Classeur1_20060304002301.zip size=8176]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060304002301.zip[/file]

 

[Philippe Buteau]

Alors là Eric....je sais pas quoi dire...je suis sur le cul!
C'est puissant, élégant, et en apparence d'une telle simplicité.
Non vraiment je suis épaté.

J'ai collé ma liste de 58 radicaux, j'ai cliqué, ça a pédalé pendant disons...25 secondes et ça m'a sorti une superbe liste de 3422 noms composés.
Bon ya du tri à faire, tout n'est pas exploitable, mais quel outil!
Pour le designer que je suis c'est une mine d'or.

Bon ya juste un petit truc, mais là j'ai l'impression d'exagérer.

Alors voilà, tous les noms composés s'affichent dans la même colonne, et pour la lecture à l'écran c'est pas terrible, faut une formation de garçon d'ascenseur ;-)

Yaurait pas un autre petit truc (aussi simple et rapide que le précédent) pour que l'affichage se fasse en colonnes juxtaposées de la même hauteur (moins une cellule) que ma colonne de départ?

A+

Philippe

Nul ne rencontre deux fois l'idéal. Combien peu le rencontrent même une fois!
Oscar Wilde

 

[Hervé]

BOnjour philippe, eric

Bon, je me permet de répondre à la place d'eric, j'espère qu'il ne m'en voudra pas.

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Integer, j As Integer
Dim ligne As Integer, derligne As Integer
Dim colonne As Byte

derligne = Range('a65536').End(xlUp).Row
tablo = Range('a1:a' & derligne)
ligne = 1: colonne = 3

For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
                If Not i = j Then
                        Cells(ligne, colonne) = tablo(i, 1) & tablo(j, 1)
                        ligne = ligne + 1
                        If ligne > derligne - 1 Then colonne = colonne + 1: ligne = 1
                End If
        Next j
Next i
End Sub

je suis surpris que ce code mette 25 secondes, c'est hyper long.

par contre, je ne sais pas si ca va etre plus pratique de travailler sur 64 colonnes au lieu de 3200 lignes.

salut