XL 2019 mise en forme conditionnel derniere ligne selon valeur maximum colonne A

[LEPATOCHE]

Bonjour a tous j'ai plusieurs lignes sur plusieurs colonnes , dans ma colonne A j'ai plusieurs valeurs et au fil du temps dans mes autres lignes je rajouterai des valeurs ! donc ce que je veus c'est une mise en forme conditionnelle sur la derniere ligne en bleu qui vas de la colonne A a BE car c'est la ligne ou il y a la plus grande valeur de la colonne A ; merci de votre aide .

 

[LEPATOCHE]

je vous joint un fichier avec , vous allez comprendre sans doute . Encore merci .

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[LEPATOCHE]

merci jha mais j'aurais voulu sans tableau s'il te plait !

 

[LEPATOCHE]

ca ne marche pas j'ai tous essayer !

 

[JHA]

Bonjour à tous,

Sur le même principe

JHA

 

[LEPATOCHE]

et bien mon cher JHA ca ne marche toujours pas j'ai tout essayer !

 

[JHA]

Bonjour à tous,

Sur le fichier du poste #6 cela fonctionne si tu ajoutes une donnée en colonne A .

JHA

 

[soan]

Bonjour LEPATOCHE, JHA,

ton fichier en retour.

* note que la ligne bleue est la ligne 21

* en A12, il y a 2261 ; à la place, saisis 3000 ➯ la ligne bleue est maint'nant la ligne 12

* appuie sur la touche Suppr pour effacer A12 ➯ la ligne bleue est de nouveau la 21

* en A12, saisis de nouveau 3000 ➯ la ligne bleue est de nouveau la 12

* en A12, remplace 3000 par 2261 ➯ la ligne bleue est de nouveau la 21

---

* en A22, saisis 2271 ➯ la ligne bleue est maint'nant la ligne 22

* en A23, saisis 2272 ➯ la ligne bleue est maint'nant la ligne 23

* en A24, saisis 2273 ➯ la ligne bleue est maint'nant la ligne 24

---

seul un changement de valeur en colonne A est pris en compte.

---

code VBA du module de "Feuil1" :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 1 Then Exit Sub
  End With
  Dim cel As Range, vx&
  vx = WorksheetFunction.Max(Columns(1)): If vx = 0 Then Exit Sub
  Set cel = Columns(1).Find(vx, , -4163, 1, 1)
  Application.ScreenUpdating = 0: Cells.Interior.ColorIndex = -4142
  Cells(cel.Row, 1).Resize(, 57).Interior.Color = 15773696
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

 

[soan]

@LEPATOCHE

Lis d'abord mon post #9 précédent.

tu sembles bien saisir en colonne A uniquement des nombres consécutifs, ici de 2250 à 2270 ➯ la ligne de la colonne A qui contient la valeur maximum est forcément la dernière ligne ! si c'est bien ça, alors ça devient tout à fait inutile de chercher quel est le maximum de la colonne A (pour pouvoir ensuite mettre en bleu la ligne de ce maximum) : il suffit tout simplement de mettre en bleu la dernière ligne, au fur et à mesure de tes saisies en colonne A ! aussi, je te propose une 2ème version du fichier.​

* note que la ligne bleue est la ligne 21

* en A22, saisis 2271 ➯ la ligne bleue est maint'nant la ligne 22

* en A23, saisis 2272 ➯ la ligne bleue est maint'nant la ligne 23

* en A24, saisis 2273 ➯ la ligne bleue est maint'nant la ligne 24

---

seul un changement de valeur en colonne A est pris en compte.

---

code VBA du module de "Feuil1" :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 1 Then Exit Sub
  End With
  Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row
  If dlg = 1 And IsEmpty([A1]) Then Exit Sub
  Application.ScreenUpdating = 0: Cells.Interior.ColorIndex = -4142
  Cells(dlg, 1).Resize(, 57).Interior.Color = 15773696
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

 

[LEPATOCHE]

Bonsoir jha et vous tous merci pour votre aide c'est pour vous dire que je l'ai moi meme simplifier la mise en forme conditionnel c'est pour vous dire que j'en n'ai baver ; et encore mille fois merci a vous tous vous etes formidable !!!