Mettre dans une cellule le "premier" mini d'une autr cellule qui change régulièrement

[salsinats80]

Bonjour,

Je suis novice en vba. Je ne connais que l'excel simple avec ses fonctions...

je souhaite mettre dans une cellule, la première valeur rencontrée d'une autre cellule inférieure à et qui change régulièrement dans la journée

ex :
cellule A1 = 10
Cellule B1 = 12 ; 13 ; 9 ; 10 ; 7 ; 8 ; 11 ; etc (au cours de la journée)
Dès que la cellule B1 < A1 mettre dans cellule C1 la première valeur de B1 rencontrée (ici : 9) et la conserver jusque D3="". (Il ne faut plus tenir compte des autres valeurs ensuite)
Au départ C1 est vide
D3 sera une valeur en fonction de C1 mais ce n'est pas important pour le moment.
Le fichier reste ouvert sans interruption toute la journée

Dans l'attente, merci et bonne journée
Stan

 

[JCGL]

Re : Mettre dans une cellule le "premier" mini d'une autr cellule qui change régulièr

Bonjour à tous,

Peux-tu eesayer dans le Module de la feuille concernée :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And [B1] < [A1] And [D3] = "" Then [C1] = [B1]
End Sub

A+ à tous

 

[salsinats80]

Re : Mettre dans une cellule le "premier" mini d'une autr cellule qui change régulièr

Merci pour ta réponse.
J'essaie de suite et je te dis ce qu'il en est.

A bientôt

Stan

 

[salsinats80]

Re : Mettre dans une cellule le "premier" mini d'une autr cellule qui change régulièr

Cela fonctionne mais je ne souhaite que la première valeur inférieure à A1.
Dès que B1< à A1 les autres fois, je ne dois plus en tenir compte.

Dans l'attente

Stan.

 

[JCGL]

Re : Mettre dans une cellule le "premier" mini d'une autr cellule qui change régulièr

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And [B1] < [A1] And [D3] = "" And [C1] = "" Then [C1] = [B1]
End Sub

A+ à tous

 

[salsinats80]

Re : Mettre dans une cellule le "premier" mini d'une autr cellule qui change régulièr

Je viens d'essayer et ça marche.
Merci de m'avoir aidé.

Bon dimanche à toi.

Stan.