Fonction COMBIN à plusieurs niveaux

Version imprimable

10/03/2012, 11h27
webisfun

Fonction COMBIN à plusieurs niveaux

Bonjour,
Une combinaison des 26 lettres + les 10 chiffres de 0 à 9 (=36 caractères différents), regroupés pas 5 donne avec la fonction combin(36;5) = 376992
(la position des caractères parmi les 5 n'a pas d'importance)

De ce total, comment calculer le nombre de répartitions :
0 lettres et 5 chiffres
1 lettre et 4 chiffres
2 lettres et 3 chiffres
3 lettres et 2 chiffres
4 lettres et 1 chiffres
5 lettres et 0 chiffre

Existe-t-il une fonction Excel plus complète ? Merci pour vos réponses

Bonjour,
Je ne suis pas spécialiste des fonctions mais une fonction personnalisée doit pouvoir être faite à partir de cette idée, en considérant au départ 26 lettres et 10 chiffres :

Code:

1
2
3
4
5
6
7
8
9
Sub COMBINAISONS()
Dim Total As Long, nbre_Lettres As Long, nbre_Chiffres As Long
Total = InputBox("total à calculer", , 5)'5 dans ton exemple
nbre_Lettres = InputBox("nombre de lettres")'nombre de lettres choisies
nbre_Chiffres = Total - nbre_Lettres
With WorksheetFunction
  MsgBox .Combin(.Combin(26, nbre_Lettres) * .Combin(10, nbre_Chiffres), Total)
End With
End Sub

Après réflexion, une fonction personnalisée :

Code:

1
2
3
4
5
6
7
Function COMBINAISONS1(Total As Long, nbre_Lettres As Long)
Dim nbre_chiffres
nbre_chiffres = Total - nbre_Lettres
With WorksheetFunction
  COMBINAISONS1 = .Combin(.Combin(26, nbre_Lettres) * .Combin(10, nbre_chiffres), Total)
End With
End Function

J'espère ne pas faire d'erreur !!

14/03/2012, 18h55
webisfun

Bonsoir,

Merci Casefayere pour ton travail mais je n'ai aucun résultat avec aucune des deux. La "function" me renvoie #valeur et la macro "combinaisons" ne marche pas. Mais j'essaie de cogiter la-dessus.