XL 2013 Vérifier si une plage est en ordre croissant

Victor21

XLDnaute Barbatruc

• 13 Juin 2019

• #2

Bonjour.

Sans fichier exemple...
A tout hasard :

VB:

=D1>D2

propagé sur la zone renvoie VRAI ou FAUX qu'il est ensuite facile de filtrer

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Juin 2019

• #3

Bonjour Matt51140, Patrick,

Formule matricielle, à valider par Ctrl+Maj+Entrée :

Code:

=OU(ET(D33:D38>D32:D37);ET(D33:D38<D32:D37))

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Juin 2019

• #4

Bonjour @Matt51140, @Victor21 , @job75

Une autre formule matricielle, à valider par Ctrl+Maj+Entrée :

VB:

=ET(SIGNE(D32:D37-D33:D38)=SIGNE(D32-D33))

nota: un cas où elle ne marche pas (mais je vous laisse chercher... )

 

Vote positif 0 Vote négatif

M

Matt51140

XLDnaute Nouveau

• 14 Juin 2019

• #5

Bonjour à tous,

Désolé de ne pas être revenu vers vous plus rapidement. Je n'ai pas recu les notifs de vos réponses.

Merci pour vos réponses.

Je vais retenir la solution de Job75.

Matthieu.

 

Vote positif 0 Vote négatif

M

Matt51140

XLDnaute Nouveau

• 14 Juin 2019

• #6

Rebonjour,

mapomme, est ce que cela ne marche pas si les 7 valeurs sont identiques ? (renvoie VRAI)

Matthieu.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Juin 2019

• #7

Bonsoir @Matt51140

Bien vu!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juin 2019

• #8

Bonjour Matt51140, Patrick, mapomme,

Fonction VBA à placer impérativement dans un module standard :

VB:

Function CD(r As Range) As Boolean
Dim ordre As Boolean, i&
ordre = r(1) < r(2)
CD = True
For i = 1 To r.Count - 1
    If r(i) < r(i + 1) <> ordre Or r(i) = r(i + 1) Then CD = False: Exit Function
Next
End Function

A+

 

Pièces jointes

• CD(1).xlsm

  19.8 KB · Affichages: 4

Dernière édition: 15 Juin 2019

Vote positif 0 Vote négatif