Remplissage d'un tableau de combinaison [Résolu]

dissoce 1 Messages postés mercredi 7 novembre 2007Date d'inscription 7 novembre 2007 Dernière intervention - 7 nov. 2007 à 14:03 - Dernière réponse : jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention
- 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 :)
Afficher la suite 

2 réponses

Répondre au sujet
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 7 nov. 2007 à 14:32
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jrivet
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 7 nov. 2007 à 14:32
0
Utile
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 ?) 
Commenter la réponse de jmfmarques

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.