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

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

Votre réponse

2 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 7 nov. 2007 à 14:32
3
Merci
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

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Commenter la réponse de jrivet
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Dernière intervention
22 août 2014
- 7 nov. 2007 à 14:32
0
Merci
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.