Discussion :

[moimemessssssssss]

bonsoir

je souhaiterais classer des mots dans un ordre quelconque via une fonction excel.

pour exemple je prends les chiffre de 1 à 5 ( au lieu de mots ici)
se trouvant respectivement dans les A1,A2... A5.
je souhaiterais avoir toutes les combinaisons possibles de classement de ces chiffres :
1er choix : le 2 dans A1,le 3 dans A5, le 1 dans A2, le 5 dans A4, le 4 dans A3
2eme choix : le 2 dans A5,le 3 dans A4, le 1 dans A3, le 5 dans A2 le 4 dans A1
et ainsi de suite jus'à avoir toutes les possibilités.

savez vous comment faire cela si c'est possible ( sans le faire manuellement : l'idée est de le généraliser à n mots)?

merci de votre aide et j'espère avoir été clair.

[Pierre Fauconnier]

Bonsoir.

Si j'ai bien compris, tu souhaites obtenir la liste des permutations possibles des mots.

Pour n mots, tu auras n! permutations possibles, ce qui devient vite énorme (pour 3 mots, tu as six permutations possibles, pour 6 mots, tu en as 720...).

Les fonctions d'Excel ne permettent pas cela et tu dois donc t'orienter vers de la programmation en VBA...

[moimemessssssssss]

bonsoir,

oui il est bien question de permutation ici
et le faire en code vba c'est long et difficile?
car j'avais commencé à intégrer les mots dans une variable variant et la parcourir mais cela ne amrche pas
j'ai aussi essayé de d'incrementer une variable i a chaque fois pour prendre les mots mais je n'ai que quelques cas....
merci de l'aide apportée

[moimemessssssssss]

bonjour

j'ai essayé un autre méthode qui est de considerer le nimero de ligne d'un mot et de l'incrementer de un à chaque fois et revenir a 1 si ce nombre dépasse le nombre total de mot mais cela ne marche pas bien car des mots sont oubliés ou effacés...

quelqu'un aurait il une piste?

merci

[tedo01]

Bonjour,
Un petit sujet sur le forum à propos du calcul de combinaisons :ici

[Montor]

Si tu as l'abitude à manipuler d'autres base que le decimal c'est pas trop compliqué...
voici une petite exemple coté didactique adapte le selon tes besoins

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
23
24
25
26
27
28
29
30
31
32
Option Explicit
Option Base 0
Private Sub CommandButton1_Click()
Dim Tokens
Dim Sys As Long
Dim Idx As Long
Dim dg As Long
Dim NDigit As Long
Dim V As Long
Dim Msg As String
 
NDigit = 2 'nombre de chiffres
 
'Tokens = Array("0", "1")'binnaire
'Tokens = Array("0", "1", "2", "3","4","5","6","7")'octale
'Tokens = Array("0", "1", "2", "3","4","5","6","7","8","9")'decimale
'Tokens = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") 'hexadecimal
Tokens = Array("A", "B", "C", "D")
 
Sys = UBound(Tokens) + 1
For Idx = 0 To (Sys ^ NDigit) - 1
   V = Idx
   Msg = ""
   For dg = 1 To NDigit
      Msg = Tokens(V Mod Sys) & Msg
      V = V \ Sys
      'If V = 0 Then Exit For 'supprime les zéros devant les nombres positifs 00001
   Next
   MsgBox Msg & " valeur scalaire : " & Idx
Next
 
End Sub

Regarde ici et ici