dissoce
Messages postés1Date d'inscriptionmercredi 7 novembre 2007StatutMembreDernière intervention 7 novembre 2007
-
7 nov. 2007 à 14:03
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDerniè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)
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 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.
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 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 ?)