Formule ecart maxi

[choupette51]

Bonjour

Voici un exemple pour mieux comprendre la formule attendue.Regarde la pièce jointe ecartColonne.xls

merci d'avance à tous les intervenants.

 

[choupette51]

Re : Formule ecart maxi

Suite

Pour I6 donc le chiffre 4 écarts maxi 16
l'écart maxi ne peut pas dépasser 30 car il y a 30 sorties dans cette exemple
pour le 3 et le 16 l'écart (32)est supérieur de 2 lignes car jamais sortis
mais dans mon prog tout est rentré dans l'ordre sur 106 tirages.

 

[ROGER2327]

Re : Formule ecart maxi

Re...

Désolé, je comprends de moins en moins. Pour moi, un écart se définit entre deux nombres. Je n'arrive pas à comprendre ce que peut signifier l'écart de 4.
Je passe la main à plus malin que moi.​

ROGER2327

 

[choupette51]

Re : Formule ecart maxi

suite

Non le 4 c'est le numéro et son écarts est de 16 entre 2 sorties
il est sortie en ligne 8/12/14/16/et puis plus rien jusqu'a la ligne 32 donc écarts maxi de 16.
Une précision oublier de ma part
le calcul uniquement sur les colonnes de (B à F)
la colonne G est unique vous avez déja fait le calcul en VBA précédement.

 

[ROGER2327]

Re : Formule ecart maxi

Re...

Finalement, ce qui vous intéresse est-il de trouver le plus grand nombre de lignes successives ne contenant pas un nombre donné ?
Au cas où cela serait, essayez cette fonction :

[B][COLOR="DarkSlateGray"]Function LTir(r As Range, v) As Long
Dim oDat, l As Long, c As Long, w As Long
   Set r = Intersect(r, Sheets(r.Parent.Name).UsedRange) 'pour réduire la plage aux données utiles.
   ReDim oDat(1 To r.Rows.Count, 1 To r.Columns.Count)
   For l = 1 To UBound(oDat, 1) 'parce que la définition de 'Range' n'est pas univoque.
      For c = 1 To UBound(oDat, 2)
         oDat(l, c) = r.Cells(l, c)
      Next c
   Next l
   For l = 1 To UBound(oDat, 1)
      For c = 1 To UBound(oDat, 2)
         If oDat(l, c) = v Or IsEmpty(oDat(l, c)) Then Exit For
      Next c
      If c > UBound(oDat, 2) Then w = w + 1 Else LTir = Application.Max(LTir, w): w = 0
   Next l
   LTir = Application.Max(LTir, w)
End Function[/COLOR][/B]

Si ce n'est pas cela, expliquez clairement ce que vous voulez. Merci d'avance.​

ROGER2327

 

[choupette51]

Re : Formule ecart maxi

suite

Finalement, ce qui vous intéresse est-il de trouver le plus grand nombre de lignes successives ne contenant pas un nombre donné ?
Au cas où cela serait, essayez cette fonction :

ok Nouvelle macro
pour l'affichage doit je faire cette demande
=lseq($B$3:$F$32;A3)
pour l'énoncer de votre question Oui

 

[ROGER2327]

Re : Formule ecart maxi

Re...

pour l'affichage doit je faire cette demande
=lseq($B$3:$F$32;A3)

La nouvelle fonction que je vous ai envoyée s'appelle LTir :

Function [COLOR="Red"][B]LTir[/B][/COLOR](r As Range, v) As Long
...

Pour l'utiliser, écrire :

=[B]LTir[/B]($B$3:$F$32;A3)

ROGER2327

 

[Lii]

Re : Formule ecart maxi

Salut,

une proposition hors formule (sinon le recalcul risque de durer avec un nombre de lignes conséquent)
et avec la définition de l'écart d'un numéro suivante : nombre de tirages précédents sans ce numéro (à partir du dernier tirage).

 

[JeanMarie]

Re : Formule ecart maxi

Bonjour tout le monde

Formule matricielle, à valider par les touches Ctrl+Shift+Entrée.
Sur la base du fichier de Lii

=MAX(FREQUENCE(LIGNE($2:$31);SI($B$2:$G$31=J2;LIGNE($2:$31))))-1

Lii, pour las valeurs retournées de l'écart, nous n'avons pas compris la même chose, tu calculs l'écart entre le dernier tirage et le tirage à venir, nous calculons (ou je calcule) l'écart max de la valeur dans tous les tirages connus, ainsi que le tirage à venir.

@+Jean-Marie

 

[choupette51]

Re : Formule ecart maxi

Bonjour à tous

Un très grand Merci à ROGER pour ça patiente pour mes énoncé un peu vague
les 2 modules VBA fonctionne comme prévu.
Merci lii pour cette nouvelle macro .Je ne l'est pas encore pratiquer.
Merci également JeanMarie pour cette nouvelle formule matricielle.
vous avez été très nombreux sur ce sujet à me répondre merci à tous.
ce Forum est vraiment formidable.,et compétant. MERCI 😉