Chiffres qui se suivent

[paskikic]

Bonjour, les xlnautes

j aimerais savoir si il y a un moyen de retrouver parmi une feuille toute les lignes ou les chiffres se suivent et de dire combien de chiffre se suive ainsi que da colore les n°.

Un truc dingus a faire pour moi mais pour les xlnaiutes je pense que c est un super defi

voir mon exemple ca sera plus simple( enfin pour comprendre car pour le realiser moi suis dans les choux.

merci a vous

 

[CISCO]

Re : Chiffres qui se suivent

Bonjour

Combien de colonnes as tu dans ton fichier réel ?

@ plus

 

[CISCO]

Re : Chiffres qui se suivent

Bonjour

Essayes avec

=SOMME(SI((A33+1=B3:E3)*(B3:E3+1<>C3:F3);2;SI(A33+1=B3:E3;1;0)))

en matriciel, donc à valider averc Ctrl+maj tempo+entrer

@ plus

 

[paskikic]

Re : Chiffres qui se suivent

slt, CISCO

ton code ne marche pas, il m indique 0 alors que sur la premiere ligne il y a s nombres qui se suivent.

sur ma liste j ai un peu pres 7500 lignes
merci de tes efforts quand meme

 

[R@chid]

Re : Chiffres qui se suivent

Bonjour @ tous,
quelque soit le nombre de colonnes, en F3 :

=SOMMEPROD(N((PETITE.VALEUR(A3:E3;LIGNE(INDIRECT("2:"&NB(A3:E3))))-PETITE.VALEUR(A3:E3;LIGNE(INDIRECT("1:"&NB(A3:E3)-1)))=1)))>0

@ tirer vers le bas


Attention, en ligne 4, on a 21 et 22 donc ça doit être VRAI et pas FAUX.


@ + +

 

[paskikic]

Re : Chiffres qui se suivent

slt R@chid

super et c est vrai ya une erreur sur mon exemple

merci a toi, mais dit moi vu que je rajoute des lignes si je met ton code mon classeur va etre lourd tu n aurais pas la meme chose mais en VBA par hazard. tu serais un chef.

merci a toi et a tout les autres qui se creusent le cerveau

 

[R@chid]

Re : Chiffres qui se suivent

Re,
désolé, je peux pas t'aider en VBA, mais surement une âme charitable va passer par la pour te donner de l'aide.


@ + +

 

[Carnage029]

Re : Chiffres qui se suivent

Voila un essai en VBA en revanche tu as mis une ligne fausse alors qu'il y a deux chiffres consecutifs, de plus ma fonction affiche 1 si c'est faux et non pas 0 (1 chiffre consecutif)

PS : si jamais tu change la fonction pour ne plus prendre une range en ligne mais en colonne, il faut modifier le code...

PS 2 : Si jamais tu essaye de gagner au loto, il faut juste jouer les chiffres les moins joues et statistiquement moins perdre que les autres, mais quand meme perdre

PS 3: mhh ma fonction a des soucis pour 2 chiffres consecutifs uniquement, je vais revoir dans l'aprem (Paris Time -5 pour moi)

 

[job75]

Re : Chiffres qui se suivent

Bonjour paskikic, R@chid,

2 fonctions VBA dans le fichier joint, à placer dans un module standard :

Function SeSuivent(r As Range) As Boolean
Dim t, i%
t = r 'matrice, plus rapide
For i = 1 To UBound(t, 2)
 If Application.CountIf(r, t(1, i) - 1) Or _
   Application.CountIf(r, t(1, i) + 1) Then _
     SeSuivent = True: Exit For
Next
End Function

Function CompteSeSuivent%(r As Range)
Dim t, i%
t = r 'matrice, plus rapide
For i = 1 To UBound(t, 2)
 If Application.CountIf(r, t(1, i) - 1) Or _
   Application.CountIf(r, t(1, i) + 1) Then _
     CompteSeSuivent = CompteSeSuivent + 1
Next
End Function

Edit : bonjour Carnage029, je vous avais oublié.

A+

 

[CISCO]

Re : Chiffres qui se suivent

Bonsoir

slt, CISCO

ton code ne marche pas, il m indique 0 alors que sur la premiere ligne il y a s nombres qui se suivent.

1 6 5 8 7, tu appelles ça des nombres qui se suivent ! Pour moi, 5, 6, 7 et 8 se suivent, pas l'exemple que tu donnes, qui comprend bien ces valeurs, mais dans le désordre.

Conclusion, comme d'hab : Cela aurait été mieux si tu avais été plus précis dans ta demande et si tu avais mis les résultats attendus sans erreur.

@ plus

 

[job75]

Re : Chiffres qui se suivent

Re, salut CISCO, je t'avais oublié aussi

Autre solution par formule Excel :

=SOMMEPROD(SIGNE(NB.SI($A3:$E3;$A3:$E3-1)+NB.SI($A3:$E3;$A3:$E3+1)))>0

Fichier joint.

A+

 

[paskikic]

Re : Chiffres qui se suivent

re
merci a tous et surtout a toi Carnage029
c est super

 

[R@chid]

Re : Chiffres qui se suivent

Re,
Salut tout le monde,
Salut Job75, j'ai bien aimé la NB.SI()

@ paskikic :

merci a tous et surtout a toi Carnage029

As-tu bien vérifié la fonction personnalisée de l'ami Carnage029 ?
Tu n'as pas remarqué qu'il y a un petit problème avec ?
Elle renvoie VRAI pour la ligne 4 où il y a 21 et 22 comme valeurs consécutives, et par contre elle renvoie FAUX pour la ligne 7 où il y 2 et 3.


@ + +

 

[Carnage029]

Re : Chiffres qui se suivent

Effectivement, il y avait juste un bog,

J'ai corrige (code ci dessous)
Le fait est que j'avais compris que le cahier des charges etaient consecutifs mais pas forcement tires consecutivement,

Par exemple sur la suite 5 6 9 7 8 il y a 5 chiffres consecutifs (selon moi)

Function myTest(myRange As Range, output As String)

If output = "bool" Then myTest = False
If output = "number" Then myTest = 0

Dim r As Integer
r = myRange.Columns.Count

Dim ary()
ReDim ary(r)
ary = myRange

Dim buffer

' Sort
For i = 1 To r
    For j = 1 To r
        
        If (ary(1, i) > ary(1, j)) Then
            buffer = ary(1, i)
            ary(1, i) = ary(1, j)
            ary(1, j) = buffer
        End If

    Next j
Next i

' Calculate

Dim myC As Integer
Dim mymax As Integer
myC = 1
mymax = 0

For i = 1 To r - 1
    For j = i + 1 To r
        
        If ary(1, i) - ary(1, j) = myC Then
            myC = myC + 1
        Else
            myC = 1
        End If
        mymax = Application.WorksheetFunction.Max(myC, mymax)

    Next j
Next i

If output = "bool" Then
    If mymax = 1 Then
        myTest = False
    Else: myTest = True
    End If
End If
If output = "number" Then myTest = mymax

End Function

PS: Sur 200 000 simulations de tirage au loto (1 a 50), les chiffres consecutifs sont comme suit:
Aucun chiffre consecutifs 64.85%
Deux chiffres consecutifs 33.02%
Trois chiffres consecutifs 2.03%
Quatre chiffres consecutifs 0.11%
Cinq zeros cas dans ma simulation

 

[paskikic]

Re : Chiffres qui se suivent

re Carnage029

dit comment y marche ta fonction moi j y met en F3 =myTest(A3:E3;number) et ca me met valeur elle est mon erreur tu sais suis un peu nul en vba je debute et ton code est un peu complexe merci de ton aide.