Remplissage d'un tableau de combinaison

Résolu
dissoce
Messages postés
1
Date d'inscription
mercredi 7 novembre 2007
Statut
Membre
Dernière intervention
7 novembre 2007
- 7 nov. 2007 à 14:03
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
- 7 nov. 2007 à 14:32
Bonjour,

Je suis actuellement à la recherche d'un VB sous excel qui me permetrai de remplir de façon automatique une matrice du type:
Je dispose de 5 trous rond et de 6 rond de couleur différentes, trouver toute les combinaisons possibles à classer dans une matrice...

En gros du boulot pas très compliqué (si on connait VB) mais très fastidieux si je m'y colle à la main (sans compter les risques d'erreur)

Merci d'avance pour la réponsse à mon problème :)

2 réponses

jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
7 nov. 2007 à 14:32
Salut,
Tiens voici comment trouver les combinaison.

Option Explicit

Private Sub FindCombi()
Dim i As Long
Dim NumIn As Integer
Dim j As Integer
Dim Combi() As Long
   ReDim Combi(0)
   For i = 12345 To 66666
       NumIn = 0
       For j = 1 To 6
           If IsInNumber(CStr(i), j) Then NumIn = NumIn + 1
       Next
       If NumIn = 5 Then
           Combi(UBound(Combi)) = i
           ReDim Preserve Combi(UBound(Combi) + 1)
       End If
           
   
   Next
   ReDim Preserve Combi(UBound(Combi) - 1)

End Sub<hr />

Private Function IsInNumber(Number As String, What As Integer) As Boolean
   IsInNumber = InStr(1, Number, CStr(What)) <> 0
End Function<hr />, ----
[code.aspx?ID=41455 By Renfield]
Te reste plus qu'a finir en associant une couleur à un chiffre.

@+: Ju£i?n
Pensez: Réponse acceptée
3
jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
7 nov. 2007 à 14:32
Pas clair du tout !

1) VB.Net n'est pas le VBA d'Excel
2) VB9 n'est pas non plus le VBA d'Excel

Tu développes finalement sous quoi ?

3) la question elle-même n'est pas claire ... Que cherches-tu à exprimer, exactement ?
Serait-ce toutes les combinaisons possibles de 5 éléments choisis parmi 6 (et dans un tel cas, indépendamment ou non de l'ordre ?) 
0