Compter une série de nombres consécutifs

L

l.et.lilou

XLDnaute Junior

• 1 Juillet 2013

• #2

Re : Compter une série de nombres consécutifs

Salut

Il faut que tu utilises la formule =Nb.si

exemple : =NB.si(dans la plage que tu utilises ('A1 à A100');ta condition : <0)

Espérant avoir répondu a tes attentes

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2013

• #3

Re : Compter une série de nombres consécutifs

Bonsoir quickfuture, l.et.lilou,

On peut utiliser ces fonctions VBA :

Code:

Function MAXPOSITIF&(Liste As Range)
Dim n&, i&, c&, j&
n = Liste.Count
For i = 1 To n
  c = 0
  For j = i To n
    If Liste(j) > 0 Then c = c + 1: i = j Else Exit For
  Next
  MAXPOSITIF = Application.Max(c, MAXPOSITIF)
Next
End Function

Function MAXNEGATIF&(Liste As Range)
Dim n&, i&, c&, j&
n = Liste.Count
For i = 1 To n
  c = 0
  For j = i To n
    If Liste(j) < 0 Then c = c + 1: i = j Else Exit For
  Next
  MAXNEGATIF = Application.Max(c, MAXNEGATIF)
Next
End Function

Fichier joint.

A+

 

Pièces jointes

• Max série(1).xls

  34.5 KB · Affichages: 59

Dernière édition: 1 Juillet 2013

Vote positif 0 Vote négatif

Q

quickfuture

XLDnaute Junior

• 1 Juillet 2013

• #4

Re : Compter une série de nombres consécutifs

Bonsoir Lilou,

Merci pour la réponse, cependant j'ai pas tout compris, pour la plage je sélectionne les nombres OK, mais pour la conditions je m'ai quoi, j'ai pas tous saisi.

Merci

 

Vote positif 0 Vote négatif

Q

quickfuture

XLDnaute Junior

• 1 Juillet 2013

• #5

Re : Compter une série de nombres consécutifs

Merci Job75, je teste

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 1 Juillet 2013

• #6

Re : Compter une série de nombres consécutifs

Bonsoir @ tous,
Un essai par formules matricielles @ valider par Ctrl+Maj+Entree
@ + +

 

Pièces jointes

• quickfuture.xlsx

  9.7 KB · Affichages: 101
• quickfuture.xlsx

  9.7 KB · Affichages: 109
• quickfuture.xlsx

  9.7 KB · Affichages: 115

Vote positif 0 Vote négatif

Q

quickfuture

XLDnaute Junior

• 1 Juillet 2013

• #7

Re : Compter une série de nombres consécutifs

@Job75

Et-il possible d'obtenir ce résultat sans macro

Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2013

• #8

Re : Compter une série de nombres consécutifs

Re, salut R@chid,

J'ai modifié complétement mes fonctions du post #3 et bien sûr le fichier.

A+

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 1 Juillet 2013

• #9

Re : Compter une série de nombres consécutifs

Bonsoir @ tous,
Salut Job75,

Et-il possible d'obtenir ce résultat sans macro

Cliquez pour agrandir...

As-tu vu mon Post#6 ???
@ + +

 

Vote positif 0 Vote négatif

Q

quickfuture

XLDnaute Junior

• 1 Juillet 2013

• #10

Re : Compter une série de nombres consécutifs

Merci à tous,

Je me suis peut etre mal exprimé, donc je post le fichier de R@chid, avec se que je souhaite pour etre plus clair, merci de votre patience

 

Pièces jointes

• quickfuture.xlsx

  12.2 KB · Affichages: 100
• quickfuture.xlsx

  12.2 KB · Affichages: 95
• quickfuture.xlsx

  12.2 KB · Affichages: 89

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Juillet 2013

• #11

Re : Compter une série de nombres consécutifs

Bonsoir,

E2: =SI(A2>0;SOMME(E1;1);0)
F2: =SI(A2<0;SOMME(F1;1);0)
I7: =MAX(F:F)
J7: =MAX(E:E)
eric

 

Pièces jointes

• Classeur3.xlsx

  12.6 KB · Affichages: 82
• Classeur3.xlsx

  12.6 KB · Affichages: 96
• Classeur3.xlsx

  12.6 KB · Affichages: 100

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 2 Juillet 2013

• #12

Re : Compter une série de nombres consécutifs

Bonsoir @ tous,
Salut eriiic..
Les formules que je t'ai donné sur le fichier en Post#6 , n'ont pas besoin de les incrémenter vers le bas, elles vont te donner le résultat final 6 et 7 sans aucune colonne intermédiaire.
@ + +

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Juillet 2013

• #13

Re : Compter une série de nombres consécutifs

Re,

Merci r@chid, mais c'est quickfuture qui veut comme ça...
https://www.excel-downloads.com/threads/compter-une-serie-de-nombres-consecutifs.207994/

eric

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 2 Juillet 2013

• #14

Re : Compter une série de nombres consécutifs

Bonsoir eriiic,
On s'est mal compris...

Les formules que je t'ai donné sur le fichier en Post#6 , n'ont pas besoin de les incrémenter vers le bas, elles vont te donner le résultat final 6 et 7 sans aucune colonne intermédiaire.

Cliquez pour agrandir...

Par ce msgs je m'adresse à quickfuture car j'ai vu sur son dernier fichier du Post#10 qu'il tire mes 2 formules vers le bas, par-contre j'ai aimé ton intervention...
@ + +

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2013

• #15

Re : Compter une série de nombres consécutifs

Bonjour à tous,

Je repasse par là avec un autre code pour les fonctions VBA :

Code:

Function MAXPOSITIF&(colonne As Range)
Dim t, i&
t = colonne.Resize(Application.Match(9 ^ 9, colonne))
t(1, 1) = -(Val(t(1, 1)) > 0)
For i = 2 To UBound(t)
  t(i, 1) = -(Val(t(i, 1)) > 0) * (Val(t(i - 1, 1)) + 1)
Next
MAXPOSITIF = Application.Max(t)
End Function

Function MAXNEGATIF&(colonne As Range)
Dim t, i&
t = colonne.Resize(Application.Match(9 ^ 9, colonne))
t(1, 1) = -(Val(t(1, 1)) < 0)
For i = 2 To UBound(t)
  t(i, 1) = -(Val(t(i, 1)) < 0) * (Val(t(i - 1, 1)) + 1)
Next
MAXNEGATIF = Application.Max(t)
End Function

Fichier (2).

A+

 

Pièces jointes

• Max série(2).xls

  36 KB · Affichages: 59

Vote positif 0 Vote négatif