Lori a une série de nombres, dans les cellules adjacentes, qui peuvent être positifs ou négatifs. Elle aimerait avoir un moyen de déterminer la plus grande séquence de nombres négatifs de la plage. Ainsi, s’il y avait sept nombres négatifs consécutifs dans cette séquence, elle aimerait une formule qui renverrait la valeur 7.

Nous avons regardé haut et bas et ne pouvons pas trouver une seule formule qui fera ce que nous voulons. Vous pouvez cependant le faire avec une colonne intermédiaire. Par exemple, si vous avez vos nombres dans la colonne A (commençant par A1), vous pouvez mettre la formule suivante dans la cellule B1:

=IF(A1<0,1,0)

Ensuite, dans la cellule B2, entrez ce qui suit:

=IF(A2<0,B1+1,0)

Copiez ceci dans toutes les autres cellules de la colonne B pour lesquelles il y a une valeur dans la colonne A. Ensuite, dans une cellule différente (peut-être la cellule C1), vous pouvez mettre la formule suivante:

=MAX(B:B)

Cette valeur représentera le plus grand nombre de valeurs négatives consécutives dans la colonne A.

Si vous ne souhaitez pas créer une colonne intermédiaire pour obtenir la réponse, vous pouvez créer une fonction définie par l’utilisateur qui renverra la valeur.

Function MaxNegSequence(rng As Range)

' search for the largest sequence ' of negative numbers in the range

Dim c As Range     Dim lCounter As Long     Dim lMaxCount As Long       Application.Volatile     lCounter = 0     lMaxCount = 0     On Error Resume Next     For Each c In rng.Cells         If c.Value < 0 Then             lCounter = lCounter + 1             If lCounter > lMaxCount Then                 lMaxCount = lCounter             End If         Else             lCounter = 0         End If     Next c       MaxNegSequence = lMaxCount End Function

Pour utiliser la fonction, placez simplement une formule similaire à la suivante dans votre feuille de calcul:

= MaxNegSequence(A1:A512)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11105) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Counting_Consecutive_Negative_Numbers [Comptage des nombres négatifs consécutifs].