Bonjour à tous,

Je veux, à partir des chiffres 1,2,3,4, obtenir toutes les combinaisons possibles de nombre.

J'ai donc le programme suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
dim liste_de_base,resultat
 
' Initialisation
liste_de_base = "1234"
 
Sub traitement(chaine,liste)
	Dim nouvelle_chaine,nouvelle_liste
	If liste="" Then
		resultat = resultat & chaine & chr(13)
	Else
		For i=1 to Len(liste)
			nouvelle_chaine = chaine &  Mid(liste,i,1)
			nouvelle_liste = Replace(liste,Mid(liste,i,1),"")
			traitement nouvelle_chaine,nouvelle_liste
			nouvelle_chaine = ""
			nouvelle_liste = ""
		Next
	End If	
End Sub
 
traitement "1",Replace(liste_de_base,"1","")
Wscript.Echo resultat
qui marche très bien et me renvoie tout ceux qui commencent par 1, c'est-à-dire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
1234
1243
1324
1342
1423
1432
Or si je remplace dans la phase d'initialisation :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
' Initialisation
liste_de_base = "1234"
par

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
' Initialisation
liste_de_base = ""
taille = 4
For i=1 to taille
	liste_de_base = liste_de_base & i
Next
la variable liste_de_base prend toujours la valeur 1234 mais le programme me renvoie juste :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1234
Et je ne comprends pas pourquoi.