Microsoft 365 Mise à jour cellule avec code VBA

[Coralie01120]

Bonjour,

Je bloque sur un sujet Excel/VBA pour mettre à jour une cellule en fonction de critères.
Je vous joins mon fichier.
Voici mon problème sous forme d'exemple :
Ici avec le N°XFR0000004 (A3) j'ai une vitesse de 9717. La cellule D3 est mise à jour puisque 9717 est supérieure à 1000. La cellule se met donc en bleue (mise en forme conditionnelle). Si la vitesse aurait été inférieure à 1000 ma macro aurait afficher 1000 en D3 et la cellule n'aurait pas été en bleue.
Le problème c'est que ce tableau évolue.
Imaginons que 2 semaines après je reproduis avec le N°XFR0000004 (A3) avec une vitesse de 2000, je ne veux pas que la cellule soit modifiée par 2000 ni mise en bleue puisque 2000 est certes supérieur à 1000 mais inférieur à 9717qui devient ma vitesse de référence "à battre")
A l'inverse, si je reproduis et que ma vitesse est de 10000, je veux que la cellule soit modifiée par 10000 et qu'elle soit en bleue puisque la vitesse sera supérieure à 9717.

Je vous remercie par avance.

Bonne soirée,

 

[JHA]

Bonjour à tous,

En incluant la fonction max() dans la MFC

=ET($D2>$C2;$D2=MAX(SI($A$2:$A$4=$A2;$D$2:$D$4)))

JHA

 

[Coralie01120]

Bonjour,

Merci pour votre retour et votre aide.
C'est une bonne idée, je n'y avait pas pensé.
Seul hic, je ne l'ai peut être pas précisé mais lorsque je tourne avec un même N° de XFR la nouvelle vitesse vient écrasée la cellule D4, il n'y a pas de création de nouvelle ligne...
Dans cet exemple, 2000 vient écraser 9717. Sauf, que j'aimerai que 9717 reste mais non surligné du coup puisque 2000 est inférieur à 9717. A l'inverse si je tourne à 10000 je veux que la cellule D4 9717 soit écrasée par 10000 et en bleue.
Je ne sais pas si je suis bien claire.

Cordialement,

 

[JHA]

Bonjour à tous,

Avec une colonne supplémentaire pour la référence du max.

JHA