Discussion :

[totor92290]

Bonjour à tos,
Gros problem sur excel et en cherchant sur google rien qui ne réponde à mon besoin!
J'ai une chaine de caractères:
ECFST
je voudrais produire toutes les possibilities possibles.
J'ai bien trouvé des macro qui me renvoyaient toutes les combinaisons mais toujours avec tous les caractères:
ECFST
EFSTC
ESTCF
...
Il me faudrait aussi les toutes les combinaisons possibiles avec 1 caractère / 2 caractères / 3 caractères / 4 caratères / 5 caractères
ECFST
E
EC
CE
EF
FE
ES
SE
ET
TE
C
CF
FC
...
ECF
EFC
CFE
CEF
...
Idem pour 4 et 5

Est ce possible?

Merci d'avance pour votre support!

[Docmarti]

Bonjour.

Ceci, en VBA, s'appelle Permutations et non Combinaisons. La combinaison en VBA est unique : elle utilise une seule fois les mêmes éléments.

Une fois que tu auras trouvé toutes les combinaisons uniques, tu pourras y faire des permutations.

[Mr Poulpe]

Bonjour,

J'ai poulpé le code suivant, essaie avec ça la procédure test :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Public Public_combine As Collection
 
Sub Combine(ByVal Char_list As Collection, Optional ByVal Str As String)
Dim c As String
Dim Tmp_str As String
Dim i As Integer
Dim Tmp_col As New Collection
 
If Char_list.Count > 0 Then
    For i = 1 To Char_list.Count
        Set Tmp_col = Col_copy(Char_list)
        Tmp_str = Str
        Tmp_str = Str & Tmp_col(i)
        Tmp_col.Remove i
        Call Combine(Tmp_col, Tmp_str)
    Next i
Else
    Public_combine.Add Str, Str
End If
 
End Sub
Function Col_copy(ByVal Col As Collection) As Collection
Dim v As Variant
Set Col_copy = New Collection
For Each v In Col
    Col_copy.Add v
Next v
End Function
 
 
Function Combinaison(Str As String) As Collection
Dim Liste_lettres As New Collection
Dim i As Integer
Dim v As Variant
 
Set Public_combine = New Collection
 
For i = 1 To Len(Str) - 1
    Liste_lettres.Add Mid(Str, i, 1)
Next i
 
Combine Liste_lettres
 
On Error Resume Next
For i = 1 To Liste_lettres.Count
    For Each v In Public_combine
        Public_combine.Add Left(v, i), Left(v, i)
    Next v
Next i
On Error GoTo 0
 
Set Combinaison = Public_combine
End Function
 
Sub test()
Dim Col As Collection
Dim i As Integer
Dim Str As String
Str = "ECFST"
 
Set Col = Combinaison(Str)
For i = 1 To Col.Count
    Debug.Print Public_combine(i)
Next i
 
End Sub

Bien cordialement,

Poulpe

[totor92290]

Merci beaucoup Monsieur Poulpe,

Question de débutant
J'ai fait copier de votre code mais comment l'activer? ou dois-je le coller?

Merci

[totor92290]

j'ai repris ce code que j'ai trouvé sur youtube !!! et que j'ai "coller" derrière un bouton !!
Si cela intéresse quelqu"un

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
Sub RunMe()
    Range("A1").Select
    Comb 26, 4, 1, " ' "
    For n = 90 To 65 Step -1
        repl = Chr(n)
        Range("A:A").Replace What:=n - 64 & " ", Replacement:=repl, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Next
    Range("A1").Select
End Sub
 
Sub Comb(ByVal n As Integer, ByVal m As Integer, _
        ByVal k As Integer, ByVal s As String)
    If m > n - k + 1 Then Exit Sub
    If m = 0 Then
        ActiveCell = s
        ActiveCell.Offset(1, 0).Select
        Exit Sub
    End If
    Comb n, m - 1, k + 1, s & k & " "
    Comb n, m, k + 1, s
End Sub

Malheureusement toujours la même quantité de digit, tous les cas, certes, mais sur 5 digits!

[Mr Poulpe]

Le code peut être modifié en modifiant la valeur de la variable "str" de la procédure test. Les combinaisons possibles seront ensuite disponibles dans la collection "Col".
Par exemple, pour afficher toutes les valeurs dans les cellules A1 à A# de la feuille 1 :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Public Public_combine As Collection
 
Sub Combine(ByVal Char_list As Collection, Optional ByVal Str As String)
Dim c As String
Dim Tmp_str As String
Dim i As Integer
Dim Tmp_col As New Collection
 
If Char_list.Count > 0 Then
    For i = 1 To Char_list.Count
        Set Tmp_col = Col_copy(Char_list)
        Tmp_str = Str
        Tmp_str = Str & Tmp_col(i)
        Tmp_col.Remove i
        Call Combine(Tmp_col, Tmp_str)
    Next i
Else
    Public_combine.Add Str, Str
End If
 
End Sub
Function Col_copy(ByVal Col As Collection) As Collection
Dim v As Variant
Set Col_copy = New Collection
For Each v In Col
    Col_copy.Add v
Next v
End Function
 
 
Function Combinaison(Str As String) As Collection
Dim Liste_lettres As New Collection
Dim i As Integer
Dim v As Variant
 
Set Public_combine = New Collection
 
For i = 1 To Len(Str) - 1
    Liste_lettres.Add Mid(Str, i, 1)
Next i
 
Combine Liste_lettres
 
On Error Resume Next
For i = 1 To Liste_lettres.Count
    For Each v In Public_combine
        Public_combine.Add Left(v, i), Left(v, i)
    Next v
Next i
On Error GoTo 0
 
Set Combinaison = Public_combine
End Function
 
Sub test()
Dim Col As Collection
Dim i As Integer
Dim Str As String
Str = "ECFST"
 
Set Col = Combinaison(Str)
For i = 1 To Col.Count
    sheets(1).cells(i,1).value = col(i)
Next i
 
End Sub

Poulpeusement,

Poulpe

[totor92290]

Merci Messir Poulpe
Impeccable!!

Non content d'être une quiche sous excel il en est de meme en math!!
64 possibilité pour 5 digits c'est normal?

Merci beaucoup

[Mr Poulpe]

Bonjour,

Spontanément je dirais non. Je pense que le nombre total de possibilités est AU MINIMUM égal à la factorielle de 5 (hors combinaisons de 4 chiffres et moins), soit 120.

Bien cordialement,

Poulpe

En fait je pense même que le nombre total de possibilité est égal à :
5! + 5*4*3*2 + 5*4*3 + 5*4 + 5.

Mais je ne suis pas sur à 100%.

Poulpe

[patricktoulon]

bonsoir

en fait si je me trompe pas pour 5 digits il y a 5 puissance 5 possibiliés prend ta calculette et fait le calcul

[patricktoulon]

re
Bonjour
en fait meme il te suffit de trouver toutes les possibilités avec 5 digits pour avoir toutes les combinaisons avec 1 ,2,3ou 4 en ne récupérant que le nombre de caracteres que tu veux

[Mr Poulpe]

Ce que j'ai fait dans mon code! De manière très laide avec un "On error resume next" ignoble mais c'est le principe. Je pense que j'aurais pu formuler ma fonction récursive de manière plus élégante afin d'inclure les résultats intermédiaires dans la liste des combinaisons possibles, mais j'y ai pas pensé sur le coup...