Discussion :

[oscar.cesar]

bonjour à tous
merci à tous pour les conseils
Dans le fichier joint, j'ai ecrit un code permettant detecter des series de numeros consecutifs present dans des combinaisons.
mais j'ai une erreur dans le resultat et je n'arrive pas trouver pourquoi ??

merci d'avance

[random]

ces deux fonctions pourraient t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Base 0
 
Function tri(ParamArray y()) As Variant
Dim macoll As New Collection
Dim index As Variant
Dim boucle As Integer
Dim tempo As Variant
Dim x As Variant
x = y
For index = 0 To UBound(x)
    For boucle = index To UBound(x)
        If x(index) > x(boucle) Then
        tempo = x(index)
        x(index) = x(boucle)
        x(boucle) = tempo
        End If
    Next boucle
Next index
tri = x
End Function
 
Function consecutif(x As Variant) As Variant
Dim increment As Variant
Dim index As Long
If UBound(x) = 1 Then
consecutif = increment
Exit Function
End If
increment = x(1) - x(0)
For index = 1 To UBound(x)
    If x(index) - increment <> x(index - 1) Then
    consecutif = False
    Exit Function
    End If
Next index
consecutif = True
End Function