Combinaison de deux lettres ou numeros...

[sihamelm]

Bonjour,
J'ai toutes une liste de caractère (environ 200) et je voudrais bien un programme qui me permettra de faire toutes les combinaisons possible de deux caractères seulement
j'ai cherché mais ce que je trouve c'est des combinaisons de tous les caractères
qlq un a une idée svp? Merci

 

[tdenfert]

Re : Combinaison de deux lettres ou numeros...

Bonjour,

avec ceci par exemple à tirer vers le bas environ 40000 ligne

=CAR(48+MOD(LIGNE(1:1);200))&CAR(49+ENT(LIGNE(1:1)/200))

 

[Modeste geedee]

Re : Combinaison de deux lettres ou numeros...

bonsour®
🙄pour 200 elements pris 2 à 2, il doit bien y avoir 39800 permutations possibles !!!

voir en pièce attachée un ébauche pour 90 éléments

 

[MichD]

Re : Combinaison de deux lettres ou numeros...

Bonjour,

Voici un exemple pour afficher toutes les combinaisons possibles
des 4 lettres suivantes : A, B, C, D

Le même principe peut-être utilisé pour un plus grand nombre de caractères.

Sub test()

Dim Arr(), Elt As Variant, T()
Dim C As Long, A As Long, B As Long

Arr = Array("A", "B", "C", "D")

For Each Elt In Arr
    For C = 0 To UBound(Arr)
        A = A + 1
        ReDim T(1 To A)
        B = B + 1
        T(A) = Elt & Application.Index(Arr, B)
    Next
    B = 0
Next

With Worksheets("Feuil1")
    .Range("A1").Resize(A) = Application.Transpose(T)
End With

End Sub

 

[Modeste geedee]

Re : Combinaison de deux lettres ou numeros...

Bonsour® Denis

../..
un exemple pour afficher toutes les combinaisons possibles
des 4 lettres suivantes : A, B, C, D
../..

🙄 moi j'avais compris :

toutes les combinaisons possible de deux caractères seulement

Parmi 200..

 

[MichD]

Re : Combinaison de deux lettres ou numeros...

Bonjour Modeste,

La question est de savoir si AA représente 2 caractères aux yeux du demandeur
ou s'il entend 2 caractères différents ?

 

[MichD]

Re : Combinaison de deux lettres ou numeros...

Dans le cas où 2 caractères différents sont obligatoires :

Sub test()

Dim Arr(), Elt As Variant, T()
Dim C As Long, A As Long, B As Long

 Arr = Array("A", "B", "C", "D")

For Each Elt In Arr
     For C = 0 To UBound(Arr)
        If Arr(C) <> Elt Then
            A = A + 1
            ReDim T(1 To A)
            B = B + 1
            T(A) = Elt & Application.Index(Arr, B)
        Else
            B = B + 1
        End If
     Next
     B = 0
Next

With Worksheets("Feuil1")
     .Range("A1").Resize(A) = Application.Transpose(T)
End With
End Sub