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

LEPATOCHE

XLDnaute Occasionnel
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 .
 

soan

XLDnaute Barbatruc
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" :

VB:
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
 

Pièces jointes

  • ligne couleur v1.xlsm
    19.2 KB · Affichages: 1
Dernière édition:

soan

XLDnaute Barbatruc
@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" :

VB:
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
 

Pièces jointes

  • ligne couleur v2.xlsm
    19.2 KB · Affichages: 2

LEPATOCHE

XLDnaute Occasionnel
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 !!!
 

Discussions similaires

Statistiques des forums

Discussions
288 693
Messages
1 894 017
Membres
170 246
dernier inscrit
Fahdj2002
Haut Bas