XL 2013 Compteur de résultats consécutifs

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Mai 2017

• #2

Bonjour Pinguouinal, bonjour le forum,

Une solution VBA :

VB:

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableu des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim T As Integer 'déclare la variable T (Total)
Dim V As Integer 'déclare la variable V (Valeur)
Dim MV As Integer 'déclare la variable VM (Valeur max)

Set O = Worksheets("Sheet1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes es lignes I du tableau des valeurs TV
    If Abs(CDbl(TV(I, 2)) - CDbl(TV(I, 1))) >= 3 Then 'condition : si la valeur absolue de la différence ente des deux valeurs de la ligne est supérieure ou égale à 3
        T = T + 1 'incrémente T
        If T > 3 Then V = T: If V > VM Then VM = V 'si T est supérieur à 3 définit la valeur V, garde la plus grande valeur de V dans VM
    Else 'sinon
        T = 0 'réinitialise T
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
MsgBox VM 'affiche VM dans un message
End Sub

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 15 Mai 2017

• #3

Bonjour le Forum,
Bonjour pingouinal

a tester suivant ton exemple

Code:

=SOMMEPROD((A1:A7-B1:B7>=3)*((A2:A8="")+(A2:A8-B2:B8>=3))*1)

Cordialement

EDIT : Bonjour Robert désolé pour la collision pas rafraichi

 

Dernière édition: 15 Mai 2017

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Mai 2017

• #4

Bonjour Jocelyn,

Pas une collision, bien au contraire, un complément et un choix de plus pour Pingouinal !... Mais je te déteste quand même pour écrire des formules avec autant de facilité...

 

Vote positif 0 Vote négatif

P

pingouinal

XLDnaute Occasionnel

• 15 Mai 2017

• #5

Bonjour Robert, bonjour Jocelyn,

Merci beaucoup pour vos réponses.
La macro marche parfaitement mais j'avoue qu'idéalement une formule serait plus appropriée à la syntaxe et à l'utilisation de mon fichier. Je garde néanmoins cette solution sous le coude et surtout sa logique car elle pourrait m'aider pour d'autres fichiers.

J'ai donc testé la version formule, mais le résultat obtenu est 6. A priori elle compte donc l'ensemble des lignes pour lesquelles la valeur est >=3 et non pas les lignes consécutives.
Selon vous, est-il possible d'ajouter ce critère dans la formule?

D'avance merci

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 15 Mai 2017

• #6

Boujour Robert, et Pinguinal, Re Jocelyn,

Une proposition avec colonne supplémentaire , à adapter au fichier réel
Cordialement

 

Pièces jointes

• pingouinal.xlsx

  8.6 KB · Affichages: 43

Vote positif 0 Vote négatif

P

pingouinal

XLDnaute Occasionnel

• 15 Mai 2017

• #7

Bonjour Dugenou,

Merci pour la proposition. Par contre, j'ai besoin (je me suis sûrement mal exprimé au début, mea culpa) du nombre de fois consécutives en partant de la fin.

Dans mon exemple, il s'agit effectivement du maximum mais c'est un hasard. Si les résultats de la colonne B changent, celui de la formule ne concerne alors pas forcément la dernière série, mais uniquement la plus longue.

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 15 Mai 2017

• #8

re,
Re bonjour Dugenou

Bon un nouvel essai par formule matricielle suivant tes dernière info ou tu dis vouloir la série la plus longue

voir fichier joint

Cordialement

 

Pièces jointes

• Book1-1.xlsx

  9 KB · Affichages: 52

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 15 Mai 2017

• #9

Si le but est d'avoir le résultat de la dernière série :

Code:

=INDEX(D2:D8;NBVAL(B2:B8))

au lieu du max dans mon fichier

 

Vote positif 0 Vote négatif

P

pingouinal

XLDnaute Occasionnel

• 15 Mai 2017

• #10

Merci pour la formule matricielle Jocelyn, mais ce que je voulais dire à Dugenou était justement l'inverse.
Il me faut bien le nombre de valeurs dans la dernière série (en partant de la dernière ligne) et pas la plus longue.
Si il y a possibilité de remplacer le "max" par une sorte de "compteur depuis la dernière ligne", ça serait la formule parfaite pour mon cas.

Merci également pour la formule Dugenou, elle fonctionne mais vu la structure de mon fichier source, il m'est délicat de rajouter une colonne.

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 15 Mai 2017

• #11

Bonjour

pingouinal à dit:

Merci pour la formule matricielle Jocelyn, mais ce que je voulais dire à Dugenou était justement l'inverse.
Il me faut bien le nombre de valeurs dans la dernière série (en partant de la dernière ligne) et pas la plus longue.

Cliquez pour agrandir...

Pour être certain d'avoir de bons résultats, c'est en général plus efficace si on met plusieurs exemples...

@ plus

 

Vote positif 0 Vote négatif

P

pingouinal

XLDnaute Occasionnel

• 15 Mai 2017

• #12

Bonjour CISCO,

C'est très vrai. Voici donc un fichier avec plusieurs exemples et le résultat souhaité à chaque fois.

 

Pièces jointes

• Book1.xlsx

  8.1 KB · Affichages: 57

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 15 Mai 2017

• #13

Bonjour

Pourquoi trouves tu H10 = 0 ?

@ plus

 

Vote positif 0 Vote négatif

P

pingouinal

XLDnaute Occasionnel

• 15 Mai 2017

• #14

rebonjour CISCO,

En H, je trouve 0 car la série commençant par la dernière ligne n'entre pas dans les critères (différence >=3 ou <=-3 entre H et G).
Comme je cherche à savoir le nombre de fois consécutivement où, en partant de la dernière ligne, la différence relative entre deux colonnes est >=3, si la première différence est <3, alors la série est nulle.

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 15 Mai 2017

• #15

Bonjour

Tu peux faire avec

Code:

INDEX(FREQUENCE(SI(A1:A7-B1:B7>=3;LIGNE(A1:A7));SI(A1:A7-B1:B7<3;LIGNE(A1:A7)));NBVAL(FREQUENCE(SI(A1:A7-B1:B7>=3;LIGNE(A1:A7));SI(A1:A7-B1:B7<3;LIGNE(A1:A7)))))

toujours en matriciel, donc à valider avec les touches Ctrl+maj+entrer.

@ plus

 

Vote positif 0 Vote négatif