Exemple pour 3 lettres
Dim i%,j%,k%,n% Dim S as String ,T(216) as String ' 216= 6^3
S="abcdef" n=1
for i=1 to 6 for j=1 to 6 for k=1 to 6 T(n)=Mid(S,i,1) & Mid(S,j,1) & Mid(S,k,1) n=n+1 next k next j next i
Tu obtiens les combinaisons dans un tableau que tu utilises comme tu veux après !
Je te laisse faire la suite pour 4,5 et 6 lettres....
|