Re : code vba combinaison 5 numéro sur 49
bonjour pierre jean
j'ai trouvé une vba sur le forum qui marche trés bien mais on augmentent progréssivement le nombre de combinaison ex:combi 20;5) puis 30;5 le problème est que arrivé a (43;5) j'ai le message suivent: erreur d'exécution '1004' :
Erreur définie par l'application ou par l'objet.
merci de votre aide
voici la vba :
Code :
Sub Extraction()
Dim n1%, n2%, n3%, n4%, n5%, t() As Integer
Dim L As Long
ReDim t(WorksheetFunction.Combin(18, 5) - 1, 4)
For n1 = 1 To 14
For n2 = n1 + 1 To 15
For n3 = n2 + 1 To 16
For n4 = n3 + 1 To 17
For n5 = n4 + 1 To 18
t(L, 0) = n1: t(L, 1) = n2: t(L, 2) = n3: t(L, 3) = n4: t(L, 4) = n5
L = L + 1
Next n5, n4, n3, n2, n1
Feuil1.[A1:E1].Resize(L) = t
End Sub